PASCALNYA
program soal_no1;
uses crt;
var
A,B,C,T : integer;
begin
clrscr;
write('masukan nilai
A: '); readln(A);
write('masukan nilai
B: '); readln(B);
write('masukan nilai
C: '); readln(C);
T := 0;
T := T + A;
T := T + B;
T := T + C;
write('maka nilai T
adalah: ',T); readln();
end.
program soal_no1;
uses crt;
var
A,B,X : integer;
begin
clrscr;
A := 4; B:= 3;
X := A;
X := B mod X;
B := A;
B := X + B;
writeln('maka nilai
A adalah: ',A);
writeln('dan nilai X
adalah: ',X);
writeln('serta nilai
B adalah: ',B);
readln();
readln();
end.
program soal_no3;
uses crt;
var
A,B,C : integer;
begin
clrscr;
write('masukan nilai
A: '); readln(A);
write('masukan nilai
B: '); readln(B);
if (A = 10) AND (B =
5)then
C := 156
else
C := 165;
writeln('maka nilai
C adalah: ',C); readln();
end.
program soal_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.
program soal_no5;
uses crt;
var
A,B,C : integer;
begin
clrscr;
write('masukan nilai
A: '); readln(A);
Write('masukan nilai
B: '); readln(B);
write('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.
program soal_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.
program soal_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.
program soal_8;
uses crt;
var
m,n,p : integer;
begin
write('masukan nilai
m: '); readln(m);
write('masukan nilai
n: '); readln(n);
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.
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.
program soal_no11;
uses crt;
var
a,b,c : integer;
begin
clrscr;
write('masukan nilai
a: '); readln(a);
write('masukan nilai
b: '); readln(b);
write('masukan nilai
c: '); readln(c);
b := a;
c := b;
a := c;
writeln('maka nilai
a adalah: ',a); readln();
end.
program soal_no12;
uses crt;
var
na, uts, uas, tugas,
quiz : integer;
indeks : char;
begin
clrscr;
uts := 75;
uas := 80;
tugas := 50;
quiz := 50;
na := (uts * 30 div
100) + (uas * 35 div 100) + (tugas * 15 div 100) + (quiz * 20 div 100);
if na > 80 then
indeks := 'A';
if na > 60 then
indeks := 'B';
end.
indeks := 'C'
indeks := 'A'
writeln(' maka
indeks nilainya adalah: ',indeks); readln();
end.
program soal_n0_13;
uses crt;
var
i : integer;
begin
clrscr;
i := 5;
i := 8;
writeln('nilai i
adalah: ',i);
readln();
end.
program soal_no13;
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_no15;
uses crt;
var
x,y,z : integer;
begin
x := 15;
y := 8;
z := 7;
x := y + x;
y := x - y;
writeln('maka nilai
x: ',x);
writeln('maka nilai
y: ',y);
readln();
end.
program soal_no16;
uses crt;
var
a,b : integer;
begin
clrscr;
write('masukan nilai
a: '); readln(a);
write('masukan nilai
b: '); readln(b);
a := b;
b := a;
writeln('maka nilai
a: ',a);
writeln('dan nilai b:
',b);
readln();
end.
program soal_no17;
uses crt;
var
a,b,c : integer;
begin
write('masukan nilai
a: '); readln(a);
write('masukan nilai
b: '); readln(b);
write('masukan nilai
c: '); readln(c);
b := a;
c := b;
a := c;
writeln('maka nilai c
adalah: ',c);
readln();
end.
program soal_no18;
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.
program soal_no19;
uses crt;
var
x, ratusan, puluhan,
satuan: integer;
begin
clrscr;
write('masukan suatu
angka: ');readln(x);
ratusan := x div
100;
puluhan := x div 10;
satuan := x mod 10;
writeln('maka nilai
puluhannya adalah: ',puluhan);
readln();
end.
program soal_no20;
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 adalah: ',j);
writeln('maka nilai
m adalah: ',m);
writeln('maka nilai
d adalah: ',d);
readln();
end.