Jawaban UAS MK Algoritma Dan Pemrograman Komputer

Posted by: Bang Dosen M. Yasin, S.Si,

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.
(By Yasin UIJ)

No comments:

Powered by Blogger.