PROCEDURE dalaM pascal

Program Pascal

Penulisan kode program

uses crt;

var a,b,c:real;

    x:integer;

procedure kali;

begin

a:=b*c;

end;

procedure tambah;

begin

a:=b+c;

end;

procedure bagi;

begin

a:=b/c;

end;

procedure kurang;

begin

a:=b-c;

end;

begin

clrscr;

writeln('1.Perkalian');

writeln('2.Tambah');

writeln('3.Bagi');

writeln('4.Kurang');

write('Masukan Pilihan Anda : ');

readln(x);

write('Masukan Angka pertama : ');

readln(b);

write('Masukan Angka kedua   : ');

readln(c);

if x=1 then

 kali

else if x=2 then

 tambah

else if x=3 then

 bagi

else if x=4 then

 kurang;

writeln('Hasil = ',a:0:2);

end.

Logika Pascal

uses crt;

tanda pembuatan program.

Var   x:Integer;

Artinya variable x  berbentuk bilangan bulat.

 Begin

Tanda dimulainya program/ atau mengawali program.

     clrscr;

perintah untuk membersihlan layar.    

writeln(' Masukan Pilihan Anda ');

kode untuk mencetak kalimat didalanya yaitu kalimit “Masukan Pilihan Anda”

readln(x);

kode untuk memasukkan nilai “x”.

procedure kali;

begin

a:=b*c;

end;