Tugas Program Pascal

Hari senin lalu dikasih tugas sama dosen disuruh buat program gini soal nya

1.    Jika diketahui alas dan tinggi suatu segi tiga sama kaki, buatlah program untuk menghitung luas dan keliling segi tiga tersebut. Bila alas segitiga ini merupakan diameter suatu tabung dan tingginya adalah tinggi tabung, buatlah program untuk menghitung volume dan luas kulit tabung .

2.    Buatlah program untuk menghitung biaya pengiriman paket. Ketentuanya adalah : berat minimum paket 1 kg, jika kurang dianggap 1 kg. Ongkos per kg Rp.25000,-; bila menghendaki pelayanan khusus ditambah ongkos khusus Rp.2500,- per kg.

3.  Buat program untuk seleksi penerimaan karyawan. Jika jenis kelamin pria, pendikan SMA, dan tinggi badan >= 170 cm diterima sebagai SATPAM. Jika jenis kelamin wanita dan pendidikan SMA diterima sbg tenaga administrasi.

4.  Dengan menggunakan statemen pencabangan jamak CASE OF
      buatlah program untuk menentukan predikat kelulusan mahasiswa.
      Ketentuan lulus adalah nilai agama >= 60 dan ketentuan berikut ini  
      jika
        nilai <= 40              : indek nilai = ‘E’
         41 <= nilai  <= 54  : indek nilai = ‘D’
         55 <= nilai  <= 65  : indek nilai = ‘C’
         66 <= nilai  <= 79  : indek nilai = ‘B’
         Nilai >= 80             : indek nilai = ‘A’        

ya 4 soal yang harus kami kerjakan sekelas banyak yang ngeluh susah tapi menurut saya MATEMATIKA lebih susah dari pada ini soal walaupun saya sempet keteteran buat nya
dan juga sudah saya share di grub facebook

baik untuk soal pertama

program luas;
uses crt;
var
tanya:string;
a,t,r:integer;
ls,ks,vt,kt:real;
begin
clrscr;
write ('masukkan nilai alas:'); readln(a);
write ('masukkan nilai tinggi:'); readln(t);
Write ('Apakah nilai alas segitiga merupakan alas tabung ? y/t :'); readln(tanya);

vt:=3.14*a*a*t;
kt:=2*3.14*a*t;
ls:=(a*t)/2;
ks:=a+a+a;

if tanya ='y' then
writeln('voleme tabung:',vt:6:2);
if tanya ='y' then
writeln('keliling selimut tabung:',kt:6:2);


if tanya ='t' then
writeln ('Luas segitiga:',ls:6:2);
if tanya ='t' then
writeln ('Keliling segitiga:',ks:6:2);
readln;
end.

dan file pas nya yang sudah jadi bisa didownload disini

Soal kedua

program pengiriman_paket;
uses crt;
var
pk:string;
khusus,berat,bayar:real;
const
bt=1;
ongkos=25000;
ot=2500;
begin
clrscr;
write('Masukkan Berat barang :'); readln(berat);
if berat<1 then berat:=bt;
bayar:=berat*ongkos;
writeln('Total biaya yang harus dibayar:',bayar:6:2);
write('Apakah Anda ingin pelayanan khusus ? y/t :'); readln(pk);
khusus:=bayar+ot;
if pk ='y' then
writeln('Total ongkos dengan biaya khusus :',khusus:6:2);
if pk ='t' then
writeln('Total biaya yang harus dibayar:',bayar:6:2);
readln;
end.

dan file pas nya bisa didownload disini


Soal ketiga

program rekrutmen;
uses crt;
var
pd,jk:string;
tinggi,tb:real;
begin
clrscr;
write ('jenis kelamin p/w :'); readln(jk);
write ('pendidikan :'); readln(pd);
write ('tinggi badan :'); readln(tb);
begin
if (jk ='p') and (pd ='sma') and  (tb>170) then
write ('Diterima Jadi Satpam') else
if (jk ='p') and (pd ='sma') and  (tb=170) then
write ('Diterima Jadi Satpam') else
if (jk ='p') and (pd ='smk') and  (tb<170) then
write ('Tidak Diterima jadi satpam');
if (jk ='p') and (pd ='sma') and (tb<170) then
write ('TIdak Diterima jadi satpam');
if (jk ='p') and (pd ='smk') and (tb>170) then
write ('Tidak Diterima Jadi Satpam');
readln;
if (jk='w') and (pd ='sma')then
write ('Diterima Sebagai Staf Administrasi');
if (jk='w') and (pd ='smk') then
write ('Tidak Diterima Sebagai Staf Administrasi');
readln;
end
end.

file pas nya bisa didownload disini

Soal ke empat

program hitung_nilai_agama;
uses crt;
var
nilai:byte;
begin
clrscr;
write ('MASUKKAN NILAI AGAMA :'); readln(nilai);
case nilai Of

1..40 :begin
writeln('index nilai = E');
end;

41..54 :begin
writeln('index nilai = D');
end;

55..65 :begin
writeln('index nilai = C');
end;

66..79 :begin
writeln('index nilai = B');
end;

80..100 :begin
writeln('index nilai = A');
end
end;
readln;
end.

file pas nya bisa didownload disini


Selesai semoga bisa membantu rekan rekan sekalian