Jawaban Kuis Algoritma Pemograman I

SOAL DAN KUNCI JAWABAN

QUIS I ALGORITMA PEMOGRAMAN I

Dosen Pengasuh : Drs. Agus Wahyuni, ST, M.Pd

 

1.       Sebuah benda berada pada posisi r=2t²+8 . tentukan kelajuan benda pada saat t=6 s

2.       Buatlah sebuah program Pengulangan untuk menghasilkan output sebagai berikut!

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

A                    B             C             D

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

8                     10           15           25

28                   30           55           625

--                    --             --             --

--                    --             --             --

--                    --             --             --

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

---                  ---           ---           ---

3.       Sebuah supermarket memberikan diskon dengan ketentuan sebagai berikut:

a.       Jika belanja diatas 10000 maka diskon 20%,

b.      jika belanja diatas 5000 maka diskon 10 %

c.       jika belanja dibawah 5000 maka tidak ada diskon

 

4.       Gabungkanlah soal no. 1,2, dan 3 dalam bentuk case of

 

Jawaban

1.       Posisi r=2t²+8

V = 4t

Program Kelajuan;

Uses crt;

Var v,t: real;

Begin

Clrscr;

Writeln (‘masukkan waktu : ’); readln(t);

V:=4*t;

Writeln(‘kelajuannya adalah : ‘ ,v:3:0, ’ m/s’);

Readln;

End.

 

2.       Program Untuk menampilkan output seperti pada soal

Program iterasi;

uses crt;

var a,b,c,d,e,f,g,h,i,j: integer;

begin

clrscr;

writeln('=================================');

writeln('      a        b      c        d');

writeln('=================================');

for i:=1 to 5 do

begin

j:=(2*i)-1;

a:=(j*10)-2;

b:=J*10;

c:=(a+b)-3;

d:=sqr(c-b);

writeln(a:8,b:8,c:8,d:8);

e:=e+a;

f:=f+b;

g:=g+c;

h:=h+d;

end;

writeln('=================================');

writeln(e:8,f:8,g:8,h:8);

readln;

end.

 

3.    Coding program no 3 adalah:

Program diskon;

Uses crt;

Var totalpembelian: LongInt;

Begin

Clrscr;

Write(‘Total Pembelian=’); readln (totalpembelian);

IF totalpembelian>10000 then

Writeln(‘diskon  sebesar 20%’)

Else

IF totalpembelian>5000 then

Writeln(‘diskon  sebesar 10%’)

Else

Writeln(‘Tidak ada Diskon’);

Readln;

End.

 

4.         Coding Program no 4 sebagai berikut:

Program caseof;

uses crt;

var a,b,c,d,e,f,g,h,i,j,t: integer;

v:real;

totalpembelian: longint;

pilih : char;

begin

clrscr;

writeln('MENU');

writeln('1. program kelajuan');

writeln('2. program iterasi');

writeln('3. program if');

writeln('masukkan pilihan:');readln(pilih);

case pilih of

'1' : begin

Writeln ('masukkan waktu : '); readln(t);

V:=4*t;

Writeln('kelajuannya adalah : ' ,v:3:0, ' m/s');

end;

'2':begin

writeln('=================================');

writeln('      a        b      c        d');

writeln('=================================');

for i:=1 to 5 do

begin

j:=(2*i)-1;

a:=(j*10)-2;

b:=J*10;

c:=(a+b)-3;

d:=sqr(c-b);

writeln(a:8,b:8,c:8,d:8);

e:=e+a;

f:=f+b;

g:=g+c;

h:=h+d;

end;

writeln('=================================');

writeln(e:8,f:8,g:8,h:8);

end;

'3':begin

Write('Total Pembelian='); readln (totalpembelian);

IF totalpembelian>10000 then

Writeln('diskon  sebesar 20%')

Else

IF totalpembelian>5000 then

Writeln('diskon  sebesar 10%')

Else

Writeln('Tidak ada Diskon');

end;

end;

readln;

end.