Cara Membuat Program Menghitung Banyaknya Huruf Vokal Konsonan Dengan Aplikasi Turbo Pascal

Dalam sebuah huruf kita mengenal 26 huruf dan ke 26 huruf itu di bedakan menjadi 2 bagian yaitu huruf vokal dan huruf konsonan. Jumlah huruf vokal ada 5 yaitu A, I, E. O, U dan sisanya yaitu huruf konsonan. Di dalam laporan ini penulis akan membuat sebuah program dengan menggunakan aplikasi Turbo Pascal untuk menghitung banyaknya huruf vokal dan konsonan. Adapun cara membuat programnya seperti di bawah ini :
1. Buka Aplikasi Turbo Pascal yang sudah di install di komputer maupun laptop misal TPW 1.5.
2. Buatlah file baru dan di dalamnya masukkan script-script pemrogramannya.
3. Adapun script-scriptnya seperti dibawah ini :
program Menghitung_Banyaknya_Kalimat_vokal_konsonan;
Uses wincrt;
Var
vokal,konsonan,len,i:integer;
kata:string;
begin
clrscr;
writeln('Program Menghitung Banyaknya Kalimat/Huruf Vokal dan Konsonan');
writeln('=================');
write('Masukan Sembarang Kaimat : ');readln(kata);
len:=length(kata);
konsonan:=0;
vokal:=0;
for i:=1 to len do
begin
if (kata[i]='a') or (kata[i]='A') or (kata[i]='i') or (kata[i]='I') or (kata[i]='e') or (kata[i]='E')
or (kata[i]='u') or (kata[i]='U') or (kata[i]='o') or (kata[i]='O') then
begin
vokal:=vokal+1;
end
else
begin
konsonan:=konsonan+1;
end;
end;
writeln('Jumlah Huruf Vokal : ',vokal);
writeln('Jumlah Huruf Konsonan : ',konsonan);
readln;
end

• Twitter
• Facebook
• Google
• Tumblr
• Pinterest