Jumat, Januari 16, 2009

Free Download Turbo Pascal 7 plus Tutorial

Download Turbo Pascal 7 plus Tutorial. Kompiler pemograman basic berbasis command line persembahan dari Borland. Bahasa Pascal adalah salah satu cabang yang diikutsertakan dalam Olimpiade Sains di Indonesia, juga menjadi mata kuliah pada beberapa jurusan di universitas.




Penulis Artikel : Agussalim
 
Turbo Pascal 7 plus Tutorial, berisikan:
  1. Aplikasi Turbo Pascal 7 - Powered by Borland.
  2. Tutorial Pilihan - diambil dari Indoprog dan ilmukomputer.com
  3. Manajemen menu program file dan desktop - oleh SalimKita.
Turbo Pascal 7 plus Tutorial bersifat freeware dan tidak komersil. Jika ada masalah, silahkan hubungi kami.

Download Now for Free »

Tampilan menu pada program file:



Tampilan Interface Turbo Pascal 7 dan Tutorial dalam format PDF



Jumat, November 09, 2007

Pernyataan Logika / Penyeleksian Kondisi / Rumus IF - Turbo Pascal 7


Tingkat 1 _________________________________

  If (Syarat) Then
    (yang dilakukan saat syarat terpenuhi);


  Keterangan :
  Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan satu perintah. Jika syarat tidak terpenuhi, tidak dikerjakan sesuatu.

  Contoh :

  If A:=10 Then
    WriteLn('Selamat. Anda benar.');



Tingkat 2 _________________________________

  If (Syarat) Then
    (yang dilakukan saat syarat terpenuhi)
  Else
    (yang dilakukan saat syarat tidak terpenuhi);


  Keterangan :
  Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan satu perintah. Jika syarat tidak terpenuhi, akan dikerjakan satu perintah lainnya.

  Contoh :

  If A:=10 Then
    WriteLn('Selamat. Anda benar.')
  Else
    WriteLn('Anda belum beruntung.');



Tingkat 3 _________________________________

  If (Syarat) Then
    Begin
      (yang dilakukan saat syarat terpenuhi);
      (...);
    End
  Else
    (yang dilakukan saat syarat tidak terpenuhi);


  Keterangan :
  Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika syarat tidak terpenuhi, akan dikerjakan satu perintah lainnya.

  Contoh :

    

  If B<>0 Then
    Begin
      H:=A/B;
      WriteLn;
      WriteLn('Harga H = ',H:13:2);
    End
  Else
    WriteLn('Harga H Imajiner.');



Tingkat 4 _________________________________

  If (Syarat) Then
    Begin
      (yang dilakukan saat syarat terpenuhi);
      (...);
    End
  Else
    Begin
      (yang dilakukan saat syarat tidak terpenuhi);
      (...);
    End;


  Keterangan :
  Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika syarat tidak terpenuhi, akan dikerjakan beberapa perintah lainnya.

  Contoh :

    

  If B<>0 Then
    Begin
      H:=A/B;
      WriteLn;
      WriteLn('Harga H = ',H:13:2);
    End
  Else
    Begin
      WriteLn;
      WriteLn('Harga H Imajiner.');
      WriteLn('Harga B tidak boleh NOL.');
      WriteLn('Silahkan coba lagi.');
    End;



Tingkat 5.A _________________________________

  If (Syarat1) Or (Syarat2) Then
    Begin
      (yang dilakukan saat salah satu syarat terpenuhi);
      (...);
    End
  Else
    Begin
      (yang dilakukan saat kedua syarat tidak terpenuhi);
      (...);
    End;


  Keterangan :
  Pernyataan Logika yang jika salah satu syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika kedua syarat tidak terpenuhi, akan dikerjakan beberapa perintah lainnya.

  Contoh :

    

  If (B<0) Or (C=0) Then
    Begin
      WriteLn;
      WriteLn('Harga H Imajiner.');
      WriteLn('Harga B tidak boleh kurang dari NOL dan.');
      WriteLn('Harga C tidak boleh NOL.');
    End
  Else
    Begin
      H:=SQRT(B)/C;
      WriteLn;
      WriteLn('Harga H = ',H:13:2);
    End;


Tingkat 5.B _________________________________

  If (Syarat1) And (Syarat2) Then
    Begin
      (yang dilakukan saat Kedua syarat terpenuhi);
      (...);
    End
  Else
    Begin
      (yang dilakukan saat salah satu / kedua syarat tidak terpenuhi);
      (...);
    End;


  Keterangan :
  Pernyataan Logika yang jika kedua syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika salah satu syarat tidak terpenuhi, akan dikerjakan beberapa perintah lainnya.

  Contoh :

    

  If (B>=0) And (C<>0) Then
    Begin
      H:=SQRT(B)/C;
      WriteLn;
      WriteLn('Harga H = ',H:13:2);
    End
  Else
    Begin
      WriteLn;
      WriteLn('Harga H Imajiner.');
      WriteLn('Harga B tidak boleh kurang dari NOL dan.');
      WriteLn('Harga C tidak boleh NOL.');
    End;


