Free Download Turbo Pascal 7 plus Tutorial
Penulis Artikel : Agussalim
Turbo Pascal 7 plus Tutorial, berisikan:
- Aplikasi Turbo Pascal 7 - Powered by Borland.
- Tutorial Pilihan - diambil dari Indoprog dan ilmukomputer.com
- Manajemen menu program file dan desktop - oleh SalimKita.
Download Now for Free »
Tampilan menu pada program file:
Tampilan Interface Turbo Pascal 7 dan Tutorial dalam format PDF
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; jangan lupa mencoba yea.....
