Pemrograman Pascal Sederhana

Sekarang saya ingin berbagi sedikit ilmu mengenai pemrograman pascal. Bisa dibilang, pascal merupakan bahasa pemrograman yang paling mudah dipelajari. Selain menggunakan coding yang simple, pascal juga gak terlalu full color and so pasti nyaman di mata. Tinggal download softwarenya di mari. Lalu ketikkan script berikut




uses crt;

var
a, b, c, d, x, i, j : longint;
e, f, g, ce, re, fa, ke : real;
a1 : char;
user, pass, u, p, kt, hkt, hkt1 : string;

label
menu1, menu2, menu3, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12;

begin
  clrscr;
  user:= 'Ahmad Faris';
  pass:= 'tekojansa';
  x:=0;
  for i:=1 to 1000 do
   begin
     gotoxy(26,5); writeln('===============================');
     gotoxy(26,7); writeln('Silahkan Log In Terlebih Dahulu');
     gotoxy(26,9); writeln('===============================');
     gotoxy(26,12); write('Username : '); readln(u);
     gotoxy(26,13); write('Password : '); readln(p);
       if user=u then
          begin
             if p=pass then
                 begin
                   x:= 1;
                   break;
                 end;
          end;
     clrscr;
     gotoxy(25,2); writeln('Username Dan Password Tidak Cucok');
   end;
  clrscr;
  gotoxy(26,10); if x=0 then
  writeln('Maaf Akun Anda Telah Kadaluarsa')
  else if x=1 then
  writeln('Selamat Datang, ',user,'!');
  readln;
  begin
    clrscr;
    gotoxy(2,2); writeln('copyright 2011');
    gotoxy(2,3); writeln('All Rights Reserved');
    gotoxy(30,11); writeln('Amburadul v17.289');
    gotoxy(25,12); writeln('Include Trojan, Sality, Dinamite');
    readln;
  end;

menu1: begin
         clrscr;
         gotoxy(25,2); writeln('======================');
         gotoxy(25,3); writeln('Ahmad Faris Asy Syafiq');
         gotoxy(25,4); writeln('======================');
         gotoxy(30,6); writeln('------------');
         gotoxy(30,7); writeln('Menu Spesial');
         gotoxy(30,8); writeln('------------');
         gotoxy(30,10); writeln('1.Kalkulator');
         gotoxy(30,11); writeln('2.Konverter Suhu');
         gotoxy(30,12); writeln('3.Polindrom');
         gotoxy(30,13); writeln('4.Log Out');
         gotoxy(26,14); write('Masukkan Pilihan : ');
         readln (a);
          clrscr;
          case a of
          1: goto menu2;
          2: goto menu3;
          3: goto 12;
          4: goto 3;
          else
          gotoxy(30,5); writeln('Salah Mencet Cing !');
          gotoxy(28,6); readln;
          gotoxy(27,7); writeln('Komputernya Bisa Rusak Lo');
          gotoxy(26,8); readln;
          goto menu1;
       end;


menu2: begin
         clrscr;
         gotoxy(25,2); writeln('======================');
         gotoxy(25,3); writeln('Ahmad Faris Asy Syafiq');
         gotoxy(25,4); writeln('======================');
         gotoxy(26,6); writeln('--------------------');
         gotoxy(26,7); writeln('Kalkulator Sederhana');
         gotoxy(26,8); writeln('--------------------');
         gotoxy(26,10); writeln('1.Penjumlahan');
         gotoxy(26,11); writeln('2.Pengurangan');
         gotoxy(26,12); writeln('3.Perkalian');
         gotoxy(26,13); writeln('4.Pembagian');
         gotoxy(26,14); writeln('5.Keluar');
         gotoxy(26,16); write('Masukkan Pilihan : ');
         readln (a);
          clrscr;
          case a of
          1: goto 4;
          2: goto 5;
          3: goto 6;
          4: goto 7;
          5: goto menu1;
          else
          gotoxy(28,5); writeln('Pencet Yang Bener !');
          gotoxy(28,6); readln;
          gotoxy(15,7); writeln('Komputer Anda Akan Segera Terinfeksi Virus');
          gotoxy(26,8); readln;
          goto menu2;
       end;

4: begin
     clrscr;
     gotoxy(32,2); writeln('Penjumlahan');
     gotoxy(32,3); writeln('-----------');
     gotoxy(26,5); write('Masukkan Angka Pertama : ');
     readln (b);
     gotoxy(26,6); write('Masukkan Angka Kedua   : ');
     readln (c);
     d:=b+c;
     gotoxy(33,8); writeln('Hasil :', d);
     readln;
     writeln('Coba Lagi ? y/n');
     read   (a1);
      if (a1='y') or (a1='y') then
        begin
          goto 4;
        end;
      if (a1='n') or (a1='n') then
        begin
          goto menu2;
        end;
   end;

