Program Untuk Menghitung Karakter

program cari_huruf_tertentu;
uses wincrt;
var
s:string;
ci,ca,i,p_char:integer;
c:char;
procedure start; {tombol untuk memulai membaca karakter}
begin
ca:=0;
ci:=0;
end;
procedure adv;{tombol untuk menggeser pita karakter}
begin
ci:=ci+1;
end;
procedure inc;{tombol untuk menaikkan nilai ca/jumlah karakter yang dicari}
begin
ca:=ca+1;
end;
begin
write('Masukkan kata/kalimat diakhiri titik = ');readln(s); {menginputkan kalimat}
write('Masukkan huruf yang akan di cari = ');readln(c);{menginputkan huruf yang akan dicari}
start;
while (s[ci]<>'.') do {perulangan sampai tanda titik}
begin
if (s[ci]=c) then {jika ada karakter yang dicari dalam kalimat}
begin
inc; {jumlah karakter yang dicari diincrement}
adv; {pita karakter digeser}
end
else
adv; {pita karakter digeser}
end;
p_char:=ci-1;
writeln(ca,' huruf ',c,' dari ',p_char,' huruf'); {output}
readln;
end.

Mesin Integer dan Mesin Karakter

Mesin Karakter

Awalnya pita karakter berisi karakter-karakter:A ,L ,G ,O ,R ,I ,T ,M ,A . karakter yang pertama terilhat di jendela (CC) adalah A. setelah ditekan tombol ADV maka pita bergeser dan karakter L muncul di jendela. Jika tombol ADV ditekan lagi maka jendela akan menampilkan karakter G.Jika tombol ADV ditekan terus sampai tanda titik (“.”) muncul,maka lampu EOP akan menyala dan mesin tidak dapat digunakan lagi.

Mesin Integer

Pada mulanya nilai CI bernilai 1.
Setelah tombol INC ditekan maka nilai CI ditambah 1 sehingga menjadi 2.
Apabila tombol INC ditekan lagi maka CI akan ditambah 1 lagi menjadi 3 dan seterusnya.
Setelah tombol RESET ditekan maka nilai CI=0 ,artinya nilai CI di-nolkan.
Baca juga pemanfaatan kedua mesin ini: klik di sini dan posting sebelumnya.

Mesin Abstrak (Abstract Machine)

Pada kesempatan kali ini saya akan mencoba mengulas mesin abstrak yang merupakan bagian dari algoritma dan penerapan dalam pemrograman.Mesin abstrak adalah salah satu aplikasi sederhana dari penggunaan procedure pada pemrograman. Mesin abstrak adalah suatu mesin yang dianggap ada dan diasumsikan dapat melakukan mekanisme yang didefinisikan mesin tersebut. Mungkin bahasa diatas terlalu rumit,secara sederhana mesin abstrak adalah model nyata atau simulasi dari pemrograman. Dengan mesin abstrak pemrogram dapat membuat mekanisme yang mudah dibayangkan.Ada dua mesin abstrak yang umum digunakan yaitu mesin integer dan mesin karakter.

Mesin Integer
Mesin Integer terdiri dari:
• Sebuah jendela yang menampilkan angka integer pada saat tertentu. Angka integer di jendela itu disebut Current Integer(CI).
• Sebuah tombol RESET untuk mengembalikan CI pada angka nol.
• Sebuah tombol INC (Increment) untuk menambahkan angka 1 pada nilai CI.

Mesin Karakter
Mesin karakter terdiri dari:
• Sebuah jendela yang ukurannya sebesar satu karakter saja. Karakter yang terlihat di jendela disebut Current Character (CC) dan karakter lain tidak terlihat.
• Pita yang berisikan deretan karakter dan diakhiri tanda titik (“.”). Pita ini adalah gambaran nyata dari array of char atau juga dikenal sebagai string. Jika pita ini hanya berisi tanda titik maka pita ini dianggap sebagai pita kosong.
• Sebuah tombol START untuk memulai pembacaan karakter.
• Sebuah tombol ADV (Advance) yang berfungsi untuk menggeser pita karakter yang bertujuan menampilkan karakter berikutnya.
• Sebuah lampu EOP (End of Position) yang menyala jika tanda titik (“.”) sudah terbaca. Lampu menyala adalah gambaran kondisi status TRUE dan padam berarti FALSE.

Mungkin pada posting yang lain saya akan menggambarkan cara kerja mesin-mesin tersebut dan macam-macam mesin lain beserta aplikasinya dalam pembuatan program berbasis mesin integer dan karakter. Lanjutan.