Program Banyak Huruf dalam Kalimat

Jun 18, 2009 No Comments by Sahabat

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

contoh program pascal menghitung panjang karakter dalam kalima, membuat program menghitung huruf dalam kalimat pada bahasa pascal, Menghitung kemunculan angka menggunakan pascal, pascal menghitung karakter sebuah kata, program pascal menampilkan kalimat per huruf, program pascal menghitung banyak huruf dalam satu kata, program turbo Pascal membuat kalimat dengan huruf bertambah satu- satu seperti jenjang.

Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau
No Responses to “Program Banyak Huruf dalam Kalimat”

Leave a Reply

You must be logged in to post a comment.