PROGRAM PASCAL

CONTOH PROGRAM PASCAL

              

1.Soal  sebuah pasar swalayan memberikan discount kepada pengunjungnya bila pembeliannya diatas Rp.50000 besarnya discount adalah 10% dari nilai pembelian hitung berapa jumlah yang harus dibayar oleh setiap pembeli ?

Jawab:

program Diskon;

uses crt;

Var Beli,Discount,Bayar,Barang:real;

begin

write(‘masukan Beli =Rp.’ );readln(Beli);

if (Beli>50000) then

Discount:=Beli*0.1

else

Discount:=0;

Bayar:=Beli-Discount;

clrscr;

writeln(‘catt barang yang sudah dibeli tidak dapat ditukar atau dikembalikan ‘,Barang);

writeln(‘pasar swalayan Dhikaditho’);

writeln(‘Discount  = ‘,Discount:2:0);

writeln(‘Bayar   =Rp. ‘,Bayar:0:0);

readln

end.

2.Buatlah program untuk mencari luas persegi

Jawab:

program mencari_luas_persegi;

uses crt;

var

sisi,luas:real;

begin

clrscr;

write (‘masukan nilai sisi persegi’);

readln (sisi);

luas :=sisi*sisi;

write (‘luas persegi adalah ‘,luas:0:0);

readln;

end.

3.Buatlah program untuk mencari luas segitiga

Jawab:

program mencari_luas_segitiga;

uses crt;

var alas,tinggi,luas:real;

begin

clrscr;

write (‘masukan nilai alas : ‘);readln (alas);

write (‘ masukan nilai tinggi : ‘);readln (tinggi);

luas:=(alas*tinggi)/2;readln;

write (‘masukan luas segitiga adalah : ‘,luas);readln;

end.

4. Sebuah perusahaan taksi mempunyai aturan sebagai berikut:

Tarif 1km pertama 750 dan kilometer berikutnya 350 harus dibayar oleh penumpang dengan input adalah jarak yang ditempuh dan output yang diminta adalah jumlah pembayarannya

Jawab :

program Argo_taxi;

uses crt;

Var Jarak,Bayar:real;

begin

clrscr;

write(‘masukan jarak = ‘);readln(jarak);

if(jarak<=1)then

bayar:=750 else

Bayar :=750+(350*(jarak-1));

write(‘pembayaran adalah :Rupiah ‘,bayar:3:0);

readln;

write (‘taxi dhikaditho’);

readln;

end.

program persamaan_kuadrat;

uses crt;

var

a,b,c:Real;

D:Real;

X1,X2:Real;

begin

clrscr;

write(‘ masukan nilai a = ‘);readln (a);

write(‘ masukan nilai b = ‘);readln (b);

write(‘ masukan nilai c = ‘);readln (c);

D:=b*b-4*a*c;

if (D < 0) then

write(‘akar persamaan imajiner = ‘, 5 )

else

if (D>0) then

begin

X1:=(-b*sqrt(D) / (2*a));

X2:=(-b*sqrt(D) / (2*a));

end

else

begin

X1:=(-b*sqrt(D) / (2*a));

X2:=X1;

end;

write (‘nilai persamaan X1= ‘,X1:0:0);

write (‘nilai persamaan X2= ‘,X2:0:0);

readln;

end.

program pangkat;

uses crt;

var pang,i,n,a:real;

begin

clrscr;

i:=1;

pang:=1;

write(‘masukan nilai a: ‘);readln(a);

write(‘masukan nilai n: ‘);readln(n);

while (i<=n)

do begin

pang:=pang*a;

i:=i+1;

end;

write(‘pangkat’, pang:6:0);

readln;

end.

program array_berdimensi_1;

uses crt;

var

nim :array[1..5]of string[7];

nama:array[1..5]of string[15];

ipk :array[1..5]of real;

i,j:byte;

begin

clrscr;

for i:=1 to 5 do

begin

writeln(‘data mahasiswa ke     : ‘,i);

write(‘masukan NIM mahasiswa : ‘);readln(nim[i]);

write(‘masukan NAMA mahasiswa: ‘);readln(nama[i]);

write(‘masukan IPK mahasiswa : ‘);readln(ipk [i]);

end;

writeln(‘DAFTAR NILAI IPK MAHASISWA’);

writeln(‘……………………..’);

writeln(‘  NIM    NAMA          IPK’);

writeln(‘……..   ……………’);

for j:=1 TO 5 DO

begin

writeln(nim[j],’ ‘,nama[j],’ ‘,IPK[j]:2:2);

end;

writeln(‘……..  ……………..’);

end.

                                     By : memori-war.blogspot.com