Program Pascal Shorting

Program pascal mengurutkan angka
silahkan download DISINI

Read more »

Program pascal search

Program pascal  search, array

 Silahkan download progam bentuk pascal = DISINI

Read more »

Program Pascal Kasir

Program kasir;

uses wincrt;

var barang : array[1..20] of string;

banyak : array[1..20] of real;

harga : array[1..20] of integer;

kata,grs :string;

x,y,i,j : byte;

jum_harga,total_harga,diskon,total_bayar,uang : real;

begin

clrscr;

grs:='==================================================================';

kata:='Prgram Kasir';

x:=round ((78-length(kata))/2);

gotoxy(x,2) ;writeln(kata);

x:=round ((78-length(grs))/2);

gotoxy(x,3) ;write(grs);

{-------------------------------------------}

gotoxy(x,4);write('Data Belanja');

gotoxy(x,5);write(grs);

gotoxy(x,6);writeln('| No | Nama Barang | Harga Barang |Banyak | Jumlah Barang| ');

{-----------------------------------------------------------------------------------------}

i:=0;

total_harga:=0;

repeat

i:= i+1;

gotoxy(x,7+i);write('|',i);

gotoxy(x+5,7+i);write('|');

gotoxy(x+7,7+i);readln(Barang[i]);

if barang[i] <>'' then

begin

gotoxy(x+25,7+i);write('|');

gotoxy(x+28,7+i);readln(harga[i]);

gotoxy(x+28,7+i);writeln( harga [i] :10);

gotoxy(x+41,7+i);write('|');

gotoxy(x+44,7+i);readln(banyak[i]);

gotoxy(x+50,7+i);write('|');

jum_harga:=harga[i]*banyak[i];

gotoxy(x+53,7+i);writeln(jum_harga:10:2);

gotoxy(x+65,7+i);writeln('|');

total_harga:=total_harga+jum_harga;

end;

until barang[i]='';

{------------------------------------------------------------------------------------------}

diskon:=0;

if (total_harga>10000) and (total_harga<100000) then

diskon:=0.05*total_harga {diskon bg pembeli antara 10rb-100}

else

if (total_harga>=100000) then

diskon:=0.1*total_harga;{diskon bg pembeli lebih dr 100rb}

{------------------------------------------------------------------------------------------}

kata:='Faktur Penjualan';

y:=round((78-length(kata))/2);

gotoxy(y,2);writeln(kata);

j:=i-1;

gotoxy(x,8+j);write(grs);

gotoxy(x,8+j+1);write('Total Belanja');

gotoxy(x+53,8+j+1);write(total_harga:10:2);

gotoxy(x,8+j+2);write('Discount');

gotoxy(x+53,8+j+3);write(diskon:10:2);

gotoxy(x,8+j+3);write(grs);

gotoxy(x,8+j+4);write('Total Bayar Setelah discount');

total_bayar:=total_harga-diskon;

gotoxy(x+53,8+j+4);write(total_bayar:10:2);

gotoxy(x,8+j+5);write('Uang dibayar');

gotoxy(x+53,8+j+5);readln(uang);

gotoxy(x+53,8+j+5);writeln(uang:10:2);

gotoxy(x,8+j+6);write(grs);

gotoxy(x,8+j+7);write('Uang Kembali');

gotoxy(x+53,8+j+7);write(uang-total_bayar:10:2);

end.

Reactions:

Semoga Bermanfaat gan! ;)

Read more »

Program pascal perhitungan

program pascal penjumlahan pengurangan perkalian dan pembagian.

Silahkan download : DISINI

Read more »

PASCAL adalah

Pascal merupan salah satu program yang terkemuka karena struktur penulisannya yang mengalir seperti algoritma, saat ini kita akan mempelajari perbedaan antara case dan if pada pascal 1.5 (TPW 1.5). sebelum itu perhatikan keterangan berikut ini struktur dasarnya.

Program namaprogram; ? judul program
Var jenis : variable; ? jenis variabel
Begin ; ? memulai program
Clrscr ? membersihkan layar (boleh digunakan dan tidak)
Isi ? isi program
End. ? akhir program

Keterangan
Write ? menapilkan tulisan
Writeln ? menapilkan tulisan pada garis baru
Read ? menginput data
Readln ? manginput data pada garis baru
Var ? variable

CASE

