program penjualan for pascal

 

tanpa basa basi langsung aj yuk ke program nya,

cara membuat programnya ketikan codding berikut :

program penjualan;
uses wincrt;
var b            :string  ;
    h,y,u,by,tb:real  ;
    lagi          :char    ;
begin
writeln('Toko "laris manis"');
Writeln('------------------');
tb:=0;
Lagi:='Y';
while lagi='Y' do
begin
write('barang:');readln(b);
write('Harga:');readln(h);
write('Unit:');readln(u);
by:=H*u;
writeln('Bayar:',by:0:0);
writeln('coba lagi(Y/T);');readln(Lagi);
writeln;
writeln;
tb:=tb+by;
end;
writeln('total bayar:',tb:0:0);
end.

seperti gambar berikut ini :

 

setelah itu save dan RUN kan program anda, maka hasilnya akan muncul tampilan seperti berikut :

setelah anda RUN tampilan yg muncul adalah tulisan:

barang: (anda imputkan nama barangnya, di sini contohnya indomie) setelah itu enter,

harga: (inputkan harganya, di sini contohnya 34000)enter

bayar: (akan muncul hasilnya, yaitu harga di x dengan unit) enter
di situ ada pilihan coba lagi (Y/T);
pilih Y jika ingjika in menjumlahkan lagi, atau tekan T jika tidak (note Y dan T harus sesuai dengan yg di ketikan di program tadi, karna yg saya ketikan di program tadi menggunakan huruf besar maka anda harusmenggunakan huruf besar juga, jika anda gunakan huruf kecil maka codding anda tidak akn terbaca) setelah itu akan tampil semua hasil penjualannya.
susah ga teman2? gampang to. sudah dlu ya msh bnyak tugaz yg laen menanti,heeee  

program turbo pascal

Array Berisi Record

kali ini saya posting tentang record dan array,ada yang record berisi array,ada yang array berisi record,masing2 ada penjelasannya,yang sekarang bagian array yang berisi record. Pembuatan array yang elemen-elemennya berupa record sebenarnya sangat sederhana,konsepnya sama seperti kita mendefinisikan array untuk tipe data dasar (integer,real,string,char). Langkah awal untuk melakukan ini kita harus mendefinisikan record terlebih dahulu yang selanjutnya akan dijadikan tipe data pada saat pendeklarasian array,kaya gini gan :

type

 {Mendefinisikan tipe data record dgn nama Tmahasiswaiswa}

 Tmahasiswa = record

  NIM : string[8];

  Nama: string[30];

 end;

 {mendefinisikan tipe data berupa Array dari tipe Tmahasiswa}

 TKumpulanSiswa = array[1..100] of Tmahasiswa;

 {deklarasikan variabel dengan yang bertipe TKumpulanmahasiswa}

var

 A : TKumpulanmahasiswa; 

Terlihat diatas bahwa tipe TkumpulanMahasiswa merupakan tipe bentukan berupa array dimana setiap elemennya berupa record TMahasiswa. Selanjutnya tipe tersebut digunakan untuk mendeklarasikan variabel A. Dengan demikian,variabel A dapat menampung 100 buah record yang bertipe TMahasiswa.
berikut contoh programnya gan :

program ArrayRecord;

uses wincrt;

const max = 100;

type

 Tmahasiswa = record

  NIM:string[8];

  Nama:string[30];

 end;

TKumpulanmahasiswa = array[1..max] of TMahasiswa;



var

 a: TkumpulanMahasiswa;

 i,n: integer;

begin

 clrscr;

 write('Masukan jumlah mahasiswa yang diinginkan :');

 readln(n);

 writeln;



 {masukan data ke array}

 writeln('Memasukan data');

 writeln('________________');

 for i:=1 to n do begin

  writeln('Data mahasiswa ke :',i);

  write('NIM :');readln(A[i].NIM);

  write('Nama:');readln(A[i].Nama);

  writeln;

 end;

 clrscr;

 {menampilkan data dari array}

 writeln;

 writeln('DAFTAR MAHASISWA');

 writeln('_________________');

 writeln('    NIM ','':2,'  NAMA');

 writeln('_________________');

 for i:=1 to n do begin

  with A[i] do begin

   writeln(NIM:8, '':2, Nama);

  end;

 end;

end.

Jika dijalankan harus menghasilkan result seperti ini :

 

jika kita memasukkan 5, maka kita di suruh mengimputkan data sebanyak 5 jga,
seperti contoh di atas, dan jika kita enter maka hasilnya akan menjadi seperti gambar
di bawah ini :

gi mna gan, mudah kan??