ALGORITMA DAN PEMROGRAMAN IF THEN BERGANDA DAN CASE OF

1. Program If.. then Berganda
A. Tampilan program

B. Source Code Program

program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
Var nim,Kehadiran, Tugas, Kuis, UTS, UAS,aktif, Angka:real;
Nama:String[30];
Huruf:String;
begin
Writeln(' --: Tugas Alprog 1 IF ..Then Berganda :--');
writeln('-----------------------------------------------------------');
Write(' Nama Mahasiswa: ');readln(Nama);
Write(' NIM : ');readln(nim);
writeln('-----------------------------------------------------------');
Write(' Kehadiran : ');readln(Kehadiran);
Write(' Tugas : ');readln(Tugas);
Write(' Kuis : ');readln(Kuis);
Write(' UTS : ');readln(UTS);
Write(' UAS : ');readln(UAS);
Write(' Keaktifan : ');readln(aktif);
writeln('-----------------------------------------------------------');
Angka:=Kehadiran*0.1+Tugas*0.2+Kuis*0.2+UTS*0.25+UAS*0.25;
If (Angka <=35) and (aktif <1) then
Huruf:='D'
else
if (Angka =35) and (aktif >=3) then
Huruf:='C'
else
If (Angka <=55) and (aktif<1) then
Huruf:='C'
else
If (Angka =55) and (aktif>=3) then
Huruf:='B'
else
If (Angka <=70) and (aktif<1) then
Huruf:='B'
else
If( Angka =70)and (aktif>=3) then
Huruf:='A'
else
Huruf:='A';
writeln('-----------------------------------------------------------');
Write('| Nilai Angka : ',Angka:1:1); Writeln(' || Nilai Huruf : ',Huruf,' |');
writeln('-----------------------------------------------------------');
Readln;
End.

2. Program Case.. of.
A. Tampilan Awal Program Case of

B. Tampilan Jika dipilih 1 dan nginputkan panjang R:

C. Tampilan Jika dipilih 2 dan nginputkan M:

D. Tampilan Jika dipilih angka selain 1 dan 2 maka akan muncul :

E. Source Code Program

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var phi,r,m,yrd,kk,inc:Double; pilih,lagi:char; vb,lb,Y,K,I:Real; ya:Boolean;
begin
repeat
Writeln('-------------------------------------------');
Writeln(' Menu :');
Writeln(' 1.bola');
Writeln(' 2.converter');
Write(' Pilihan :');
Readln(pilih);
case pilih of
'1':begin
phi:=3.14;
writeln('Menghitung volume dan luas bola');
Writeln('----------------------------------------');
Write('Masukkan nilai R : '); readln(r);
vb:=(4/3)*phi*r*r*r;
lb:=4*phi*r*r;
Writeln(' 1.Volume bola :',vb:1:1);
Writeln(' 2.Luas Permukaan Bola :',lb:1:1);
Writeln('------------------------------------------');
end;
'2':begin
yrd:=0.9144; kk:=0.3048; inc:=0.00254;
writeln('Konverter dari meter ke yard, kaki, dan inchi');
Writeln('----------------------------------------');
Write('Masukkan angka : '); readln(m);
Y:=m/yrd;
K:=m/kk;
I:=m/inc;
Writeln(' 1.Yard :',Y:1:1);
Writeln(' 2.Kaki :',K:1:1);
Writeln(' 3.Inchi :',I:1:1);
end
else
Writeln('pilihan yang anda masukan tidak tersedia');
Readln;
end;
write('kembali ke menu?');readln(lagi);
until (lagi= 't') or (lagi = 'T');
Readln;
end.