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

2 cara menghitung panjang karakter pascal, algoritma menghitung jumlah alfabet pada kalimat dengan pseudocode, program pascal menghitung Banyak Huruf pada kalimat, program pascal sederhana menghitung Huruf pada kalimat.

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.