Program memanggil prosedur dan atau fungsi rekursif untuk mencari jumlah karakter vokal

Program memanggil prosedur dan atau fungsi rekursif untuk mencari jumlah karakter vokal

(a, i, u, e, o) yang inputannya dari file inputnamakelompok.txt

yang berisi nama-nama mahasiswa pada kelompok tugas besar dan

hasilnya disimpan di file hasil.txt!

program huruf_vokal;

Uses crt;

Var

vokal,konsonan,len,i:integer;

kata:string;

t,f : textfile;

function huruf:integer;

begin

huruf:=0;

    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;

begin

    clrscr;

    assign(t,'inputnamakelompok.txt');

    assign(f,'hasil.txt');

    reset(t);

    rewrite(f);

    while not EOF (t) do

    begin

    readln(t,kata);

    writeln(kata);

     len:=length(kata);

        vokal:=0;

        konsonan:=0;

        for i:=1 to len do

        huruf;

        writeln(f,'Nama                     :',kata);

        writeln(f,'Jumlah Huruf Vokal       :',vokal);

        writeln(f,'Jumlah Huruf non vokal   :',konsonan);

        writeln(f);

    end;

    close(t);

    close(f);

    readln;

end.

Input Program

Output Program