Menggunakan If Then Else Pada Turbo Pascal 7

Komputer dapat mengambil keputusan untuk berdasarkan aliran logika yang telah ditentukan sebelumnya yang dikenal sebagai algoritma.

Bagaimana penulisan perintah pengambilan keputusan pada Turbo Pascal 7? Dalam Tutorial turbo Pascal 7 Kali ini saya akan memberikan Salah satu perintah struktur pengambilan keputusan adalah:

If condition Then statement; 

Di mana condition adalah sesuatu yang bernilai True atau False, dan statement adalah perintah yang akan dijalankan.

Dapatkah anda memberikan sebuah contoh pemakaian perintah If? Baiklah, misalnya kita akan membuat program menentukan pembayaran berdasarkan berdasarkan jumlah belanja, jika diatas 100000 (seratus ribu) mendapatkan potongan 3%, maka programnya adalah sebagai berikut:

Uses Crt;
Belanja: Real;
Write('Jumlah belanja ?');
Readln(Belanja);
If Belanja < 100000 Then 
Belanja := Belanja * 0.97;
Writeln ('Jumlah yang harus anda bayar', Belanja:10:2);
Readln;
end.

Ok, saya kira anda sekarang sudah mengerti bahwa pada prinsipnya Statement setelah Then akan dijalankan kalau condition setelah If menghasilkan nilai True. Bagaimana kalau condition True Statement dijalankan, dan sebaliknya Statement2 dijalankan?

Untuk keputusan seperti ini, pascal menyediakan struktur pengambilan keputusan. If condition Then Statement1 Else Statement2;

Jika anda pusing ditulis begini juga bias koq….
gimana selera anda (ngaco ,…emang makanan.. :p )

If conditon Then Statement1 Else Statement2;

Masih kebingungan khan….., don’t worry masbro ane buatkan contoh supaya anda memahaminya…

program latihan;
Uses Crt;
VarBilangan: Integer;
BeginClrscr;
Write('Masukan Bilangan?'); 
Readln(Bilangan);
If (Bilangan Mod 2) = 0 Then
Writeln (‘Genap’);
else
Writeln (‘Ganjil’);
Readln;
End.

Bagaimana ….apakah anda puas..?

Jika seandainya ada saran kritik,maupun pertanyaan dapat anda cantumkan…

Apabila tidak merepotkan menyita waktu anda, saya minta komentar anda tentang artikel saya,….demi kemajuan .
:)

Terima kasih atas kunjungan anda!