contoh pasckal persaamaan kuadrat

Program persamaan_kuadrat;

Uses wincrt;

var

a,b,c,D,x1,x2:real;

begin

writeln('Program Persamaan Kuadrat');

write('Ketikkan nilai a: ');readln(a);

write('Ketikkan nilai b: ');readln(b);

write('Ketikkan nilai c: ');readln(c);

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

writeln('D=',D:5:2);

if D<0 then

begin

writeln('D<0');

writeln('x1 dan x2 tidak real atau imajiner');

end

else if D=0 then

begin

writeln('D=0');

writeln('x1 dan x2 real dan sama');

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

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

writeln('x1=',x1:5:2);

writeln('x2=',x2:5:2);

end

else if D>0 then

begin

writeln('D>0');

writeln('x1 dan x2 real dan berlainan');

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

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

writeln('x1=',x1:5:2);

writeln('x2=',x2:5:2);

end;

end.

program pascal tiket bus

program tiket_bus;
uses wincrt;
    var
    jurusan,jenisbus: string;
    total,diskon,bayar: integer;
    harga:real;
    begin
    clrscr;
    writeln('             Pemesanan Tiket Bus YASSALAM ABADI             ');
    writeln('                PO YASSALAM ABADI                 ');
    writeln('      Jurusan JOGJA, WONOSARI dan JAKARTA        ');
    writeln('+-----+--------+-------------------------+----------------+');
    writeln('| Kode  Jurusan |           AC          |  Ekonomi  |');
    writeln('+-----+--------+------------------------------------------+');
    writeln('|[1] JOGJA         | Rp.60.000 (Disc. 10%) | Rp.40.000 |');
    writeln('|[2] WONOSARI      | Rp.75.000             | Rp.50.000 |');
    writeln('|[3] JAKARTA       | Rp.20.000 (Disc. 5%)  | Rp.15.000 |');
    writeln('+-----+--------+-------------------------+----------------+');
    writeln('');
    writeln('');
    writeln('Silahkan isi data dibawah ini :');
    begin
    write('- Kode Jurusan : ');readln(jurusan);
    write('- Jenis Bus    : ');readln(jenisbus);
    write('- Jumlah Tiket : ');readln(total);
    write('- Harga bayar  : ');
    if (jurusan='1') and (jenisbus='ac')then harga:=60000-(60000*0.1);
    if (jurusan='1') and (jenisbus='ekonomi')then harga:=40000;
    if (jurusan='2') and (jenisbus='ac')then harga:=75000;
    if (jurusan='2') and (jenisbus='ekonomi')then harga:=50000;
    if (jurusan='3') and (jenisbus='ac')then harga:=20000-(20000*0.05);
    if (jurusan='3') and (jenisbus='ekonomi')then harga:=15000;

    writeln('Rp.',total*harga:0:2);
    writeln('');
    writeln(' Terimaksih atas pemesanannya ');
    writeln(' Data Anda sedang kami proses ');
    writeln(' Kami siap melayani dengan sepenuh hati #ricky# ');
    readln;
    end;
    end.

program diskon pada pascal

program disskon;
uses wincrt;
var
Harga : longint;
diskon, bayar : real;
begin
    clrscr;
    write('Inputkan Harga : ');read(Harga);
    if (Harga >= 100000) and (Harga < 500000) then
begin
    Diskon := Harga * (10/100);
    Bayar := Harga - Diskon;
    write('Bayar = ' , Bayar:0:0);
end
    else
    if (Harga >= 500000) then
begin
    Diskon := Harga * (20/100);
    Bayar := harga - Diskon;
    write('Bayar = ' , Bayar:0:0);
end
    else
    if Harga < 100000 then
    write('Bayar = ' , Harga);
readkey;
end.

program pascal hitung nilai rata2

program HIT_RATA_RATA;
uses wincrt;
var
   N:integer;
   U:real;
      procedure RATA_RATA(N:integer; var U:real);
      var
         I,Bil,Total:integer;
      begin
         Total:=0;
         I:=1;
         while I<=N do
         begin
            write('Masukan Bilangan ',I,' = ');
            readln(Bil);
            Total:=Total+Bil;
            I:=I+1;
         end;
         U:=Total/N;
      end;
begin {program utama}
   clrscr;
   write('Banyaknya Bilangan = ');
   readln(N);
   writeln('====================');
   RATA_RATA(N,U);
   writeln('Rata-Rata = ',U:10:2);
   readln;
end.

program bulan dengan pascal

program bulan;
uses wincrt;
var
   no:integer;
      function nama_bulan(no:integer):string;
      begin
         case (no) of
         1:nama_bulan:='Januari';
         2:nama_bulan:='Februari';
         3:nama_bulan:='Maret';
         4:nama_bulan:='April';
         5:nama_bulan:='Mei';
         6:nama_bulan:='Juni';
         7:nama_bulan:='Juli';
         8:nama_bulan:='Agustus';
         9:nama_bulan:='September';
         10:nama_bulan:='Oktober';
         11:nama_bulan:='November';
         12:nama_bulan:='Desember';
      end;
   end;
begin
   clrscr;
   writeln('Input Nomor Bulan : ');
   readln(no);
   writeln('Nama Bulan:',nama_bulan(no));
   readln;
end.

PROGRAM pascal penjualan buah

Program Penjualan_Buah_Segar_;

Uses wincrt;

Var napem,nb:string[15] ;

hrg,jb,jh,disc,tot:real;

Ul:char;

begin

Repeat

clrscr;

writeln;

writeln('----------------------------------------');

writeln(' DATA PENJUALAN BUAH SEGAR /KG');

writeln('----------------------------------------');

writeln;

write('Nama Pembeli     =  '); readln(napem);

writeln;

write('Buah Yang Dibeli =  '); readln(nb);

writeln('.............................'); 

if nb='jeruk' then hrg:=5000 else

if nb='mangga' then hrg:=7000 else  

if nb='apel' then hrg:=9000 else

if nb='duren' then hrg:=11000;

begin

end;

writeln;

write('HargaBuah       =','Rp',hrg:6:0,'/Kg');

writeln;

writeln;

write('JumlahBeli      =  '); readln(jb);

writeln;

jh:= hrg*jb;

write('JumlahHarga     =','Rp',jh:10:0);

writeln;

writeln('.............................');

writeln;

if jb> 3 then disc:=0.2*jh;

begin

end;

write('Anda Dapat Diskon=','Rp',disc:10:0);

writeln;

writeln('.............................');

writeln;                                          

writeln;

write('Total Bayar      =','Rp',hrg*jb-disc:10:0);

writeln;

writeln('----------------------------------------');writeln;

write('Terima kasih atas Kunjungannya#Ricky#');

readln;

Write('Mau Ulang Lagi? [Y/T]: ');Readln(Ul);

Until Upcase(Ul)<>'Y';

end.

CONTOH PROGRAM DERET KELIPATAN PASCAL

turbo pascal 1.5 - deret kelipatan x yang kurang dari y

program deretkelipatanxyangkurangdariy;
uses wincrt;

var
     x,y,i:integer;

begin

writeln('            =================================================         ');

writeln('');

writeln('                  PROGRAM DERET KELIPATAN                       ');

writeln('                    Dibuat oleh ricky coebra                          ');

writeln('                       @copyright 2013                                ');

writeln('');

writeln('            =================================================         ');

     write('X     = ');readln(x);
     write('Y     = ');readln(y);
     write('Deret = ');
     i:=x;
     while x<y do
     begin
          write(x,' ');
          x:=x+i;
     end;
end.