program case1;
uses wincrt;
var nip,nama : string;
pendapatan,pajak : real;
gol : char;
begin
clrscr;
writeln(‘——— DAFTAR PAJAK ———-’);
writeln(‘_________________________________’);
write (‘NIP : ‘);readln(nip);
write (‘Nama Karyawan : ‘);readln(nama);
write (‘Golongan [A,B,C] : ‘);readln(gol);
write (‘Pendapatan : ‘);readln(pendapatan);
case upcase(gol) of
‘A’ : begin
writeln(‘Golongan ini bebas pajak’);
pajak := 0;
end;
‘B’ : pajak := 0.1 * pendapatan;
‘C’ : pajak := 0.2 * pendapatan;
else write(‘Salah melakukan Penginputan data ‘);
end;
writeln(‘Pajak : Rp. ‘,pajak:9:2);
end.

Tampilan saat case Di running

Sedangkan untuk program IF

program if1;
uses wincrt;
var nip,nama : string;
pendapatan,pajak : real;
gol : char;
begin
clrscr;
writeln(‘——— DAFTAR PAJAK ———-’);
writeln(‘_________________________________’);
write (‘NIP : ‘);readln(nip);
write (‘Nama Karyawan : ‘);readln(nama);
write (‘Golongan [A,B,C] : ‘);readln(gol);
write (‘Pendapatan : ‘);readln(pendapatan);
if (gol = ‘A’ )or (gol = ‘a’) then
pajak := 0
else if (gol = ‘B’) or (gol = ‘b’) then
pajak := 0.1 * pendapatan
else if (gol = ‘C’) or (gol = ‘c’) then
pajak := 0.2 * pendapatan
else write(‘Salah melakukan Penginputan data ‘);
writeln(‘Pajak : Rp. ‘,pajak:9:2);
end.

Semoga dengan ini kita dapat terus menambah wawasan kita dan bekal kita. Belajar –belajar dan belajarlah, “Jika kita dapat bermanfaat bagi orang lain maka kita sangat bermanfaat bagi diri kita”

Read more »

PASCAL

Struktur program pascal:

1. Judul program
2. Blok program
a. deklarasi
-label
-uses
-const
-type
-var
b. pernyataan
-begin
-end.


Hal yang perlu diperhatikan dlm program Pascal:

 Huruf besar atau kecil sama saja
 Nama program tidak boleh dipisahkan dengan spasi
 Pada deklarasi hendaknya ditulis semua perangkat yg digunakan dlm program tsb perangkat ini mendeklarasikan nama,jenis dan nilai obyek data yg akan digunakan dlm program.

Pada perangkat variabel, bilamana digunakan tipe data yg sejenis, penulisan masing2 item data ditulis scr bersamaan dipisahkan tanda koma
contoh: var c,r,f :real;
 Baris pernyataan diawali begin dan diakhiri end
 Pada setiap baris harus diakhiri dg notasi (;)


 Contoh penulisan program
Program konversi_suhu; {kepala program}
Var c,r,f :real; {deklarasi}
Begin
write(‘suhu celcius’); {pernyataan}
readln( c ); {pernyataan}
r:=4/5*c; {pernyataan}
f:=9/5*c+32; {pernyataan}
writeln(‘derajat reamur= ’ ,r);
writeln(‘derajat fahrenheit= ‘ ,f);
End.

kecuali pd akhir program diakhiri dg notasi (.)

 Penulisan dg huruf besar atau kecil pada Pascal saja
 Nama program tidak boleh dipisahkan dg spasi
 Pada bag deklarasi hendaknya ditulis semua perangkat yg digunakan dlm program tsb, mis : uses, label, const, type, dan var. masing2 perangkat ini mendeklarasikan nama, jenis, dan nilai obyek data yg akan digunakan dlm program


 Operator logika
1. NOT
2. AND
Bernilai true jika semuanya true
3. OR
Bernilai false jika semuanya false
4. XOR
bernilai true jika salah satu true

Read more »

Algoritma Menjumlahkan 2bilangan

Pascal

Program penjumlahan;
Uses crt;
Var bilA, bilB, bilC : integer;
Begin
Clrscr;
Write('Masukkan bilangan A : ');
Readln(bilA);
Write('Masukkan bilangan B : ');
Readln(bilB);
BilC := bilA+bilB;
Write('Hasil jumlahannya adalah = ',bilC);
Readln;
End.

Read more »