Teknik Informatika: Prosedur pascal

Prosedur pascal

PROGRAM PROSEDUR PASCAL

uses crt;

procedure hitung (a,b,c:byte);

begin

c:= a+(a*b);

clrscr;

writeln('PROGRAM PROSEDUR PENGHITUNGAN NILAI');

writeln('===================================');

writeln('Nilai A = ',a);

writeln('Nilai B = ',b);

writeln('Nilai C = ',c);

end;

var

p,q,r: byte;

begin

p:=5; q:=10; r:=15;

hitung(p,q,r);

writeln;

writeln('Nilai P = ',p);

writeln('Nilai Q = ',q);

writeln('Nilai R = ',r);

readln;

end.

Logika Program

Program ini dibuat untuk penghitungan nilai, dengan procedure hitung a,b, dan c.
dengan procedure hitung kedua yaitu p,q, dan r dengan p:=5; q:=10; r:=15;.
begin pertama yaitu menghitung ;

Nilai A =......

Nilai B =......

Nilai C =......, dengan C=A+(A*B)
begin kedua langsung dengan penentua tanpa penggunaan rumus yaitu p:=5; q:=10; r:=15;.
dengan skrip diatas kemudian jalankan program.