Program memanggil prosedur dan atau fungsi rekursif untuk mencari jumlah bilangan

Program memanggil prosedur dan atau fungsi rekursif untuk mencari jumlah bilangan

(0, 1, 3, 4,5, 6, 7, 8, 9)yang inputannya dari file inputnimkelompok.txt

yang berisi NIM mahasiswa pada kelompok tugas besar dan hasilnya disimpan

di file hasil.txt!

program NIM_kelompok;

{$mode objfpc}{$H+}

uses crt, sysutils;

var

fileinput, filehasil : text;

isifile :  string;

  pecahantext : array of char;

  anggotakelompok : array of string;

  jumlahtext, i, j : longint;

  angka0,angka1,angka2,angka3,angka4,angka5,angka6,angka7,angka8,angka9,angka : longint;

  function nim : integer;

  begin

  nim:=0;

  pecahantext[i - 1] := isifile[i];

      if (isifile[i] = '0') then

        inc(angka0, 1)

      else if (isifile[i] = '1') then

        inc(angka1, 1)

      else if (isifile[i]  = '2') then

         inc(angka2, 1)

      else if (isifile[i] = '3') then

       inc(angka3, 1)

      else if (isifile[i]  = '4') then

        inc(angka4, 1)

          else if (isifile[i]  = '5') then

         inc(angka5, 1)

          else if (isifile[i]  = '6') then

         inc(angka6, 1)

          else if (isifile[i]  = '7') then

         inc(angka7, 1)

          else if (isifile[i]  = '8') then

        inc(angka8, 1)

          else if (isifile[i]  = '9') then

       inc(angka9, 1)

      else if (isifile[i] <> ' ') then

        inc(angka, 1)

    end;

begin

  assign(fileinput, 'inputnimkelompok.txt');

  reset(fileinput);

   clrscr;

  repeat

    readln(fileinput, isifile);

    anggotakelompok := isifile.split(' ');

  until eof(fileinput);

  jumlahtext := length(isifile);

  setlength(pecahantext, jumlahtext);

  for i := 1 to jumlahtext do

    begin

      nim;

    end;

  close(fileinput);

  assignfile(filehasil, 'hasilnim.txt');

  rewrite(filehasil);

  writeln(filehasil, 'Daftar NIM Kelompok : ');

  for j := 0 to high(anggotakelompok) do

    begin

      writeln(filehasil, (j + 1), '. ', anggotakelompok[j]);

    end;

  writeln(filehasil, ' ');

  writeln(filehasil, 'Total angka 0 adalah = ', angka0);

  writeln(filehasil, 'Total angka 1 adalah = ', angka1);

  writeln(filehasil, 'Total angka 2 adalah = ', angka2);

  writeln(filehasil, 'Total angka 3 adalah = ', angka3);

  writeln(filehasil, 'Total angka 4 adalah = ', angka4);

  writeln(filehasil, 'Total angka 5 adalah = ', angka5);

  writeln(filehasil, 'Total angka 6 adalah = ', angka6);

  writeln(filehasil, 'Total angka 7 adalah = ', angka7);

  writeln(filehasil, 'Total angka 8 adalah = ', angka8);

  writeln(filehasil, 'Total angka 9 adalah = ', angka9);

  closefile(filehasil);

writeln('Output Program sudah tersimpan di file hasil.txt');

  readln;

end.

Input program

Output Program