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;
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.
0 Komentar untuk "Pengenalan Turbo Pascal 7"
Silahkan berkomentar dengan bijak dan positif. Komentar anda menunjukkan sikap anda. Terima kasih :-)