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.
Sabtu, 29 Januari 2011
Program menghitung banyak huruf dalam kalimat
Diposting oleh
Rhobiey
di
Sabtu, Januari 29, 2011
Kirimkan Ini lewat Email
BlogThis!
Bagikan ke X
Berbagi ke Facebook

Label:
Turbo Pascal
0 komentar:
Posting Komentar