PROGRAM PASCAL

1.program selamat_datang;

uses wincrt; {Untuk Easy Pascal}
uses crt; {Untuk Turbo Pascal}
begin
writeln ('Selamat datang Dan Belajar Pascal”);
end.

2.program menampilkan_nama;
var
x:string;
begin
clrscr; {Untuk membersihkan layar monitor dari program sebelumnya}
write ('masukan nama anda : ');
readln (x);
writeln ('senang bertemu dengan anda ',x,', ','thanks...');
end.

3.program pengulangan;
var
i:integer;
a:string;
begin
writeln ('PROGRAM PENGULANGAN');
write ('masukan kata yang ingin diulang : ');
read (a);
for i:=1 to 5 do
writeln (0+i, ' ',a);
end.

4.program bilanganterbesar;
var
a,b,c,x:integer;
begin
writeln ('MENGURUTKAN 3 BUAH BILANNGAN');
write ('Masukan bilangan 1 : ');
readln (a);
write ('Masukan bilangan 2 : ');
readln (b);
write ('Masukan bilangan 3 : ');
readln (c);
x:=a;

if b>x then
x:=b;
if c>x then
x:=c;
writeln ('Bilangan terbesar = ',x);
end.

5.program bilanganterkecil;
var
a,b,c,x:integer;
begin
writeln ('MENGURUTKAN 3 BUAH BILANNGAN');
write ('Masukan bilangan 1 : ');
readln (a);
write ('Masukan bilangan 2 : ');
readln (b);
write ('Masukan bilangan 3 : ');
readln (c);
x:=a;
if b
x:=b;
if c
x:=c;
writeln ('Bilangan terkecil = ',x);
end.

6.program nilaimutlak;
var
a:real;
begin
writeln ('MENCARI NILAI MUTLAK');
write ('masukan nilai x : ');
read (a);
if a>=0 then
write ('nilai mutlak = ',a:8:2);
else
write ('nilai mutlak = ',-a:8:2);
end.

7.program jumlah2bilangan;
var
x,y,z: real;
begin
writeln ('MENGHITUNG JUMLAH 2 BILANGAN');
write ('masukan bilangan 1 : ');
read (x);
write ('masukan bilangan 2 : ');
read (y);
z:=x+y;
write ('Hasil Penjumlahan = ',z:8:2);
end.

8.program operasi;
var
a,b,c,d:integer;
begin
write ('masukan nilai pertama : ');
readln (a);
write ('masukan nilai kedua : ');
readln (b);
writeln ('');

writeln ('ALGORITMA 1');
c:=a+b;
d:=a*b;
writeln ('HASIL PENJUMLAHAN = ',c,', ','HASIL PERKALIAN = ',d);
writeln ('');

writeln ('ALGORITMA 2');
d:=a*b;
c:=a+b;
writeln ('HASIL PENJUMLAHAN = ',c,', ','HASIL PERKALIAN = ',d);
end.

9.program tukarember1;
var
a,b,c: string;

begin
writeln ('TUKAR ISI EMBER');
write ('Tulis warna isi ember A : ');
readln (a);
write ('Tulis warna isi ember B : ');
readln (b);

c:=a;
a:=b;
b:=c;

writeln ('Hasil Penukaran Isi Ember Menjadi:');
writeln ('Warna isi ember A = ',a);
writeln ('Warna isi ember B = ',b)
end.

10.program tukarember2;
var
a,b,c: string;
begin
writeln ('TUKAR ISI EMBER');
write ('Tulis warna isi ember A : ');
readln (a);
write ('Tulis warna isi ember B : ');
readln (b);
writeln ('');
writeln ('ALGOORITMA 1');
c:=a;
a:=b;
b:=c;
writeln ('Warna isi ember A = ',a);
writeln ('Warna isi ember B = ',b);
writeln ('');
writeln ('ALGORITMA 2');
c:=a;
b:=c;
a:=b;

writeln ('Warna isi ember A = ',a);
writeln ('Warna isi ember B = ',b);
end.

11.program temperatursuhu;
var
F,R,C: real;
begin
writeln ('MENGHITUNG TEMPERATUR/SUHU');
write ('masukan nilai fahrenheit yang telah diketahui: ');
read (f);
C:=(5/9)*(F-32);
R:=(4/9)*(F-32);
writeln ('nilai C = ', ' ',C:8:2);
write ('nilai F= ',' ',R:8:2)
end.

12.program konversi;
var
detik,hr,jm,mn,dt:longint;
begin
writeln ('MENGHITUNG KONVERSI WAKTU');
write ('masukan nilai detik : ');
readln (detik);

hr:=detik div (60*60*24);
detik:=detik-(hr*60*60*24);

jm:=detik div (60*60);
detik:=detik-(jm*60*60);

mn:=detik div (60);
dt:=detik-(mn*60);

writeln ('HASILNYA:');
writeln (hr,' hari');
writeln (jm,' jam');
writeln (mn,' menit');
writeln (dt,' detik');
end.