Persma

...

PROGRAM PASCAL 1

Aang husni Mubarok Danuri Aang husni Mubarok Danuri

Sabtu, 22 Okt '11 18:16

program cek_bilangan;
uses wincrt;
var
   BIL : integer;
   KET : string;
begin                    
 write('masukan bilangan: ');readln(BIL);
  if BIL =0 then
     KET:='nol'
 else
  if BIL >0 then
     KET:='POSITIF'
 else
     KET:='NEGATIF';
 writeln('maka ',BIL,' adalah ',KET);
end.

----------------------------------------------

program membaca_no_bulan_tahun;
uses wincrt;
var
  bul :integer;
  tah :integer;
  hari : string;
begin
write( 'MASUKAN NO.BULAN : ');readln(bul);
write( 'MASUKAN TAHUN : ');readln(tah);
case bul of
  1:hari :='31';
  2:if(tah mod 4=0) then hari:='29'
    else hari:='28';
3:hari :='31';
4:hari :='30';
5:hari :='31';
6:hari :='30';
7:hari :='31';
8:hari :='31';
9:hari :='30';
10:hari :='31';
11:hari :='30';
12:hari :='31';
end;
writeln('jadi jumlah hari yang dimasukan adalah: ',hari);
end.

-----------------------------------------------------

program perbandingan_angka;
uses wincrt;
var
   BIL1 : integer;
   BIL2 : integer;
   BIL3 : integer;
   KET  : String;
