Tugas 1 Pemograman Looping

Tugas 1 Pemograman sms 1 IST AKPRIND 2012/2013
No 1

PEMBAHASAN

Pertanyaan:1.cetaklah bilangan ganji dan bukan factor 3 antara a dan b.selidiki kemungkinan errornya.

Jawab: seandainya batas bawah (a) dan batas atas (b) .lalu cetaklah bilangan ganjil antara a dan b maka : for c:=a to b do. Lalu karena bilangan bukan merupakan fantor 3,maka ketika di bagi maka bilangan itu bisa nol if (i mod 2=0). Dan erornya jika dia di beri bilangan genap.

program tugas1;

uses wincrt;

var a,b,c:integer;

nama,nim:string;

ya:char;

label lagi

begin

lagi:

clrscr;

writeln('nama: TAUFIQURROHMAN ');

writeln('nim : 121051073 ');

writeln('cetak bilangan ganji dan bukan factor 3 antara a dan b');

writeln('masukkan batas bawah ');readln(a);

writeln('masukkan batas atas ');readln(b);

if (a=b) and (a mod 3=0) then

writeln('tidak ada hasilnya')

else if (a<=b) then

begin

for c:=a to b do

if (c mod 2=0) and (c mod 3<>0) then write(c:3);

end

else

begin

for c:=a downto b do

if (c mod 2=0) and (c mod 3<>0) then write(c:3);

end;

writeln;

write('mau coba lagi? (y/t)');readln(ya);

if (ya<>'t') then goto lagi;

writeln('terimakasih sudah mencoba bermain program ini');

end.

Terus setelah kita compile sukses

Lalu RUN

No 2

2.sebuah bola di jatuhkan dari ketinggian a cm, akan memantul setinggi b cm, setelah memantul, bola akan jatuh lagi, memantul lagi dst sampai berhenti  (0,1 cm) pada setiap pantulan berikutnya ketinggian pantulan berkurang 12% dari pantulan sebelumnya 

·         Tampilkan ketinggian bola di tiap” pantulan

·         Hitunglah jumlah pantulan

·         Berapa panjang lintasan bola

program tugas2;

uses wincrt;

var a,b,c:real;

nama,nim:string;

ya:char;

label lagi;

begin

lagi:

clrscr;

writeln('nama : TAUFIQURROHMAN');

writeln('nim :121051073');

writeln('menghitung jumlah pantulan,ketinggian bola di tiap" pantulan dan panjang lintasan bola');

write('Masukan tinggi awal : ');readln(a);

while a >= 0.1 do

begin

c:=c+a;

a:=a*0.12;

if a >= 0.1 then

begin

b:=b+1;

writeln('pantulan selanjutnya : ',a:2:2,' cm');

end;

end;

writeln('jumlah pantulan : ',b:2:2,' cm');

writeln;

writeln('panjang lintasan : ',c:2:2,' cm');

writeln;

write('apakah anda ingin mencoba pantulan lagi (y/t)?  ');readln(ya);

if (ya<>'t') then goto lagi;

writeln('terima kasih sudah coba program ini');

end.

Lalu kita compile

Lalu run

                                                                    selesai