Home » algoritma » belajar » Komputer » pascal » Pendidikan » sturktur data » Tips » turbo pascal » umum » Logika Percabangan (Part 2)

12.26.2012

Logika Percabangan (Part 2)

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.
     

Related posts

Description: Logika Percabangan (Part 2) Rating: 4.5 Reviewer: Tedy ItemReviewed: Logika Percabangan (Part 2)
Al
Mbah Qopet Updated at: 14.44.00
Diposting oleh

0 komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)