Cukup menempatkan kode di atas diantara dan

Sabtu, 29 Januari 2011

Program menghitung banyak huruf dalam kalimat

hey kauand, ne ada yg bru lg dri blog ne,,,,
program menghitung huruf dari kalimat,,,,
view n plajari sourcode n contoh programx bisa di Download disini





Program Banyak_huruf_dalam_kalimat;
uses crt;
var
n:array[1..26] of integer;
i,j:integer;
kata:string;
lagi:char;

begin
repeat
clrscr;
writeln('rhobiey.blogspot.com');
writeln('____________________');
writeln;
 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]);
 write('lagi [Y/T]: ');lagi:=upcase (readkey);
 writeln(lagi);
until lagi <> 'Y';
end.

0 komentar:

 
Cukup menempatkan kode di atas diantara dan