Program Banyak Huruf dalam Kalimat

uses wincrt;
var n:array[1..26] of integer;
i,j:integer;
kata : String;
begin
for i:=1 to 26 do n[i]:=0;
write(‘Ketikkan sebuah kalimat : ‘);readln(kata);
for i:=1 to length(kata) do
for j:=1 to 26 do
if ord(upcase(kata[i]))=64+j then
inc(n[j]);
for i:=1 to 13 do
writeln(chr(64+2*i-1),’ = ‘,n[2*i-1],’ ‘,chr(64+2*i),’ =
‘,n[2*i]);
end.

Kata Kunci

kata kunci kalimat dalam pascal, listing mencari kata pada pascal, contoh pencarian huruf pada kalimat dalam pascal, record di dalam function pada turbo pascal, program kalimat dengan pascal, program huruf pascal, program huruf di pascal, program cari kata pada pascal, program cari dalam pascal, program banyak huruf dalam kalimat dalam c.

Related posts:

1. Perintah With..Do dalam Pascal
2. Program dengan Array of String
3. Program Bilangan Genap
4. Program Input Nilai Mahasiswa
5. Program Konversi Suhu
6. Program Penilaian Mahasiswa
7. Program Data Pegawai
8. Aljan Array dan Record
9. Hendra Array & Record
10. Program yang Menggunakan Record