Minggu, 18 Oktober 2009

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.


3 komentar:

  1. mana tugasnya pak untuk smester 1 ?????

    BalasHapus
  2. iya neeh....
    mannnnaaa???? >.<
    yaudah kirim aja via email dah...
    ke bowo.mibu@gmail.com

    BalasHapus
  3. pa kalo punya asisten tuh yg bener donk....
    jgn cuma namanya aja asisten tapi mahasiswa yg g bisa and g ngerti di biarin az, gimana mau pada ngerti,,,,,
    punya sisten msti yg bisa membuat segalanya mudah, donk pa. jgn ampe mahasiswa yg kurang ngerti di biarin and mesti tau dari tmn-tmnnya sendiri.... asisten kaya gitu g kepake pa kalo di tempat kerja aku.... paling didemo tuch....

    BalasHapus