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);
Artikel keren lainnya:
Belum ada tanggapan untuk "Contoh program pascal"
Post a Comment