Pert.7 Percabangan Pascal

Statemen If

Dalam Pascal ada beberapa bentuk percabangan dengan kondisi IF diantaranya yaitu :
1. If tunggal
contoh :
Uses crt ;
var n1 : real ;
begin
clrscr;
textcolor (14) ;writeln (‘ Masukan Nilai Anda : ‘);readln(n1);
if n1 >= 80 then
writeln(‘ Nilai Bagus ‘);
readln;
end.

2. If…Else
contoh :
Uses crt ;
var n1 : real ;
begin
clrscr;
textcolor (14) ;writeln (‘ Masukan Nilai Anda : ‘);readln(n1);
if n1 >= 80 then
writeln(‘ Nilai Bagus ‘)
else
writeln(‘ Nilai Buruk ‘);
readln;
end.

3. If…Else…If
contoh:
Uses crt ;
var n1 : real ;
begin
clrscr;
textcolor (14) ; writeln (‘ Masukan Nilai Anda : ‘); readln(n1);
if n1 >= 80 then
begin
textcolor(15); writeln(‘ Nilai Bagus ‘);
textcolor(18); writeln(‘ keterangan : memuaskan’);
write(#03);
end
else
if n1 >= 60 then
begin
textcolor(15); writeln(‘ Nilai Baik ‘);
textcolor(18); writeln(‘ keterangan : Baik’);
write(#03);
end
else
begin
textcolor(15); writeln(‘ Nilai Buruk ‘);
textcolor(18); writeln(‘ keterangan : Buruk’);
write(#02);
end;

readln;
end.

Jika kita ingin mencetak hasil lebih dari satu maka harus diapit dengan begin dan end.
Latihan :
Coba kamu kerjakan soal berikut ini :

PERHITUNGAN NILAI SISWA

Masukan Nim anda :
Masukan Nama anda :
Masukan Nilai Tugas :
Masukan Nilai Absen :
Masukan Nilai UTS :
Masukan Nilai UAS :

Siswa Dengan Nim :
Mendapat Nilai Rata-rata :
Dengan Grade :
Dan Keterangan :

ketentuan sebagai berikut :
Jika nilai rata >= 80 dapat grade A keterangan Sangat Memuaskan
Jika nilai rata >= 65 dapat grade B keterangan Memuaskan
Jika nilai rata >= 40 dapat grade C keterangan Cukup
Jika nilai rata < 40 dapat grade D keterangan Buruk

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s