Jawaban UAS MK Algoritma Dan Pemrograman Komputer

JAWABAN NO 1 KELAS PAGI DAN SORE
uses wincrt;
var
a,b,luas,kel,p,l,s : integer;
begin
writeln('Pilih Bentuk Persegi Panjang (2) atau Bujur Sangkar (2)');
write('Pilih : ');
readln(a);
if a=1 then
begin
writeln('Bentuk yang anda pilih adalah Persegi Panjang');
write('Masukkan Panjang : ');
readln(p);
write('Masukkan Lebar : ');
readln(l);
kel:=2*(p+l);
luas:=p*l;
writeln('Luas Persegi Panjang = ',luas);
writeln('Keliling Persegi Panjang = ',kel);
end
else
begin
writeln('Bentuk yang anda pilih adalah Bujur Sangkar');
write('Masukkan Sisi : ');
readln(s);
kel:=4*s;
luas:=s*s;
writeln('Luas Bujur Sangkar = ',luas);
writeln('Keliling Bujur Sangkar = ',kel);
end;
end.
JAWABAN NO 2 PAGI :
uses wincrt;
var
X,Y,hasil,i : integer;
begin
write('Masukkan Bilangan Pokok (X) : ');
readln(X);
write('Masukkan Bilangan Pangkat (Y) : ');
readln(Y);
hasil:=X;
i:=1;
while i< Y do
begin
i:=i+1;
hasil:=hasil*X;
end;
write('Hasil X^Y adalah = ',hasil);
end.
JAWABAN NO 2 SORE :
uses wincrt;
var
air, tarif:integer;{nilai angka}
begin
write('Jumlah Pemakaian Air PDAM= ');
readln(air);
if air >50 then
begin
tarif:= air*1125;
writeln('Biaya yang harus dibayar sebanyak Rp. ',tarif);
end
else
if air > 30 then
begin
tarif:= air*675;
writeln('Biaya yang harus dibayar sebanyak Rp. ',tarif);
end
else
if air > 15 then
begin
tarif:= air*450;
writeln('Biaya yang harus dibayar sebanyak Rp. ',tarif);
end
else
begin
tarif:= air*250;
writeln('Biaya yang harus dibayar sebanyak Rp. ',tarif);
end;
end. Share

Laskar Pelangi Blog oleh M. Yasin, S.Si., MM disebarluaskan di bawah Lisensi Creative Commons Atribusi-NonKomersial-TanpaTurunan 4.0 Internasional.
Berdasarkan ciptaan pada thelaskarpelangi.blogspot.com

Posted in: MK Algoritma Dan Pemrograman