Menghitung Huruf Vokal dan Konsonan dengan Turbo Pascal

Pada postingan kali ini saya akan membahasa tentang cara Menghitung Huruf Vokal dan Konsonan dengan Turbo Pascal
sebelum memulai ada baiknya anda membaca postingan saya sebelumnya yaitu Statemetn IF di Turbo Pascal dan Perulangan For do di Turbo Pasca karna untuk menghitung huruf vocal dan kosonan dengan turbo pascal kita memerlukan 2 statement itu


1. Buka program turbo pascal yang anda miliki

2. Ketikan script dibawah ini

program vokal_konsonan;
uses crt;
var
 vokal,konsonan,len,i:integer;
 kata:string;
begin
 clrscr;
 writeln('=================');
 writeln('Tutorial Koding');
 writeln('=================');
 write('Masukan Nama Anda : ');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.

Jika dijalankan akan seperti gambar di bawah ini

Penjelasan :

var
 vokal,konsonan,len,i:integer;
 kata:string;

Digunakan untuk mendeklarasikan variable

write('Masukan Nama Anda : ');readln(kata);
 len:=length(kata);
 konsonan:=0;
 vokal:=0;

Digunakan untuk mengisi variable kata dengan kata yang kita inputkan
length digunakan untuk mengetahui panjang karakter dari kata yang kita inputkan
konsonan:=0 dan vokal:=0 digunakan untuk mengisi variabel dengan 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;

Melakukan perulangan untuk mendapatkan jumlah huruf vokal dan konsonan

writeln('Jumlah Huruf Vokal : ',vokal);
writeln('Jumlah Huruf Konsonan : ',konsonan);

Digunakan untuk menampilkan jumlah huruf vokal dan konsonan yang ditemukan

Semoga berhasil
Semoga bermanfaat dan jangan lupa untuk memberikan komentar pada postingan ini.