Buatlah program untuk mencetak bilangan bulat sbb: 15 13 11 9 7 5 3 1 menggunakan struktur perulangan Repeat-Until, While dan For!
1. Perulangan repeat-until
Ketikkan listing di bawah ini di pascal
uses crt;
var i:integer;
begin
clrscr;
writeln(' ----------------------- ');
writeln(' PERULANGAN REPEAT UTNIL ');
writeln(' ----------------------- ');
writeln;
i := 15;
repeat
begin
if i mod 2 = 1 then
write(i:3);
i:=i-1;
end;
until i<1;
readln;
end.
Jika sudah maka gambarnya seperti di bawah ini
Hasilnya :
2. Perulangan while
Ketikkan listing di bawah ini di pascal
uses crt;
var i:integer;
begin
clrscr;
writeln(' ----------------------- ');
writeln(' PERULANGAN FOR ');
writeln(' ----------------------- ');
writeln;
for i:= 15 downto 1 do
begin
if i mod 2 = 1 then
write(i:3);
end;
readln;
end.
Jika sudah maka gambarnya seperti di bawah ini
Hasilnya :
2. Perulangan while
Ketikkan listing di bawah ini di pascal
uses crt;
var i:integer;
begin
clrscr;
writeln(' ----------------------- ');
writeln(' PERULANGAN WHILE ');
writeln(' ----------------------- ');
writeln;
i:=15;
while i >=1 do
begin
if i mod 2 = 1 then
write(i:3);
i:=i-1;
end;
readln;
end.
Jika sudah maka gambarnya seperti di bawah ini
Hasilnya
Kasus 2
Ada katak masuk kedalam sumur sedalam 31.2 m. 5 hari pertama katak bias naik 3 m tiap pagi dan merosot 1 meter tiap malam, 10 hari berikutnya katak bias naik 2 meter tiap pagi dan merosot 1.25 m tiap malam, selanjutnya naik 2 m tiap pagi dan merosot 1.5 m tiap malam, berapa hari katak tersebut dapat keluar dari sumur?
Bingung....? Langsung saja ketik listing dibawah ini di pascalnya masing-masing
uses crt;
var merosot, kedalaman, selisih : real;
hari, naik : integer;
begin
clrscr;
write('Masukkan Kedalaman Sumur : '); readln(kedalaman);
writeln('----------------------------------------------------------');
writeln('Jumlah Hari Naik Merosot Jumlah Naik Kedalaman');
writeln(' Per Hari');
writeln('----------------------------------------------------------');
hari := 1;
naik := 3;
merosot := 1;
selisih := naik - merosot;
while kedalaman>0 do
begin
kedalaman := kedalaman-selisih;
writeln(hari:7, naik:10, merosot:12:2, selisih:12:2, kedalaman:14:2);
hari := hari+1;
if (hari>5) and (hari<=15) then
begin
naik := 2;
merosot := 1.25;
selisih := naik-merosot;
end;
end;
readln;
end.
Jika sudah maka gambarnya seperti di bawah ini
Hasilnya :
0 komentar:
Posting Komentar