Program pascal menghitung karakter vokal dan konsonan dengan procedure

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

Buatlah program pascal menghitung karakter vokal dan konsonan dengan menggunakan procedure kemudian karakter tersebut disusun kembali menjadi sebuah kata dan kalimat.

Penyelesaian

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.

Hasil