Kritik.com

Kategori Umum => Teknologi Informasi => Topik dimulai oleh: Mat Euler pada Juni 29, 2018, 02:38:39 PM

Judul: Pemrograman Komputer dengan Bahasa Pascal (Irie Pascal) untuk MS DOS
Ditulis oleh: Mat Euler pada Juni 29, 2018, 02:38:39 PM

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. :)

Judul: Re:Pemrograman Komputer dengan Bahasa Pascal (Irie Pascal) untuk MS DOS
Ditulis oleh: Mat Euler pada Juni 29, 2018, 04:17:48 PM

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.


Judul: Re:Pemrograman Komputer dengan Bahasa Pascal (Irie Pascal) untuk MS DOS
Ditulis oleh: Mat Euler pada Juni 29, 2018, 04:22:48 PM

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.