Program pascal menghitung karakter vokal dan konsonan dengan procedure - Setelah sebelumnnya saya menjelaskan tentang program pascal menghitung jumlah karakter vokal dan konsonan. Kali ini saya membahas kembali tapi menggunakan procedure dan kemudian karakter tersebut digabungkan menjadi sebuah kata atau kalimat.
Soal
PenyelesaianBuatlah program pascal menghitung karakter vokal dan konsonan dengan menggunakan procedure kemudian karakter tersebut disusun kembali menjadi sebuah kata dan kalimat.
Hasil
program hitung_karakter3_procedure;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
{$R *.res}
var
x: array[1..100] of char;
i,n :integer;
procedure line1 ;
var
voc,kons :integer;
begin
write('masukan jumlah karakter di nama anda '); readln(n);
kons:= 0;
voc:= 0;
for i:=1 to n do
begin
write('masukan karakter ke ',i,' : '); readln(x[i]);
if ((x[i]= 'a') or (x[i]= 'A')) or ((x[i]= 'i') or (x[i]= 'I'))or ((x[i]= 'e') or (x[i]= 'E')) or ((x[i]= 'u') or (x[i]= 'U')) or ((x[i]= 'o') or (x[i]= 'O')) then
voc:= voc + 1
else
kons := kons + 1;
end;
writeln;
writeln('Jumlah Karakter konsonan : ', kons);
writeln('Jumlah karakter vokal : ', voc);
end;
procedure line2;
begin
writeln(' Hasil Data ');
write('Berikut gabungan kata ');
for i:=1 to n do
begin
write(x[i]);
end;
end;
procedure line3;
var
a,s,u,e,o : integer;
begin
a:=0;
s:=0;
u:=0;
e:=0;
o:=0;
for i:=1 to n do
begin
if ((x[i]= 'a') or (x[i]= 'A')) then
a:=a+1
else
if ((x[i]= 'e') or (x[i]= 'E')) then
e:=e+1
else
if ((x[i]= 'u') or (x[i]= 'U')) then
u:=u+1
else
if ((x[i]= 'o') or (x[i]= 'O')) then
o:=o+1
else
if ((x[i]= 'i') or (x[i]= 'I')) then
s:=s+1;
end;
writeln;
writeln('Jumlah karakter A : ', a);
writeln('Jumlah karakter I : ', s);
writeln('Jumlah karakter U : ', u);
writeln('Jumlah karakter E : ', e);
writeln('Jumlah karakter O : ', o);
readln
end;
begin
line1;
line2;
line3;
end.
Program pascal menghitung karakter vokal dan konsonan dengan procedure
4/
5
Oleh
Daftar Harga
