Program pascal menghitung jumlah karakter Vokal dan Konsonan

Program pascal menghitung jumlah karakter Vokal dan Konsonan - Kali ini saya akan sharing bagaimana syntak program menghitung jumlah karakter vokal dan Konsonan. Dalam program ini saya akan menggunakan sebuah array dan menggunakan perulangan For.

Soal :

Buatlah program untuk menampilkan jumlah karakter Vokal dan Konsonan menggunakan array dan perulangan For dan data diinputkan oleh user. 

Penyelesaian :

program project1;

var

  i,n,voc,kons,a,s,e,o,u: integer;
  kata :string;


begin
  write('Tolong masukan nama anda : '); readln(kata);
  kons:= 0;
  voc:= 0;
  n:=length(kata);
  for i:=1 to n 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
    voc:= voc + 1
    else
      kons := kons + 1;
    end;
  a:=0;
  s:=0;
  u:=0;
  e:=0;
  o:=0;
  for i:=1 to n do
  begin
    if ((kata[i]= 'a') or (kata[i]= 'A')) then
    a:=a+1
    else
    if ((kata[i]= 'e') or (kata[i]= 'E')) then
    e:=e+1
    else
    if ((kata[i]= 'u') or (kata[i]= 'U')) then
    u:=u+1
    else
    if ((kata[i]= 'o') or (kata[i]= 'O')) then
    o:=o+1
    else
    if ((kata[i]= 'i') or (kata[i]= 'I')) then
    s:=s+1;

  end;
  writeln;
  writeln(' HASIL DATA YANG DIINPUT ');
  write('Kata yang anda input  : ',kata);
  writeln;
  writeln('Jumlah Karakter konsonan : ', kons);
  writeln('Jumlah karakter vokal    : ', voc);
  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.

Hasil :