Belajar Pascal

Belajar Pascal

contoh program

program  Judul_Program_Pascal;       {Judul program}
uses    Crt;                                           {Deklarasi unit CRT}
label  Label_Saya;                              {Deklarasi label}
const                                                   {Deklarasi konstanta}
Bahasa  =  'Pascal';
Versi    =  7.0;
type    Nama =  string  [30];               {Deklarasi tipe}
var    Usia_Kamu :  integer;               {Deklarasi variabel}
        Nama_Kamu :  Nama;

procedure  Baca_dan_Tulis;              {Deklarasi procedure}
begin
write    ('Nama  Kamu    : ');  readln(Nama_Kamu);
write    ('Usia  Kamu    : ');  readln(Usia_Kamu);
writeln('Hallo,  ',  Nama_Kamu);
writeln('Umur  kamu  sekarang  ',  Usia_Kamu,  '  tahun');
end;

begin                                                  {Awal instruksi-instruksi program induk}
clrscr;
writeln('Hallo,  Saya  Mr.  Pascal');
Baca_dan_Tulis;
writeln('Kita  sedang  belajar  Bahasa  ',  Bahasa,  '  Versi  ',  Versi:3:1);
readkey;
end.