ALGORITMA Semangat1
KAMUS
x, y, z : integer
BEGINALGORITMA
INPUT(x,y,z)
IF (x < y) THEN
IF (y < z) THEN
OUTPUT(“mahasiswa telkom university”)
ELSE
OUTPUT(“mempunyai visi yang besar”)
ENDIF
ELSE
IF (x > y) THEN
IF (y < z) THEN
OUTPUT(“karena itu”)
ELSE
OUTPUT(“kami selalu rajin belajar”)
ENDIF
ENDIF
ENDIF
Jika pengguna memasukkan x = 3, y = 8, z = 5, maka OUTPUT algoritma tersebut adalah? “mempunyai visi yang besar”
program no21 ;
uses crt ;
var
x,y,z: integer ;
begin
clrscr ;
write('Masukan x = ');
readln(x);
write('Input y = ');
readln(y);
write('Input z = ');
readln(z);
if ( x < y) then
if ( y < z ) then
writeln('Mahasiswa Telkom University')
else
writeln('Mempunyai Visi yang Besar')
else
if ( x > y ) then
if ( y < z ) then
writeln('Karena Itu')
else
writeln('Kami Selalu Rajin Belajar');
readln();
end.
22.Telusuri program dibawahini:
ALGORITMA Semangat2
KAMUS
x, y, z : integer
BEGIN ALGORITMA
INPUT(x,y)
z <-- x + y
IF (z >= 80) THEN
z <-- z – 30
IF (z >= 70) THEN
z <-- z - 10
ELSE
IF (z >= 65) THEN
z <-- z - 5
y <-- x
ENDIF
ENDIF
IF (x <= 70) THEN
z <-- z – 10
y <-- x
ENDIF
OUTPUT(x, y, z)
END
Jikapenggunamemasukkan x = 32, y = 50, makaOUTPUTalgoritmatersebutadalah? 32 32 42
program no22 ;
uses crt ;
var
l,m,n : integer ;
begin
clrscr ;
write ('input x = ');
readln(l);
write ('input y = ');
readln(m);
n := l + m ;
if ( n >= 80 ) then
n := n - 30 ;
if ( n >= 70 ) then
n := n - 10
else
if ( n>= 65 ) then
n := n - 5;
m := l ;
if ( l <= 70 ) then
n := n - 10 ;
m := l ;
writeln('Nilai x ',l);
writeln('Nilai y ',m);
writeln('Nilai z ',n);
readln();
end.
23.Telusuri program dibawahini:
Program Periksa_Semangat
Kamus
x, y : integer
BEGIN ALGORITMA
INPUT(x, y, x)
IF (x = 1) THEN
OUTPUT(“1. Visi (Mimpi) telahsesuaidenganlangkah”)
ELSEIF ((x >= 2) and ( x<= 4) THEN
OUTPUT(“2. Pantangmenyerahuntukmeraihmimpi”)
ELSEIF (x = y) THEN
OUTPUT(“3. Jujurdanprofesionaldalammelangkah”)
ELSEIF( y> x) THEN
OUTPUT(“4. Berdoatanpaputus”)
ENDIF
END ALGORITMA
Jikapenggunamemasukkan x = 4, y = 5, dan x = 1, makaoutputnyaadalah: Visi (Mimpi) telahsesuaidenganlangkah
program no23;
uses crt ;
var
x,y,x2 : integer ;
begin
clrscr ;
writeln('Input Nilai x = ');
readln(x);
writeln('Input Nilai y = ');
readln(y);
writeln('Input Nilai x2 = ');
readln(x2);
if ( x = 1 ) then
writeln('1.visi(mimpi) telah sesuai dengan langkah')
else if ((x >= 2 ) and ( x <- 4)) then
writeln('2.pantang menyerah untuk meraih mimpi')
else if (x = y) then
writeln('3.jujur dan profesional dalam melangkah')
else if ( y > x ) then
writeln('4. berdoa tanpa putus ');
readln();
end.
24.Telusuri program dibawahini:
ALGORITMACari_Maksimum
Kamus
dat1, dat2, dat3, dat4, big : integer
BEGIN
INPUT(dat1, dat2, dat3, dat4)
IF ((dat1 >= dat2) and (dat1 >= dat3) and (dat1 >= dat4)) THEN
big<-- dat1
ELSEIF ((dat2 >= dat1) and (dat2 >= dat3) and (dat2 >= dat4))
big<-- dat2
ELSEIF ((dat3 >= dat1) and (dat3 >= dat2) and (dat3 >= dat4))
big<-- dat3
ELSE
big<-- dat4
ENDIF
OUTPUT(big)
END
Jikapenggunamemasukkan 12, 3, 4, dan 5, makaOUTPUTnyaadalah? 12
program no24 ;
uses crt ;
var
dat1,dat2,dat3,dat4,big : integer ;
begin
clrscr ;
write('input data 1 = ');readln(dat1);
write('input data 2 = ');readln(dat2);
write('input data 3 = ');readln(dat3);
write('input data 4 = ');readln(dat4);
if ((dat1 >= dat2) and (dat1 >= dat3) and (dat1 >= dat4)) then
big := dat1
else if ((dat2 >= dat1) and ( dat2 >= dat3) and (dat2 >= dat4)) then
big :=dat2
else if ((dat3 >= dat1) and( dat3 >= dat2) and (dat3 >= dat4)) then
big := dat3
else
big:= dat4;
writeln('maka big-nya adalah ? ',big);
readln();
end.
25.Perhatikan penggalanalgoritmadibawahini:
…….
IF (a = 10 and b = 5) THEN
c <-- 156
ELSE
c <-- 165
ENDIF
Jikaternyatavariabel adiberikanINPUT 5, makanilaivariabel c adalah? 165
program no25 ;
uses crt ;
var
l,m,n : integer ;
begin
clrscr ;
write('Nilai a ');
readln(l);
if(( l = 10) and (m = 5)) then
n := 156
else
n := 165 ;
writeln('maka nilai c adalah ? ',n);
readln();
end.
Tidak ada komentar:
Posting Komentar