INDONESIANWARE - Pada Artikel yang anda baca kali ini dengan judul Menghitung Huruf Vokal dan Konsonan dengan Turbo Pascal, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel Turbo Pascal, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Menghitung Huruf Vokal dan Konsonan dengan Turbo Pascal
link : Menghitung Huruf Vokal dan Konsonan dengan Turbo Pascal

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.

Sekianlah artikel Menghitung Huruf Vokal dan Konsonan dengan Turbo Pascal kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Menghitung Huruf Vokal dan Konsonan dengan Turbo Pascal dengan alamat link https://ware-id.blogspot.com/2014/03/menghitung-huruf-vokal-dan-konsonan.html