Messages

1

Baru Belajar / Coba-Coba Membuat Tabel

« pada: Juli 13, 2018, 01:37:51 PM »

Halo	Halo
Halo	Halo

2

Teknologi Informasi / Re:Pemrograman Komputer dengan Bahasa Pascal (Irie Pascal) untuk MS DOS

« 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.


3

Teknologi Informasi / Re:Pemrograman Komputer dengan Bahasa Pascal (Irie Pascal) untuk MS DOS

« 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.


4

Teknologi Informasi / Pemrograman Komputer dengan Bahasa Pascal (Irie Pascal) untuk MS DOS

« 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.