saya bersyukur atas bantuan agan2 ini,,saya bisa mengenal sdikit demi sdikit program pascal,,,
Saya mau nanya lagi tentang Procedure dan function di pascal,,sebenarnya apa sih bedanya dari k 2 subprogram ini,,?? contohnya program rata-rata d bwah klo di ubah ke function bgaimana???
Program contoh_procedure;
uses wincrt;
var jumbil:integer;
rataan:real;
loop:string;
label ulang;
procedure rataBil(n:integer;var rataBil:real);
var i:integer;
jml,nilai:real;
begin
jml:=0;
for i:=1 to n do
begin
Write('Masukan Nilai ke-' ,i,': ');readln(nilai);
jml:=jml+nilai;
end;
Writeln;
writeln('Jumlah : ',jml:0:2);
rataBil:=jml/n;
end;
begin
writeln('=====PROGRAM MENGHITUNG RATA-RATA=====');
ulang:
writeln;
write('Masukan berapa banyak jumlah bilangan : ');readln(jumbil);
writeln;
rataBil(jumbil,rataan);
Writeln('Rata-rata : ',rataan:0:0);
write('Ingin menghitung lagi? (y/n)');readln(loop);
if loop= 'y' then
begin
goto ulang;
end;
end.
Terima kasih.
