PROGRAM PASCAL MENGHITUNG JUMLAH HURUF PADA SETIAP KATA DI DALAM KALIMAT.

PROGRAM PASCAL MENGHITUNG JUMLAH HURUF PADA SETIAP KATA DI DALAM KALIMAT.

uses wincrt;
var
i,jumlah,jumvokal,huruf,jumhuruf:integer;
f:char;
data,c:string;

begin

clrscr;
write('input kalimat : ');
readln(c);
data:=c;
jumlah:=0;
huruf:=0;
write('karakter yang di cari : '); readln(f);
for i:=1 to length(data) do
begin
if data[i] in [f] then
huruf:=huruf+1;
if data[i] in ['A','I','U','E','O','a','i','u','e','o'] then
jumlah:=jumlah+1;
end;
jumvokal:=jumlah;
jumhuruf:=huruf;
writeln('banyak huruf yang di cari : ',jumhuruf);
writeln('jumlah vokal : ',jumvokal);
readln;

end.

Posted in: Program Pascal