PASCAL CONTOH PROGRAM TEKNIK PERCABANGAN (BAGIAN 1)

TEKNIK PERCABANGAN (BAGIAN 1)

SOAL:

1. Buatlah program yang menerima dua masukan bilangan yang memiliki syarat bilangan pertama tidak boleh lebih kecil dari 3 dan bilangan kedua tidak boleh lebih kecil dari 4. Jika syarat dipenuhi, maka akan muncul kalimat “Pascal”. Gunakan percabangan ifsatu kondisi yang disertai dengan or!

2. Buatlah program penentuan bilangan ganjil yang menerima masukan sebuah bilangan kemudian menampilkan apakah bilang tersebut adalah bilangan ganjil dengan menggunakan percabangan satu if!

3. Buatlah program bilangan terbesar di antara 3 buah bilangan yang dimasukkan dengan menggunakan if bersarang!

JAWABAN:

1. program bilangan;
uses crt;

var
   bilangan1, bilangan2 : real;

begin
clrscr;
     write('Masukan bilangan 1: '); readln(bilangan1);
     write('Masukan bilangan 2: '); readln(bilangan2);
     writeln('');
     if(bilangan1 > 3 ) and (bilangan2 > 4 ) then
     writeln('Pascal');
     readln;
End.

2. program jenisBilangan;

uses crt;

Var

   bilangan, sisa : integer;

begin

clrscr;

     write('Masukan bilangan : '); readln(bilangan);

     writeln('');

     sisa := bilangan mod 2;

     if( sisa <> 0) then

     write('Ganjil');

     readln;

end.

3. program bil_terbesar;

uses crt;

var

   bil1, bil2, bil3 : real;

begin

clrscr;

     write('Masukan bilangan 1 : '); readln(bil1);

     write('Masukan bilangan 2 : '); readln(bil2);

     write('Masukan bilangan 3 : '); readln(bil3);

     writeln('');

     if(bil1>bil2) and (bil1>bil3) then

     writeln('Bilangan 1 yang terbesar');

     if(bil2>bil1) and (bil2>bil3) then

     writeln('Bilangan 2 yang terbesar');

     if(bil3>bil1) and (bil3>bil2) then

     writeln('Bilangan 3 yang terbesar');

     readln;

end.

THANK YOU SOB...

JANGAN LUPA KOMENT DAN LIKE FB FANSPAGE..

Tweet