5: begin
     clrscr;
     gotoxy(32,2); writeln('Pengurangan');
     gotoxy(32,3); writeln('-----------');
     gotoxy(26,5); write('Masukkan Angka Pertama : ');
     readln (b);
     gotoxy(26,6); write('Masukkan Angka Kedua   : ');
     readln (c);
     d:=b-c;
     gotoxy(33,8); writeln('Hasil :', d);
     readln;
     writeln('Coba Lagi ? y/n');
     read   (a1);
      if (a1='y') or (a1='y') then
        begin
          goto 5;
        end;
      if (a1='n') or (a1='n') then
        begin
          goto menu2;
        end;
   end;

6: begin
     clrscr;
     gotoxy(34,2); writeln('Perkalian');
     gotoxy(34,3); writeln('---------');
     gotoxy(26,5); write('Masukkan Angka Pertama : ');
     readln (b);
     gotoxy(26,6); write('Masukkan Angka Kedua   : ');
     readln (c);
     d:=b*c;
     gotoxy(33,8); writeln('Hasil :', d);
     readln;
     writeln('Coba Lagi ? y/n');
     read   (a1);
      if (a1='y') or (a1='y') then
        begin
          goto 6;
        end;
      if (a1='n') or (a1='n') then
        begin
          goto menu2;
        end;
   end;

7: begin
     clrscr;
     gotoxy(34,2); writeln('Pembagian');
     gotoxy(34,3); writeln('---------');
     gotoxy(26,5); write('Masukkan Angka Pertama : ');
     readln (e);
     gotoxy(26,6); write('Masukkan Angka Kedua   : ');
     readln (f);
     g:=e/f;
     gotoxy(33,8); writeln('Hasil :',g:0:2);
     readln;
     writeln('Coba Lagi? y/n');
     read   (a1);
      if (a1='y') or (a1='y') then
        begin
          goto 7;
        end;
      if (a1='n') or (a1='n') then
        begin
          goto menu2;
        end;
   end;

menu3: begin
         clrscr;
         gotoxy(25,2); writeln('======================');
         gotoxy(25,3); writeln('Ahmad Faris Asy Syafiq');
         gotoxy(25,4); writeln('======================');
         gotoxy(29,6); writeln('--------------');
         gotoxy(29,7); writeln('Konverter Suhu');
         gotoxy(29,8); writeln('--------------');
         gotoxy(29,10); writeln('1.Celcius');
         gotoxy(29,11); writeln('2.Reamur');
         gotoxy(29,12); writeln('3.Farenheit');
         gotoxy(29,13); writeln('4.Kelvin');
         gotoxy(29,14);writeln('5.Keluar');
         gotoxy(29,16);write('Masukkan Pilihan : ');
         readln (a);
          clrscr;
          case a of
          1: goto 8;
          2: goto 9;
          3: goto 10;
          4: goto 11;
          5: goto menu1;
          else
          gotoxy(30,7); writeln('Salah Mencet !');
          gotoxy(30,8); readln;
          gotoxy(20,9); writeln('Komputer Anda Akan Segera Meledak');
          gotoxy(25,10); readln;
          goto menu3;
       end;

8: begin
     clrscr;
     gotoxy(25,2); writeln('Konversi Suhu Dalam Celcius');
     gotoxy(25,3); writeln('---------------------------');
     gotoxy(25,5); write('Masukkan Nilai Suhu : ');
     readln (b);
     ke := b+273 ;
     fa := (9/5*b)+32 ;
     re := 4/5*b ;
     gotoxy(25,6); writeln('Suhu Dalam Fahrenheit : ',fa:0:2);
     gotoxy(25,7); writeln('Suhu Dalam Reamur     : ',re:0:2);
     gotoxy(25,8); writeln('Suhu Dalam Kelvin     : ',ke:0:2);
     readln;
     writeln('Coba Lagi? y/n');
     read   (a1);
      if (a1='y') or (a1='y') then
        begin
          goto 8;
        end;
      if (a1='n') or (a1='n') then
        begin
          goto menu3;
        end;
   end;

