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;

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;

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.