Tugas Aplikasi Kodok Masuk Lubang

Kali ini saya akan memperlihatkan tugas yang tidak bisa saya selesaikan tanpa menyontek.... maklum saya kan tukan nyontek,,, hehhehehehhehehe.. soalnya begini..

Ada katak masuk kedalam sumur sedalam 31.2 m. 5 hari pertama katak bisa naik 3 m tiap pagi dan merosot 1 m tiap malam, 10 hari berikutnya katak bisa naik 2 m 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?

============================================================================

Program Kodok;

Uses wincrt;

Var ds,t,jt:real;

    i,n:integer;

    ulang:char;

Begin

ulang:='Y';

while Upcase(ulang)='Y' do

Begin

Write('Masukan Kedalaman Sumur = ');readln(ds);

i:=1;

n:=3;

t:=1;

while ds > 0 do

Begin

     if (i>5) and (i <=15) then

     begin

     n:=2;

     t:=1.25;

     end

     else if i > 10 then

     begin

     n:=2;

     t:=1.5;

     end;

jt:=n-t;

ds:=ds-jt;

Writeln(i:4,' hari', n:8,' m', t:8:2, ds:8:2);

i:=i+1;

end;

    write('Mau ulang lagi? [Y/T]: ');

    Readln(ulang);

end;

end.

============================================================================

Hasilnya ::::::

Referensi : kumpulan tugas hasil contekan