Postingan kali ini melanjutkan postingan sebelumnya yang berjudul logika percabangan. kali ini saya memberikan beberapa contoh logika percabangan :
contoh 1.
if nilai >= 60 then lulus
else
if nilai <=60 then tidak lulus
program latihan_percabangan2;
uses wincrt;
var nilai :integer;
ket :string;
begin
write ('Input Nilai : ');readln(nilai);
if nilai >=60 then
begin
ket:='Lulus';
end
else
begin
ket:='Tidak Lulus';
end;
writeln('Keterangan : ',ket);
end.
contoh 2.
Tentukan apakah wujud air dalam keadaan cair, padat, gas.
program latihan_percabangan3;
uses wincrt;
var suhu :integer;
ket :string;
begin
write('Input Suhu : ');readln(suhu);
if suhu <= 0 then
begin
ket:='Padat';
end
else
if suhu >=100 then
begin
ket:='Gas';
end
else
begin
ket:='Cair';
end;
write ('Keterangan : ',ket);
end.
0 komentar:
Posting Komentar