4.
Perhatikan algoritma berikut ini.
KAMUS
A, B : integer
C : Boolean
BEGIN ALGORITMA
A ß 0
; B ß 2
A ß B
; B ß A + A
C ß
((A > B) AND (A <> 2))
OUTPUT
(C)
END
ALGORITMA
Berapa
nilai C ? False
program no4;
uses crt;
var
a,b : integer;
c : boolean;
begin;
clrscr;
a :=0; b :=2;
a :=b; b:= a+a;
c :=((a > b) and (a<> 2));
writeln('Maka Nilai C adalah:'. c);
readln();
end.
5.
Perhatikan algoritma berikut.
KAMUS
A, B, C : integer
BEGIN ALGORITMA
INPUT(A,B,C)
IF
(A > B) THEN
IF (A > C) THEN
OUTPUT(A)
ELSE
OUTPUT(C)
ENDIF
ELSE
IF
(B > C) THEN
OUTPUT(B)
ELSE
OUTPUT(C)
ENDIF
ENDIF
END ALGORITMA
Apa
OUTPUT yang dihasilkan, apabila nilai-nilai yang diINPUTkan , A = 3,
B = 6 dan C = 4 ?
6
program no5;
uses crt;
var
A,B,C : integer;
begin
clrscr;
writeln('masukan nilai A: ');
readln(A);
Writeln('masukan nilai B: ');
readln(B);
writeln('masukan nilai C: ');
readln(C);
if (A > B) then
if (A > C) then
writeln('maka hasilnya nilai A: ',A)
else
writeln('maka hasilnya nilai C: ',C)
else
if(B > C)then
writeln('maka hasilnya nilai B: ',B)
else
writeln('maka hasilnya nilai C: ',C);
readln();
end.
6.
Perhatikan penggalan algoritma
berikut ini.
INPUT(N)
IF
(N > 50) THEN
IF
( N > 75) THEN
N ß N
– 25
ENDIF
ELSE
N ß N
+ 10
ENDIF
OUTPUT(N)
Berapa
nilai akhir N, apabila N awalnya diINPUT dengan nilai 85 ?
60
program no6;
uses crt;
var
N : integer;
begin
clrscr;
write('masukan suatu angka: ');
readln(N);
if (N > 50)THEN
if ( N > 75) then
N := N - 25
else
N := N + 10;
writeln('maka nilai itu menjadi: ',N); readln();
END.
7.
Perhatikan algoritma berikut ini :
KAMUS
N, R, B : integer
BEGIN ALGORITMA
INPUT(N);
INPUT(B)
IF
(N < 80) THEN
R ß B
+ 4 * 2 + N / 4 – B + 1
ELSEIF
(N < 70) THEN
R ß B
+ 5 * 3 + N / 4 – B + 2
ELSEIF
(N < 60) THEN
R ß B
+ 6 * 4 + N / 4 – B + 3
ELSE
IF
(N < 40) THEN
R ß
B + 7 * 5 + N / 4 – B + 4
ELSE
R ß
B + 8 * 6 + N / 4 – B + 5
ENDIF
ENDIF
OUTPUT(R)
END
ALGORITMA
Berapa nilai R yang dihasilkan, apabila nilai
B = 3 dan N = 60 ? 24
program no7;
uses crt;
var
N,R,B : integer;
begin
clrscr;
write('masukan nilai N: ');
readln(N);
write('masukan nilai B: ');
readln(B);
if ( N < 80) then
R := B + 4 * 2 + N div 4 - B + 1
else if (N < 70) then
R := B + 5 * 3 + N div 4 - B + 2
else if (N < 60) then
R := B + 6 * 4 + N div - B + 3
else
if (N < 40)then
R := B + 7 * 5 + N div 4 - B + 4
else
R := B + 8 * 6 + N div 4 - B + 5;
writeln('maka nilai R adalah: ',R); readln();
end.
8.
Perhatikan penggalan algoritma
berikut ini:
INPUT(M,
N, P)
IF
(P < 20) THEN
M ß M
* 2
ELSE
IF
(N < 30) THEN
N ß N
* 3
ELSE
IF
(M < 40) THEN
P ß P
* 4
ELSE
M ß 0
ENDIF
ENDIF
ENDIF
OUTPUT(M,
N, P)
Tentukan
OUTPUT yang dihasilkan, jika nilai awal yang diINPUTkan untuk M = 40, N = 30,
dan P = 20.
M = 0 ; N = 30 ; P = 20
program no8;
uses crt;
var
M,N,P : integer;
begin
write('masukan nilai M: ');
readln(M);
write('masukan nilai N: ');
readln(P);
write('masukan nilai P: ');
readln(P);
if (p < 20) then
m := m * 2
else
if (n < 30) then
n := n * 3
else
if (m < 40) then
p := p * 4
else
m := 0;
writeln('Maka Nilai M: ',M);
writeln('Maka Nilai N: ',N);
writeln('Maka Nilai P: ',P);
readln();
end.
9.
Perhatikan penggalan algoritma berikut ini:
M
ß 2 ; Q ß
10
IF
(M < 5) THEN
M ß M
+ 2
ENDIF
IF
(M >= 5) THEN
Q ß M
+ Q
ENDIF
OUTPUT(Q,M)
Berapa
nilai akhir Q dan M ? Q= 10
; M = 4
program soal_no9;
uses crt;
var
M,Q : integer;
begin
clrscr;
M := 2; Q:= 10;
if (M < 5)then
M := M + 2;
if (M >= 5)then
Q := M + q;
writeln('maka nilai Q: ',Q);
writeln('maka nilai M: ',M);
readln();
end.
10.
Perhatikan algoritma berikut ini:
KAMUS
Bilangan : integer
Keterangan : string
BEGIN ALGORITMA
INPUT(Bilangan)
Keterangan ß
“menu promosi”
IF
(Bilangan <> 4) THEN
CASE
(Bilangan)
1 : Keterangan ß “menu hemat”
2 : Keterangan ß “menu paket”
3 : Keterangan ß “menu gledheg”
OTHERWISE : Keterangan ß “menu irit”
END CASE
ENDIF
OUTPUT (Keterangan)
END ALGORITMA
Tentukan OUTPUT dari algoritma di atas, apabila
variabel Bilangan diINPUTkan 4
Menu Promosi
program no10 ;
uses crt ;
var
bilangan : integer ;
keterangan : string ;
begin
clrscr ;
writeln('masukan bilangan ');
readln(bilangan);
keterangan := 'menu promosi' ;
if (bilangan <> 4 ) then
case bilangan of
1 : keterangan := 'menu hemat' ;
2 : keterangan := 'menu paket' ;
3 : keterangan := 'menu gledheg' ;
otherwise keterangan := 'menu irit';
end ;
writeln('maka keterangannya adalah : ',keterangan);
readln();
end.
Tidak ada komentar:
Posting Komentar