Tulisan 4 pascal ( procedure )

Nama : Bobby Yohanes

Kelas : 2 KA 28

Npm : 10109359

Judul : pascal ( coding procedure )

PENGGUNAAN PROCEDURE

uses crt;

var

 p,x,y:byte;

procedure tambah(a,b:byte);

begin

 p:=a+b;

 writeln('X+Y=',p);

end;

begin

clrscr;

 write('X=');readln(x);

 write('Y=');readln(y);

 tambah(x,y);

readln;

end.

uses crt;

 function terbesar(x,y:real):real;

begin

 if x>y then

  terbesar:=x;

  terbesar:=y;

end;

var

 nilai1,nilai2:real;

begin

 clrscr;

 write('Nilai Pertama=');readln(nilai1);

 write('Nilai Kedua=');readln(nilai2);

 writeln('Nilai terbesar adalah=',terbesar(nilai1,nilai2):0:2);

readln;

end.