Tingkat 5.C* _________________________________

  Rumus Umum, sama seperti Tingkat 5.A

  Keterangan :
  Pernyataan Logika yang memadukan model-model di atas. Hasil yang diperoleh dari pernyataan seperti ini akan menampilkan hasil yang lebih akurat dan efisien.

  Contoh :

    

  If (B<0) Or (C=0) Then
    Begin
      WriteLn;
        If B<0 Then
          WriteLn('Harga B tidak boleh kurang dari NOL.');
        If C=0 Then
          WriteLn('Harga C tidak boleh NOL.');
      WriteLn('Harga H Imajiner.');
    End
  Else
    Begin
      H:=SQRT(B)/C;
      WriteLn;
      WriteLn('Harga H = ',H:13:2);
    End;


Tingkat 5.D* _________________________________

  Rumus Umum, sama seperti Tingkat 5.B

  Keterangan :
  Pernyataan Logika yang memadukan model-model di atas. Hasil yang diperoleh dari pernyataan seperti ini akan menampilkan hasil yang lebih akurat dan efisien.

  Contoh :

    

  If (B>=0) And (C<>0) Then
    Begin
      H:=SQRT(B)/C;
      WriteLn;
      WriteLn('Harga H = ',H:13:2);
    End
  Else
    Begin
      WriteLn;
        If B<0 Then
          WriteLn('Harga B tidak boleh kurang dari NOL.');
        If C=0 Then
          WriteLn('Harga C tidak boleh NOL.');
      WriteLn('Harga H Imajiner.');
    End;


Senin, Oktober 29, 2007

Pertemuan 2 : Operator-Operator Matematika

- Operator
Exp :
+ : tambah
- : kurang
/ : bagi
* : kali
> : lebih dari
< : kurang dari
= : sama dengan
>= : lebih dari sama dengan
<= : kurang dari sama dengan
<> : tidak sama dengan


- Penjumlahan
Exp :
Panjang:=10+A;
Sisi:=B+A+G+56;


- Pengurangan
Exp :
Panjang:=10-A;
Hasil:=Laba-Pajak;


- Perkalian
Exp :
Panjang:=10*A*K;
Luas:=P*l;
L:=s*s;


- Pembagian
Exp :
Panjang:=A/3;
Hasil:=100/3;


- Campuran
Exp :
Hasil:=(((A+B)/2)-100)*3;
Luas:=(P*l)/2;


- Pangkat Dua
Exp :
Hasil:=SQR(5); -----> lima kuadrat.
Hasil:=SQR(r); -----> r kuadrat.


- Akar Dua
Exp :
Hasil:=SQRT(5); -----> Akar 2 dari 5
Hasil:=SQRT(n); -----> Akar 2 dari n


- Campuran
Exp :
LuasLing:=3.14*SQR(r);
K:=2*3.14*r;

Kamis, Oktober 04, 2007

Program Mencari Luas Segitiga

Wawasan Dasar : __________________________

- Uses CRT : Membuat referensi ke objek CRT
- Var : Variabel
- Begin : Mulai
- ClrScr : perintah Clear Screen.
- Write('text') : Mencetak string(text) ke layar.
- WriteLn('text') : Mencetak string(text) ke layar dan menambah baris baru.
- Read(X) : Meminta input dari pengguna ke dalam variabel X.
- ReadLn(X) : Meminta input dari pengguna ke dalam variabel X dan menambah baris baru.
- ReadKey : Perintah untuk meminta penekanan KeyBoard.
- End. : Mengakhiri/Akhir program.


Program Statis : __________________________

Program Luas_Segitiga;
Uses CRT;
Var
Alas,Tinggi:Integer;
Luas:Real;
SL:Char;

BEGIN
ClrScr;
WriteLn('Program Mencari Luas Segitiga');
WriteLn;
Alas:=10;
Tinggi:=15;
Luas:=(Alas*Tinggi)/2;
WriteLn;
WriteLn('Luasnya Adalah ',Luas:15:2);
SL:=ReadKey;
END.



Program Dinamis : __________________________

Program Luas_Segitiga;
Uses CRT;
Var
Alas,Tinggi:Integer;
Luas:Real;
SL:Char;
BEGIN
ClrScr;
WriteLn('Program Mencari Luas Segitiga');
WriteLn;
Write('Masukkan Alas ? ');ReadLn(Alas);
Write('Masukkan Tinggi ? ');ReadLn(Tinggi);
Luas:=(Alas*Tinggi)/2;
WriteLn;
WriteLn('Luasnya Adalah ',Luas:15:2);
SL:=ReadKey;
END.