Program Procedure + Function

-speechless- (‾~‾“)
Kyk judulnya, ini progragram pake Procedure, dan juga function. Apa perbedaan antara Procedure dan Function??

Klo Procedure, dy perlu variabel local didalamnya, sedangkan function gk perlu, karena function menyimpan dalam dirinya sendiri. well, kayanya makin ruwet ╥﹏╥
Cek this out aja deh..




uses wincrt;


var
nilai,i:integer;
ulang: char;
{procedur mulai}
procedure input;
var
nama,nim: array [1..3] of string;


begin
for i:=1 to 1 do begin

write('Nama : ');readln(nama[i]);
write('Nim : ');readln(nim[i]);
write('Nilai : ');readln(nilai);

end;
end;
{procedure end}
procedure output;
var
nama,nim : array [1..3] of string;


begin
for i:=1 to 1 do begin
writeln;
writeln('Nama : ',nama[i]);
writeln('Nim : ',nim[i]);
end;
end;
{end of procedure output}

function grade(nilai: integer): string;

begin

if nilai>=90 then grade:='A'
else
if nilai>=80 then grade:='B+'
else
if nilai>=70 then grade:='B'
else
if nilai>=60 then grade:='C'
else
grade:='D';

end;
begin

ulang:='y';
while ulang = 'y' do begin
input;
clrscr;

output;
writeln('Grade : ',grade(nilai));

writeln;
write('Input Lagi ? [y/t] ');readln(ulang);
clrscr;
end;
end.