9: begin
     clrscr;
     gotoxy(25,2); writeln('Konversi Suhu Dalam Reamur');
     gotoxy(25,3); writeln('--------------------------');
     gotoxy(25,5); write('Masukkan Nilai Suhu : ');
     readln (b);
     ke := ce+273 ;
     fa := (9/5*ce)+32 ;
     ce := 5/4*b ;
     gotoxy(25,6); writeln('Suhu Dalam Celcius    : ',ce:0:2);
     gotoxy(25,7); writeln('Suhu Dalam Farenheit  : ',fa:0:2);
     gotoxy(25,8); writeln('Suhu Dalam Kelvin     : ',ke:0:2);
     readln;
     writeln('Coba Lagi? y/n');
     read   (a1);
      if (a1='y') or (a1='y') then
        begin
          goto 9;
        end;
      if (a1='n') or (a1='n') then
        begin
          goto menu3;
        end;
   end;

10: begin
      clrscr;
      gotoxy(25,2); writeln('Konversi Suhu Dalam Farenheit');
      gotoxy(25,3); writeln('-----------------------------');
      gotoxy(25,5); write('Masukkan Nilai Suhu : ');
      readln (b);
      ke := ce+273 ;
      re := 4/5*ce ;
      ce := 5/9*(b-32) ;
      gotoxy(25,6); writeln('Suhu Dalam Celcius  : ',ce:0:2);
      gotoxy(25,7); writeln('Suhu Dalam Reamur   : ',re:0:2);
      gotoxy(25,8); writeln('Suhu Dalam Kelvin   : ',ke:0:2);
      readln;
      writeln('Coba Lagi? y/n');
      read   (a1);
       if (a1='y') or (a1='y') then
         begin
           goto 10;
         end;
       if (a1='n') or (a1='n') then
         begin
           goto menu3;
         end;
    end;

11: begin
      clrscr;
      gotoxy(25,2); writeln('Konversi Suhu Dalam Kelvin');
      gotoxy(25,3); writeln('--------------------------');
      gotoxy(25,5); write('Masukkan Nilai Suhu : ');
      readln (b);
      re := 4/5*ce ;
      fa := (9/5*ce)+32 ;
      ce := b-273 ;
      gotoxy(25,6);writeln('Suhu Dalam Celcius    : ',ce:0:2);
      gotoxy(25,7);writeln('Suhu Dalam Reamur     : ',fa:0:2);
      gotoxy(25,8);writeln('Suhu Dalam Farenheit  : ',ke:0:2);
      readln;
      writeln('Coba Lagi? y/n');
      read   (a1);
       if (a1='y') or (a1='y') then
         begin
           goto 11;
         end;
       if (a1='n') or (a1='n') then
         begin
           goto menu3;
       end;
    end;

12: begin
    clrscr;
    gotoxy(28,2); writeln ('Program Polindrom');
    gotoxy(28,3); writeln ('-----------------');
    gotoxy(25,5); write ('Masukkan Kata : ');
    readln (kt);
     j:=length(kt);
     hkt:='';
      for i:=1 to j do
       hkt:=hkt+kt[i];
      for i:=j downto 1 do
       hkt1 :=hkt1+kt[i];
    gotoxy(25,8); writeln ('Asal : ',hkt);
    gotoxy(25,9); writeln ('Dibalik : ',hkt1);
     gotoxy(25,11); if (hkt=hkt1) then
     writeln ('Kata Tersebut Termasuk POLINDROM')
     else writeln ('Kata tersebut TIDAK Termasuk POLINDROM');
    readln;
    writeln('Coba Lagi? y/n');
      read   (a1);
       if (a1='y') or (a1='y') then
         begin
           goto 12;
         end;
       if (a1='n') or (a1='n') then
         begin
           goto menu1;
       end;
    end;

3: begin
     clrscr;
     gotoxy(28,10); writeln('Please Wait');
     gotoxy(40,10); delay(100); write('..');
     gotoxy(42,10); delay(300); write('...');
     gotoxy(45,10); delay(500); write('..');
     gotoxy(47,10); delay(50); write('.');
     gotoxy(30,12); writeln ('Load Successfully');
     readln;
     clrscr;
     gotoxy(26,10); writeln('=======================');
     gotoxy(26,12); writeln('Cah Keset Males Ngitung');
     gotoxy(26,14); writeln('=======================');
     readln;
     clrscr;
     gotoxy(32,3); writeln('CHAPTER THREE');
     gotoxy(32,4); writeln('-------------');
     gotoxy(28,7); writeln('Ahmad Faris Asy Syafiq');
     gotoxy(35,9); writeln('XII TKJ1/3');
     gotoxy(20,15); writeln(' SMK Negeri 7 (STM Pembangunan) Semarang');
     readln;
   end;
 end;
 end;
 end;
end.

tinggal di save, compile lalu run. Kalo masih gagal ya langsung download aja dah di sini.