begin
     write('masukan bilangan ke-1: ');readln(BIL1); 
     write('masukan bilangan ke-2: ');readln(BIL2);
     BIL3 := if BIL1 > BIL2 Then
             Write('TERBESAR');
           else
            if BIL2 > BIL1 Then
               write('TERKECIL');
     Writeln('jadi angka terbesar adalah
-----------------------------------------------------

program detik_ke_jam;
uses wincrt;
var
 i,j,m,d:integer;
begin
writeln('masukan jumlah detik');readln(i);
j:=i div 3600;
m:=(i mod 3600)div 60;
d:=i mod 60;
writeln (' jadi ',i,' adalah ',j,' jam ',m,' menit ',d,' detik ');
end.

----------------------------------------------------

PROGRAM MENGHITUNG_GAJI_KARYAWAN;
USES WINCRT;
VAR
   NAMA                 :STRING;
   GAPOK,TUNJANGAN,PAJAK,TOTALGAJI: REAL;
BEGIN
     WRITELN('========================');
     WRITELN('MENGHITUNG GAJI KARYAWAN');
     WRITELN('========================');
     WRITELN;
     WRITE('NAMA KARYAWAN: ');READLN(NAMA);
     WRITE('MASUKAN GAJI POKOK :Rp.');READLN(GAPOK);
     TUNJANGAN:=(10/100*GAPOK);
     PAJAK:=5/100*(GAPOK+TUNJANGAN);
     TOTALGAJI:=GAPOK+TUNJANGAN-PAJAK;
     WRITELN('JADI JUMLAH TUNJANGAN :Rp.' ,TUNJANGAN :0:0);
     WRITELN('JADI JUMLAH PAJAK :Rp.' ,PAJAK :0:0);
     WRITELN('JADI TOTAL GAJI YANG DITERIMA ADALAH: Rp.' ,TOTALGAJI:0:0);
END.

-------------------------------------------------------------------------

PROGRAM INPUTAN_MAHASISWA;
USES WINCRT;
VAR
   NAMA         :STRING;
   ABSEN        :INTEGER;
   TUGAS        :INTEGER;
   UTS          :INTEGER;
   UAS          :INTEGER;
   N_AKHIR  :REAL;
   GRADE:CHAR;
   KET:STRING;
BEGIN
     WRITELN('MASUKAN NAMA:');READLN(NAMA);
     WRITELN('MASUKAN ABSEN:');READLN(ABSEN);
     WRITELN('TUGAS:');READLN(TUGAS);
     WRITELN('UTS:');READLN(UTS);
     WRITELN('UAS:');READLN(UAS);
N_AKHIR:=(0.2*ABSEN)+(0.15*TUGAS)+(0.25*UTS)+(0.4*UAS);
     IF N_AKHIR >=85 THEN
        GRADE := 'A'
     ELSE
         IF N_AKHIR >=75 THEN
            GRADE := 'B'
         ELSE
             IF N_AKHIR >=65 THEN
                GRADE := 'C'
            ELSE
               IF N_AKHIR >=55 THEN
                  GRADE := 'D'
               ELSE GRADE := 'E';

     CASE GRADE OF
     'A' : KET:= 'LULUS MEMUASKAN';
     'B' : KET:= 'LULUS BAIK';
     'C' : KET:= 'LULUS CUKUP';

     ELSE
         KET:= 'TIDAK LULUS';
     END;
     WRITELN('JADI NILAI AKHIR:',N_AKHIR:0:2);
     WRITELN('JADI GRADE ' ,GRADE, ' DAN DINYATAKAN ', KET);
     END.      

--------------------------------------------------------------

program inputan_huruf_Vokal;
uses wincrt;
var
  hurup :char;
begin
write('masukan hurup: ');readln(hurup);
case hurup of
 'a' : write ('hurup vokal1');
 'i' : write ('hurup vokal1');
 'u' : write ('hurup vokal1');
 'e' : write ('hurup vokal1');
 'o' : write ('hurup vokal1');
else
 write('konsonan');
end;
end.

---------------------------------------------------------------
program kalkulator;     
uses wincrt;
var
  x,y,hasil :real;
  op:char;
begin
write( 'masukan angka pertama : ');readln(x);
write( 'masukan operator : ');readln(op);
write( 'masukan nilai kedua : ');readln(y);
case op of
'+' :hasil:= x+y;
'-' :hasil:= x-y;
'*' :hasil:= x*y;
'/' :hasil:= x/y;
end;
writeln('jadi hasil operasi perhitungan adalah : ',hasil:0:2);
end.

----------------------------------------------------------------

PROGRAM MENGHITUNG_KOMISI;
USES WINCRT;
VAR
   NAMA    :CHAR;
   TOPEN   :REAL;
   HASIL   :REAL;
BEGIN
   WRITELN('MENGHITUNG KOMISI SEORANG SALES');
   WRITELN('===============================');
   WRITELN;
    WRITE('MASUKAN NAMA SALES ');READLN(NAMA);
    WRITE('MASUKAN TOTAL PENJUMLAHAN :Rp.');READLN(TOPEN);
    HASIL:=(0.1*TOPEN);
    WRITELN('JADI KOMISI YANG DI DAPAT : Rp.'  ,HASIL :0:0);
END.

-----------------------------------------------------------------

program mengkonversi_detik_ke_jam;
uses wincrt;
var
 j,m,d,dm,sisa,sisa1:integer;
begin
write('masukan jumlah detik: ');readln(dm);
if (dm/3600)>0 then
 begin
  j:=dm div 3600;
  sisa:=dm-(j*3600);
  end
 else
  begin
   j:=0;
   sisa:=dm;
  end;
 if (sisa/60)>0 then
  begin
  m:=sisa div 60;
  sisa1:=sisa-(m*60);
  end
 else
  begin
  m:=0;
  sisa1:=sisa;
 end;
     d:=sisa1;
     writeln;
     writeln('hasil => ',j,' jam ',m,' menit ',d,' detik');
end.

-------------------------------------------------------------------

program luas_Lingkaran;
uses wincrt;
var
   r,l,k:real;
begin
 write('masukann panjang jari-jari:');readln(r);
 l:=3.14*r*r;
 k:=3.14*2*r;
 writeln('jadi luas lingkaran adalah:', l:0:0);
 writeln('jadi keliling lingkaran adalah:', k:0:0);
end.

-------------------------------------------------------------------

program menghitung_detik;
uses wincrt;
var
 j :integer;
 m :integer;
 d :integer;
 h :integer;
begin
 writeln('=MENGHITUNG PROGRAM DETIK=');
 writeln('by aang husni mubarok danuri');
 writeln;
 write('masukan jumlah jam :');readln(j);
 write('masukan jumalah menit:');readln(m);
 write('masukan jumlah detik:');readln(d);
 writeln;
 h:=(j*3600)+(m*60)+d;
 writeln('jadi hasil nya adalah :',h,' detik');
 end.
--------------------------------------------------------------------

program menghitung_kecepatan;
uses wincrt;
var
   jarak,waktu,kecepatan:real;
begin
 write('masukan jarak(km):');readln(jarak);
 write('masukan waktu (jam):');readln(waktu);
 kecepatan:=jarak/waktu;
 writeln('jadi,kecepatan yang dibutuhkan',kecepatan);
end.

-------------------------------------------------------------------

program min_max;
uses wincrt;
var
  a,b,c,b1,b2,b3:integer;
begin
writeln('**************************');
writeln('MEMBACA NO BULAN DAN TAHUN');
writeln('++++++++++++++++++++++++++');
write('masukan angka -1 : ');readln(a);
write('masukan angka -2 : ');readln(b);
write('masukan angka -3 : ');readln(c);
   if (a>b) and (a>c) then b1:=a;
   if (b>a) and (b>c) then b1:=b;
   if (c>a) and (c>b) then b1:=c;

   if (a   if (b   if (c
   if ((a>b) and (ac)) then b2:=a;
   if ((b>a) and (bc)) then b2:=b;
   if ((c>a) and (cb)) then b2:=c;

writeln('jadi pengurutan bilangan yang dimasukan adalah : ',' ',b3,' ', b2,' ', b1);
end.

---------------------------------------------------------------------------------

program penukaran_nilai;
uses wincrt;
var
 a,b,c :integer;
begin
 writeln('PROGRAM PENUKARAN NILAI');
 writeln('=======================');
 writeln;
 write('masukan nilai variabel a:');readln(a);
 write('masukan nilai variabel b:');readln(b);
 writeln;
 c:=a;
 a:=b;
 b:=c;
 writeln;
 writeln('jadi hasil penukaran a:=',a);
 writeln('jadi hasil penukaran b:=',b);
 end.

------------------------------------------------------------------------------------
program pertambahan_bilangan;
uses wincrt;
var
   bilangan1 :integer;
   bilangan2 :integer;
   hasil     :integer;
begin
     writeln('program pertambahan bilangan');
     writeln('****************************');
     writeln;
     write('masukan bilangan pertama:');
     readln(bilangan1);
     write('masukan bilangan kedua:');
     readln(bilangan2);
     hasil:= bilangan1+bilangan2;
     writeln('bilangan1,'+',bilangan2 '='hasil');
end.

-----------------------------------------------------------------------------------

program menghitung_selisih_waktu;
uses wincrt;
var
   j,m,d,j1,m1,d1,h1,hm,s1,sisa,sisa1:longint;
begin
     writeln('PROGRAM PENGHITUNG SELISIH WAKTU');
     writeln('================================');
     writeln;
     write('MASUKAN WAKTU KE 1 JAM  : ' );readln(j);
     write('MASUKAN WAKTU KE 1 MENIT: ' );readln(m);
     write('MASUKAN WAKTU KE 1 DETIK: ' );readln(d);
     writeln('================================');
     write('MASUKAN WAKTU KE 2 JAM  : ' );readln(j1);
     write('MASUKAN WAKTU KE 2 MENIT: ' );readln(m1);
     write('MASUKAN WAKTU KE 2 DETIK: ' );readln(d1);
     h:=(j*3600)+(m*60)+d;
     h1:=(j1*3600)+(m1*60)+d1;
     s1:=h1-h;
     if (s1/3600)>0 then
begin
     hj:=s1 div 3600;
     sisa:=s1-(hj*3600);
    end
 else
     begin
     hj:=0;
     sisa:=s1;
    end
     if (sisa/60)>0 then
 begin
     hm:=sisa div 60;
     sisa1:=sisa-(hm*60);
    end
 else
     begin
     hm:=0;
     sisa1:=sisa;
    end
  writeln;
  writeln('SELISIH WAKTU: ',hj,'JAM',mm,'MENIT',sisa1,'DETIK');
end.

--------------------------------------------------------------------------------

PROGRAM MENGHITUNG_PANJANG_SISI_MIRING_SEGITIGA;
USES WINCRT;
VAR
 PA,PT,HASIL : REAL;
BEGIN
     WRITELN('=======================================');
     WRITELN('MENGHITUNG PANJANG SISI MIRING SEGITIGA');
     WRITELN('=======================================');
     WRITELN;
     WRITE('MASUKAN PANJANG ALAS : ');READLN(PA);
     WRITE('MASUKAN PANJANG TINGGI: ');READLN(PT);
     HASIL:=sqrt(sqr(pa)+sqr(pt));
     WRITELN;
     WRITE('JADI PANJANG SISI MINRING SEGITIGA ADALAH : ' ,HASIL:0:0);
END.

---------------------------------------------------------------------------------

PROGRAM MENGHITUNG_SELISIH_WAKTU;
uses wincrt;
var
   j,m,d,h,j1,m1,d1,h1,s1,hj,hm,sisa,sisa1:longint;
begin
     write('waktu ke-1 jam   = ');readln(j);
     write('waktu ke-1 menit = ');readln(m);
     write('waktu ke-1 detik = ');readln(d);
     writeln('==============================');
     write('waktu ke-2 jam   = ');readln(j1);
     write('waktu ke-2 detik = ');readln(m1);
     write('waktu ke-2 detik = ');readln(d1);
     h:=(j*3600)+(m*60)+d;
     h1:=(j1*3600)+(m1*60)+d1;
     s1:=h1-h;
end.

-----------------------------------------------------------------------------------

program transaksi_penjualan;
uses wincrt;
var
   nb:string;
   harga,jb,tbayar,uang,cb:real;
begin
     writeln('===================');
     writeln('transaksi penjualan');
     writeln('===================');
     writeln;
     write('NAMA BARANG  : ');readln(nb);
     write('HARGA        :Rp. ');readln(harga);
     write('JUMLAH       : ');readln(jb);
     tbayar:=harga*jb;
     writeln;
     write('TOTAL BAYAR  :Rp. ',tbayar:0:0);
     writeln;
     write('JUMLAH UANG  :Rp. ');readln(uang);
     cb:=uang-tbayar;
     writeln;
     write('KEMBALIAN    :Rp.' ,cb:0:0);
     writeln;
end.

------------------------------------------------------------------------------------

program Nilai_Tukar_Pecahan;
uses wincrt;
var j,srb,lmr,srt,lmp,dl: longint;
begin
  writeln('+-=********************************=-+');
  writeln('| Program Nilai Tukar Pecahan Rupiah |');
  writeln('+-=********************************=-+');
     write(' Masukan Jumlah Rupiah : Rp.');readln(j);
       srb:=  j div 1000;
       lmr:= (J mod 1000)div 500;
       srt:= (j mod 500) div 100;
       lmp:= (j mod 100) div 50;
       dl := (j mod 50)  div 25;
       writeln('+------------------------------------+');
        writeln(' Jadi Pecahan Dari Rp.',j,' Adalah: ');
         writeln('+------------------------------------+');
         writeln(' ' ,srb, ' Buah Koin Pecahan Rp.1000,- ');
          writeln(' ' ,lmr, ' Buah Koin Pecahan Rp.500,- ');
           writeln(' ' ,srt, ' Buah Koin Pecahan Rp.100,- ');
          writeln(' ' ,lmp, ' Buah Koin Pecahan Rp.50,- ');
         writeln(' ',dl, ' Buah Koin Pecahan Rp.25,-');
        writeln;writeln;
       writeln(' ========================================================');
      writeln(' Terimakasih Atas Kunjungan Anda, Silahkan Datang Kembali ');
     writeln;writeln;writeln('                                   atas nama pebuat program');
    Writeln;writeln;writeln;writeln;writeln('                                     (husni mubarok)');  
end.

------------------------------------------------------------------------------------------------------


Tag: aang husni mubarok danuri
Sebarkan Digg Delicious MySpace

Terkait:

« Ancaman Fundamentalisme Ganda Becak Tua »

Komentar:

dwexp 0 0
aduhhhh program lagi

Silahkan login untuk memberikan pendapat

Tentang Persma... ↓

×

Tentang Persma

Situs web 2.0 untuk menampung dan mewartakan pengalaman serta kesaksian khalayak tentang aneka hal yang berhubungan dengan kehidupan bersama.

Di sini Anda bisa:

Mari register untuk beraktivitas di sini!