program soal_no21;
uses crt;
var
x,y,z : integer;
begin
clrscr;
write('masukan nilai x: '); readln(x);
write('masukan nilai y: '); readln(y);
write('masukan nilai 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.
program soal_no22;
uses crt;
var
x,y,z : integer;
begin
write('masukan nilai x: '); readln(x);
write('masukan nilai y: '); readln(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;
if( x <= 70)then
z := z - 5;
y := x;
writeln('maka nilai x adalah: ',x);
writeln('maka nilai y adalah: ',y);
writeln('maka nilai z adalah: ',z);
readln();
end.
program soal_no23;
uses crt;
var
x,y : integer;
begin
write('masukan nilai x: '); readln(x);
write('masukan nilai y: '); readln(y);
write('masukan nilai x: '); readln(x);
if (x = 1)then
writeln('1. visi (mimpi) telah sesuai dengan langlah')
else if (x >= 2)and (x <= 4)then
writeln('2. pantang menyerang untuk meraih mimpi')
else if (x = y)then
writeln('3. jujur dan profesional dalam melangkah')
else if (y > x)then
writeln('4. berdia tanpa putus');
readln();
end.
program soal_no24;
uses crt;
var
dat1,dat2,dat3,dat4,big : integer;
begin
write('masukan data pertama: '); readln(dat1);
write('masukan data kedua: '); readln(dat2);
write('masukan data ketiga: '); readln(dat3);
write('masukan data keempat: '); readln(dat4);
if ((dat1 >= dat2) and (dat1 >= 3) 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 outputnya adalah: ',big); readln();
end.
program soal_no25;
uses crt;
var
A,B,C : integer;
begin
clrscr;
write('masukan nilai A: '); readln(A);
if (A = 10) AND (B = 5)then
C := 156
else
C := 165;
writeln('maka nilai C adalah: ',C); readln();
end.
program soal_no26;
uses crt;
var
x,y,z : boolean;
a: integer;
begin
write('masukan nilai x: '); readln(a);
x := false;
z := ((3 + (5 mod 3)) = 5);
y := (a <= 0);
if ((x and y) or (not (y or z))) then
writeln('telkom university is the best')
else if ((y and (not z)) or (x and y))then
writeln('telkom university is the clean campus');
writeln('telkom university is smart campus');
readln();
end.
program soal_no27;
uses crt;
var
j,m,d : integer;
begin
clrscr;
write('masukan nilai j: '); readln(j);
write('masukan nilai m: '); readln(m);
write('masukan nilai d: '); readln(d);
if d > 0 then
d := d - 1
else
d := 59;
if (m > 0)then
m := m - 1
else
m := 59;
j := j - 1;
writeln('maka nilai j + m - d adalah: ',j + m - d);
readln();
end.
end.
program soal_no28;
uses crt;
var
n : integer;
begin
write('masukan nilai n: '); readln(n);
if n < 10 then
n := n + 5
end.
writeln('maka nilai n adalah: ',n);
readln();
end.
yang ini saya kurang mengerti dengan if nya && maka saya lewat.
program soal_no30;
uses crt;
var
isfalse: boolean;
y: integer;
begin
write('masukan suatu angka: '); readln(y);
isfalse := true;
if (true) then
if( ((y mod 2) = 0) and isfalse)then
y := y div 3
else
y := y * y
else
y := 100;
writeln('maka nilai angka tersebut adalah: ',y); readln();
end.
Tidak ada komentar:
Posting Komentar