uses crt;
var
nilai:integer;
begin
clrscr;
write (‘masukkan bilangan:’);readln(nilai:’);
if nilai > 60 then
writeln (‘Anda Lulus’)
else
writeln (‘Anda Tidak Lulus’);readln;
end.
Hasil Program :
Masukkan nilai: 70
Anda Lulus
Masukkan nilai: 50
Anda tidak Lulus
uses crt;
var
a,b:integer;
begin
write (‘masukkan bilangan perama:’);readln(a);
write (‘masukkan bilangan kedua:’);readln(b);
if a>b then
writeln (‘bilangan terbesar adalah:’,a)
else
writeln (‘bilangan terbesar adalah:’,b);readln;
end.
Hasil program :
Masukkan bilangan pertama:12
Masukkan bilangan kedua:15
Bilangan terbesar adalah:15
uses crt;
var
a,b:integer;
begin
clrscr;
write (‘masukkan bilangan pertama:’);readln(a);
write (‘masukkan bilangan kedua:’);readln(b);
if a mod 2 = 0 then
writeln (‘bilangan genap adalah:’,a)
else
writeln (‘bilangan genap adalah:’,b);readln;
end.
Hasil program :
Masukkan bilangan pertama:10
Masukkan bilangan kedua:3
Bilangan genap:10
uses crt;
var
a,b:integer;
write (‘masukkan nilai;’);readln(a);
if a mod 2 =0 then
writeln (‘bilangan genap: ’,a)
else
writeln (‘bilangan ganjil: ‘,a);readln;
end.
Hasil program :
Masukkan nilai:2
Bilangan genap:2
Masukkan nilai:3
Bilangan ganjil:3
uses crt;
var
a,b,c:integer;
begin
clrscr;
write (‘masukkan bilangan pertama:’);readln(a);
write (‘masukkan bilangan kedua:’);readln(b);
c:= a + b;
writeln (‘hasil penjumlahan:’,c);readln;
end.
Hasil program :
Masukkan bilangan pertama:1
Masukkan bilangan kedua:2
Hasil penjumlahan adalah:3
Uses crt;
Var
A,b,c:integer;
Begin’clrscr;
Write (‘masukkan bilangan pertama;’);readln(a);
Write (‘masukkan bilangan kedua:’);readln(b);
C:=a*b;
Writeln (‘hasil perkalian adalah:’,c);readln;
End.
Hasil program :
Masukkan bilangan pertama:1
Masukkan bilangan kedua:5
Hasil perkalian adalah:5
Uses crt;
Var
A,b,c:real;
Begin
Clrscr;
Write (‘masukkan alas:’);readln(a);
Write (‘masukkan tinggi:’);readln(b);
C:=a*b/2;
Writeln (‘luas segitiga adalah:’,c);readln;
End.
Hasil program :
Masukkan alas:2
Masukkan tinggi:3
Luas segitiga adalah:3,0000000000E+00
uses crt;
var
a,b,c:integer;
begin
clrscr;
write (‘masukkan bilangan pertama:’);readln(a);
write (‘masukkan bilangan kedua:’);readln(b);
write (‘masukkan bilangan ketiga:’);readln(c);
if (a>b) and (a>c) then
writeln (‘bilangan terbesar adalah:’,a)
else
if (b>a) and (b>c) then
writeln (‘bilangan terbesar adalah:’,b)
else
if (c>a) and (c>b) then
writeln (‘bilangan terbesar adalah:’,c);readln;
end.
Hasil program :
masukkan bilangan pertama: 27
masukkan bilangan kedua: 11
masukkan bilangan ketiga: 79
bilangan terbesar adalah: 79
uses crt;
var
a,b,c,d:integer;
begin
clrscr;
write (‘masukkan bilangan pertama:’);readln;
write (‘masukkan bilangan kedua:’_;readln(b);
write (‘masukkan bilangan ketiga:’);readln(c);
write (‘masukkan bilangan keempat:’);readln(d);
if (a>b), (a>c), and (a>d) then
writeln (‘bilangan terbesar adalah:’,a)
else
if (b>a), (b>c), an d(b>d) then
writeln (‘bilangan terbesar adalah:’,b)
else
if (c>a), (c>b), and (c>d) then
writeln (‘bilangan terbesar adalah:’,c)
else
writeln (‘bilangan terbesar adalah:’,d);readln;
end.
Hasil program :
masukkan bilangan pertama: 27
masukkan bilangan kedua: 11
masukkan bilangan ketiga: 19
masukkan bilangan keempat: 79
bilangan terbesar adalah: 79
uses crt;
var
a,b,c:real;
begin
clrscr;
write (‘masukkan nilai:’);readln(a);
write (‘masukkan nilai jari-jari lingkaran:’);readln(b);
c:=a*b*b;
writeln (‘luas lingkaran:’,c);readln;
end.
Hasil program:
masukkan nilai phi: 3.14
masukkan nilai jari-jari lingkaran: 10
luas lingkaran: 3.1400000000E+02
uses crt;
var
a,b,c:integer;
begin
clrscr;
write (‘masukkan bilangan a:’);readln(a);
write (‘masukkan bilangan b:’);readln(b);
for c:= a to b do
beginif c mod 2 = 0 then
writeln (‘bilangan genap:’,c)
else
writeln (‘bilangan ganjil:’,c);readln;
end.
Hasil program:
bilangan ganjil: 1
bilangan genap: 2
bilangan ganjil: 3
bilangan genap: 4
bilangan ganjil: 5
uses crt;
var
a,b:integer;
begin
clrscr;
write (‘masukkan nilai:’); readln(a)
for b:=1 to a do
writeln (‘pascal’);
readln;
end.
Hasil program:
masukkan nilai: 5
pascal
pascal
pascal
pascal
pascal
uses crt;
var
a,b,c:integer;
begin
clrscr;
write (‘masukkan bilangan pertama:’);readln(a);
write (‘masukkan bilangan kedua:’);readln(b);
for c:=a to b do
begin
writeln (a);
writeln (a+b);
readln;
end;
end.
Hasil program:
masukkan ilangan pertama: 2
masukkan bilangan kdua: 3
2
5