PERCABANGAN
IF
a. if tunggal
Kasus :
Nilai yang dimasukan dari keyboard akan dikonversi menjadi keterangan Lulus
atau Maaf ulang tahun depan degan
kondisi , Jika nilai yang di masukan lebih besar sama dengan 70 maka Anda Lulus, jika nilai lebih kecil
dari 70 Maaf Ulang Tahun Depan.
Penyelesain Algoritma
nilai : integer
Input (nilai)
IF(nilai>=70) then
KET=’Anda LuLus’
eLse
KET=’Maaf Ulang Tahun
Depan’
Dalam Bahasa Pascal
uses wincrt;
Var
nilai : integer;
begin
writeln('Program Untuk Konversi
Angka Menjadi Lulus atau Tidak');
writeln('Dengan Kondisi jikan
Nilai >= 70 lulus jika < 70 maaf ulang tahun depan');
writeln('Masukan Data yang akan
di konversi : ');
readln(nilai);
if (nilai>=70) then
begin
writeln('Anda Lulus');
end else
begin
writeln('Maaf Ulang
Tahun Depan');
end;
end.
b. if Majemuk
Kasus :
Sebuah nilai yang dimasukan di konversi menjadi keteragan nilai dengan
kondisi adalah jika nilai yang dimasukan lebih besar sama dengan 80 maka
nilainya A, jika nilai lebih besar sama dengan 70 maka nilainya B, jika nilai
lebih besar 60 maka nilainya C, Jika nilai lebih besar sama dengan 60 maka
nilainya D selain itu nilainya E.
Penyelesaian Algoritma
Nilai = integer
Ket = character
Input (nilai)
if nilai>= 80 then
Ket='A'
else
if nilai>=70 then
Ket = ‘B’
else if nilai>=60 then
Ket = ‘c’
else if nilai>=50 then
Ket = ‘D’
else
Ket= ‘E’
Dalam Bahasa Pascal
uses wincrt;
Var
nilai: integer;
Ket : char;
begin
writeln('Program Untuk Konversi Angka
Menjadi Lulus atau Tidak');
writeln('Dengan Kondisi jikan Nilai >=
70 lulus jika < 70 maaf ulang tahun depan');
writeln('Masukan Data yang akan di
konversi : ');
readln(nilai);
if (nilai>=80) then
begin
Ket :='A';
end else
if (nilai>=70) then
begin
Ket :='B';
end else
if (nilai>=60) then
begin
Ket :='C';
end else
if (nilai>=50) then
begin
Ket :='D';
end else
begin
Ket :='E';
end;
writeln('Nilai : ',nilai,' Keterangan
Nilai adalah ',Ket);
end.
Soal
1. Sebuah algoritma u/k menghitung
gaji pokok dan tunjangan,dengan ketentuan :
Var
Gol:string
Tunjangan,gaji pokok:ReaL
Algoritma
Infut(‘gol’)
If gol=’2A’ then
Gaji pokok 1000.000
Tunjangan 10/100*1000.000
Else if gol=’2B’ then
Gaji pokok..1.200,000
Tunjangan..5/100*1.200,000
Else if gol=’2C’ then
Gaji pokok..1.500,000
Tunjangan..12/100*1.500,000readln
Else
Gaji pokok..900.000
Tunjangan..o
Output(gol,gaji_pokok,tunjangan)
Buatlah Program Pascalnya :
2. Buatlah algoritma untuk menetukan sebuah
bilangan apakan ganjil aau genap di bawah ini kedalam
bahasa Pascal
Var
Bilangan:Real
Ket:string
Algoritma
Input(bilangan)
If bilangan mod 2=0 then
ket =’genap’
Else
Ket’ganjil’
Output(bilangan,ket)
3. Buatlah program
untuk menentukan bilangan yang dimasukan adalah negatif , positif atau nol.
4. Buatlah program
untuk menetukan huruf yang diinput adalah huruf vokal atau konsonan.
5. Buatlah program
untuk menukarkan dua buah bilangan yang di masukan
Contoh bilangan pertama 2, bilangan kedua
yang diinput 5 setelah di tukar maka
bilangan pertama 5, bilangan kedua 2