Contoh program pascal

seseorang selalu mencari jalan menuju sukses, tetapi mereka lupa bagaimana cara menghadapinya, kita hanya memikirkan bagaimana  kita bisa sukses tanpa mempertimbangkan resiko yang kita hadapi, maka dari itu persiapkanlah dengan matang rencanamu sampai anda benar benar yakin akan menjalankan rencana anda itu.

yah,  itu hanya sekedar pencerahan. baiklah kali ini saya akan memberikan contoh kerja dari dari program pascal :

program RepeatUntil;

uses crt;

var angka:integer;

begin

clrscr;

angka:=11;

repeat

write(' ',angka);

angka:=angka+2

until(angka>20);

readln;

end.

 

dan ini hasil kerjanya :

 

Pascal juga bisa melakukan perhitungan matematika,
Perhatikan program berikut :

…
Uses crt;
Var x,y,z : integer;
Begin
Writeln(‘ Penjumlahan ‘);
Write(‘ masukan nilai x ‘); readln(x);
Write(‘ masukan nilai y ‘); readln(y);
z:=x+y;
Write(‘ Hasilnya   = ‘, z);

Writeln(‘ Penguragan ‘);
Write(‘ masukan nilai y ‘); readln(y);
Write(‘ masukan nilai x ‘); readln(x);
z:=y-x;
Write(‘ Hasilnya   = ‘, z);
Writeln(‘ Penjumlahan ‘);
Write(‘ masukan nilai x ‘); readln(x);
Write(‘ masukan nilai y ‘); readln(y);
z:=x*y;
Write(‘ Hasilnya   = ‘, z);
Writeln(‘ Penjumlahan ‘);
Write(‘ masukan nilai y ‘); readln(y);
Write(‘ masukan nilai x ‘); readln(x);
z:=y/x;
Write(‘ Hasilnya   = ‘, z);
End.
…
 Jika tidak bisa pembagian 3/2 memakai integer, mak tipe datanya dirubah menjadi float.

Div

Adalah pembagian yang selalu menghasilkan bilangan bulat (integer).
Contoh: c:=a div b;

Mod

adalah sisa dari pembagian modulo atau remainder yang selalu
menghasilkan integer.
Contoh: c:=a mod b;

Trunc

Pembulatan angka ke bawah. Misalnya angka 5.7 dibulatkan menjadi 5.
Contoh: trunc(c);

Round

Pembulatan ke nilai integer terdekat, misal 5.6 dibulatkan ke enam. 7.1
dibulatkan menjadi tujuh.
Contoh: round(c);