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 untuk 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,000
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
Selamat mencoba....!!!!!
Tidak ada komentar:
Posting Komentar