Pemrograman Komputer dengan Bahasa Pascal (Irie Pascal) untuk MS DOS

[Mat Euler]

Salam damai Kristus.

Mula-mula, unduh (download) file berikut ini.

http://kritikcom.atwebpages.com/pascal.txt

Kemudian, ubah nama file hasil download, yaitu "pascal.txt" menjadi "pascal.zip".

Kemudian, letakkan file "pascal.zip" ke directory "D:\>" .

Kemudian, extract-lah file "pascal.zip" agar menjadi folder "PASCAL" beserta file-file isinya.

Kemudian, bukalah software MS DOS (Command Prompt) di Windows.

Kemudian, pada MS DOS, ketiklah "d:" lalu tekan ENTER.

Kemudian, pada MS DOS, ketiklah "cd pascal" lalu tekan ENTER.

Kemudian, pada MS DOS, ketiklah "ipc ris.pas" lalu tekan ENTER untuk meng-complile file "ris.pas" menjadi file "ris.ivm".

Kemudian, pada MS DOS, ketiklah "ivm ris" lalu tekan ENTER untuk menjalankan file "ris.ivm".


Prosedur ini berlaku juga untuk file dengan ekstensi ".pas" lainnya.

Selamat mencoba.

Wal bi Taufiq wal Hidayah.

[Mat Euler]

Shalom aleichem.

Contoh Program "ris.pas"

Kode: [Pilih]

program ris;

var n:string;

begin
  writeln('');
  writeln('  KONVERSI OM RIS -IAN');
  write  ('  Coba.. sucoba.. ketik.. suketik.. namamu!  '); readln(n);
  if(n='Roni')or(n='roni')
    then writeln('  ',n,' ---> ','Surondengsendengsendeng..!')
  else if(n='Dodo')or(n='dodo') then writeln('  ',n,' ---> ','Sodosodo!')
  else if(n='Evi')or(n='evi') then writeln('  ',n,' ---> ','Suvisuvi!')
  else if(n='Hantu')or(n='hantu') then writeln('  ',n,' ---> ','Suntu-suntu!')
  else if(n='Dendi')or(n='dendi')
    then writeln('  ',n,' ---> ','Sudendi Chrocodile!')
  else if(n='Hindu')or(n='hindu') then writeln('  ',n,' ---> ','Sundu-sundu!')
  else if(n='Bandung')or(n='bandung') then writeln('  ',n,' ---> ','Sundung-sundung!')
  else if(n='Bantul')or(n='bantul') then writeln('  ',n,' ---> ','Suntul-suntul!')
  else writeln('  ',n,' ---> ','Su',n)
end.


Hosana in excelcis.

[Mat Euler]

Horas.

Contoh program "sukro.pas"

Kode: [Pilih]

program sukro;
procedure p2;
var n:string;
begin
  writeln('  Oooo SUKRO!');
  write  ('  Asli mana Mas? '); readln(n);
  writeln('');
  if(n='dua kelinci')or(n='DUA KELINCI')or(n='Dua Kelinci') then
  begin
    writeln('  Oooo DUA KELINCI!');
    writeln('  Nah gitu dong!');
    writeln('');
  end
  else
  if(n='quit') then halt
  else
  begin
    writeln('  Lho kok ',n,'?? Mbok DUA KELINCI!');
    writeln('  ULANGI!!');
    writeln(''); p2;
  end;
end;
procedure p1;
var n:string;
begin
  write  ('  Namanya siapa Mas? '); readln(n);
  writeln('');
  if(n='sukro')or(n='SUKRO')or(n='Sukro') then
  begin
    p2;
    writeln('');
  end
  else
  if(n='quit') then halt
  else
  begin
    writeln('  Lho kok ',n,'?? Mbok SUKRO!');
    writeln('  Ulangi!!');
    writeln(''); p1;
  end;
end;
begin
  writeln('');
  p1;
end.


Haleluya.