Contoh-Contoh Program Turbo Pascal 2

Assalamu'alaikum, pada postingan kali ini saya akan melanjutkan dari postingan sebelumnya, yaitu Contoh-Contoh Program Turbo Pascal 1 .

Pada postingan ini saya akan memberi sedikit pengetahuan saya tentang Program Perulangan Pada Turbo Pascal, Program Perulangan Terdiri dari : For - Do , Repeat - Until , dan While - Do
Berikut ini Contoh Programnya :

1. Program For - Do

Program ForDo;
Uses crt;
Var
   A : Integer;

Begin
clrscr;
    For A:=1 to 5 Do
       Begin
        Write(A);
        Writeln(' Fajar');
       End;
Readln;
End.

Bila dijalankan akan Muncul tampilan :

1 Fajar
2 Fajar
3 Fajar
4 Fajar
5 Fajar

2. Program Repeat - Until

Program RepeatUntil;
Uses crt;
Var
   B :Integer;

Begin
clrscr;
    B:=1 ;
    Repeat
      Writeln('Program Repeat-Until');
    B:=B+1;
    Until (a>5);
Readln;
End.

Jika Program diatas di jalankan, maka akan menghasilkan :

Program Repeat-Until
Program Repeat-Until
Program Repeat-Until
Program Repeat-Until
Program Repeat-Until

3. Program While - Do

Program WhileDo;
Uses crt;
Var
   C :Integer;

Begin
clrscr;
    C:=0 ;
    While a<5 Do
    Begin
        Write(C);
        Writeln(' While-Do');
        C:=C+1 ;
    End;
Readln;
End.

Bila dijalankan Program diatas, akan muncul tampilan :

0 While-Do
1 While-Do
2 While-Do
3 While-Do
4 While-Do

Mungkin Sampai disini saja Postingan kali ini, Semoga Dapat bermanfaat bagi kalian para pembaca, Nantikan terus postingan selanjutnya.
Wassalamu'alaikum

Read More

Contoh-Contoh Program Turbo Pascal 1

Assalamu'alaikum Wr Wb..

Sudah lama saya tidak membuat postingan,, Pada postingan kali ini saya akan memberikan Beberapa Script Turbo Pascal yang pernah saya buat.. Sebelumnya saya akan memberikan Software Turbo Pascal terlebih dahulu yang belum punya silahkan di download terlebih dahulu  >>> DISINI <<<
Jika sudah di download, lalu kalian install dengan mengklik 2 kali pada Turbo Pascal 7 for Windows7-8-8.1[32bit & 64bit].exe .. Jika sudah terinstall kalian jalankan Turbo Pascal 7 for Windows7-8-8.1 by TechApple.Net .....

Berikut Contoh-Contoh Script Turbo Pascal : 

1. Program Seleksi Lulus atau Tidak

Program Seleksi;

Uses crt;

Var

   NilaiUjian : real;

   Ket        : string[16];

Begin

Clrscr;

  ket:='Anda Tidak Lulus';

  Write('Nilai yang Didapat ? ');
  Readln(NilaiUjian);

  if NilaiUjian > 60 Then ket:='Anda Lulus'

  Writeln(ket);

Readln;

End.

Jika Program di atas dijalankan, anda akan diminta memasukkan Nilai yang didapat, Jika Nilai yang didapat di atas 60 maka akan muncul "Anda Lulus", jika Nilai yang dimasukkan 60 atau dibawahnya maka akan muncul "Anda Tidak Lulus".. 

2. Program Perkalian

Program Perkalian;

Uses crt;

Var

   a,b,c : Longint;

Begin

clrscr;

   Writeln('Perkalian');
   Writeln;
   Write('Masukkan Angka Pertama = ');
   Readln(a);
   Write('Masukkan Angka Kedua   = ');
   Readln(b);
   Writeln;
   c:=a*b ;
   Writeln(Hasilnya adalah = ',c);
Readln;
End.

Jika Program diatas dijalankan kalian akan diminta memasukkan angka yang ingin di kali, Jika kalian ingin pembagian, pertambahan, pengurangan, hanya diganti yang berwarna merah menjadi operasi hitung yang kalian inginkan

3. Program Volume Tabung

Program Volume_Tabung;

Uses crt;

Label

     10;

Var

   R,T,Volume : real ;

   Jawab      : char ;

Begin

clrscr;

  10:Writeln;

  Write('Jari-Jari Alas  = ');

  Readln(R);

  Write('Tinggi Tabung   = ');

  Readln(T);

  Volume:=Pi*R*R*T ;

  Writeln('Volume Tabung = ',Isi:9:2);

  Writeln;

  Write('Apakah Ingin Menghitung lagi (Y/T) ? ');

  Readln(Jawab);

  if (Jawab='Y') or (Jawab='y') Then goto 10;

Readln;

End.

Jika Program di atas dijalankan kalian masukkan Jari-jari lingkaran, dan Tinggi tabung,, Jika sudah akan ada Hasilnya..

4. Program Positive/Negative 

Program Positive_Negative;

Uses crt;

Var

   Bil : Integer ;

   

Begin

clrscr;

   Writeln('Menentukkan bilangan Positive/Negative')

   Writeln;

   Write('Masukkan Bilangan = ');

   Readln(Bil);

   Writeln;

   if Bil < 0 Then

    Write('Bilangan Itu Negative');

   else if Bil > 0 Then

    Write('Bilangan Itu Positive');

   else

    Write('Bilangan Itu Nol');

Readln;

End.

Jika Program di atas dijalankan akan diminta untuk memasukkan Bilangan,,
# Jika dimasukkan bilangan -3, akan muncul tulisan yang berwarna merah #
# Jika dimasukkan bilangan 3, maka akan muncul tulisan berwarna biru #
# Jika dimasukkan bilangan 0, maka akan muncul tulisan berwarna kuning  #

5. Program Kelipatan

Program Kelipatan;

Uses crt;

Var

   a : Integer ;

Begin

clrscr;

    Write('Masukkan angka = ');

       Readln(a);

    Writeln;

     Repeat

      Write(a,'');

      a:=a+a ;

      Readln;

     Until a>100 ;

Readln;

End.

Tak terasa Postingan kali ini sudah selesai,, Semoga Postingan tentang Macam-macam Script Turbo Pascal dapat bermanfaat bagi para pembacanya,,,
Jika ada kesalahan pada Script-Script diatas atau ada kebingungan mohon segera di coment,,
Nantikan terus Postingan di Blog ini yakk,

Wassalamu'alaikum

Read More