Mudahnya Program Pascal

Percobaan Pertama

uses wincrt;
var
A,B,C:REAL;

maksud dari var A,B,C:Real; adalah nilai A, B, dan C adalah bilangan real. jadi var itu maksudnya variabel atau nilai nya dapat berubah-ubah.


Begin
Writeln('PENJUMLAHAN');
Write('MASUKKAN A : ');Readln(A);
Write('MASUKKAN B : ');Readln(B);
C:=A+B;
Writeln('JADI JUMLAHNYA : ' ,C:2:2);
End.

   Setelah menulis A,B,C:real; dilanjutkan dengan menulis kode diatas. Ingat, sebelum memulaiya harus didahului dengan Begin. writeln, kata ln berfungsi untuk menghasilkan data output yang dalam keadaan dienter. sesudah kata writeln adalah ('........') itu fungsi kepada program agar menuliskan kata yang ada ddalam tanda petik itu. Fungsi Readln adalah untuk membaca input dari keyboard. Setelah ada input dari keyboad, maka program akan mengolahnya dalam fungsi C:=A+B;

    Lalu, hasil dari C:=A+B; akan dicantumkan dalam fungsi writeln('Jadi Jumlahnya:' ,C:2:2);
Maksud dari C:2:2 adalah dua angka didepan koma dan 2 angka di belakang koma. Catatan: variabel harus konstan, jika huruf kapital, berarti harus kapital semua.
   Setelah itu semua diakhiri dengan mengetik end.

Perulangan sederhana deret aritmatika 1-2-3-4-5 diselesaikan dengan:

1. for-to do

uses wincrt;
var
i:integer;

begin
for i:=1 to 5 do
writeln(i);
end.

2. while do

uses wincrt;
var
i:integer;
begin
i:=0;
while i<=4 do
      begin
      i:=i+1;
      writeln(i);
      end;
end.

Source : tik-smanema.blogspot.com

Read more »