Program Array dan Record Menggunakan Borland Delphi

Bismilllah.. ini postingan pertama gue di menu Tugas Kuliah. Gue bikin menu ini karena awalnya gue sering googling juga buat ngerjain tugas-tugas mata kuliah gue yaitu Sistem Komputer. Jadi... gue pikir ini saatnya gue memberikan pencerahan bagi para orang-orang yang kesulitan di luar sana,haha ustad emangnya.

Yang gue post ini lumayan sulit ditemukan di google, karena program yang gue buat adalah Program yang menggunakan Array dan Array tersebut nantinya akan memanggil Record. yaah.. mudah-mudahan bisa sedikit membantu loe loe semua buat nyelesaiin tugas, amin.

Mari disimaaak, :D

program daftar_pemesanan_jersey;


{$APPTYPE CONSOLE}


uses
  SysUtils;


type
  datapembeli=record
      Nip:string[15];
      Nama:string[15];
      ukuran:char;
      diskon,totharga,harga:real;
  end;
var
   pembeli:array [0..9] of datapembeli;
   i,n    :integer;
Begin
write('Isi Banyak Pembeli : ');readln(n);
writeln;
 for i :=0+1 to n do
  begin
  with pembeli[i] do
   begin
    Write('Isi Nama Pembeli  : '); readln(Nama);
    Write('Isi Nama Tim   : '); readln(Nip);
    Write('Isi ukuran      : '); readln(ukuran);
    writeln;
    case (ukuran) of
    'S': harga:=145000;
    'M': harga:=150000;
    'L': harga:=160000;


    end;
    diskon := (15/100)*harga;
    totharga := (harga-diskon);
    end;
   end;


    Writeln('========================================================================');
    Writeln('|                      .::DAFTAR JERSEY BOLA::.                        |');
    Writeln('========================================================================');
    Writeln('|    Nama    CLUB  SIZE      PRICE        DISCOUNT15%       TOTAL PRICE|');
    Writeln('========================================================================');
    for i := 1 to n do
     begin
      with pembeli [i] do
      writeln('|',Nama:8,Nip:8,ukuran:4,harga:15:2,diskon:15:2,totharga:20:2,       '|');
      end;
    Writeln('========================================================================');
    readln;
 end.


Nah kalo udah di kompile hasilnya kaya gini..

Jeng jeng..!! nah jadi programnya itu buat pemesanan jersey bola, oke ga tuh? wkwk. Jadi pada awal program, user akan diminta jumalah banyaknya pembeli. Abis itu kita inputkan informasi yang diminta oleh program, dan program akan menyimpannya dalam bentuk record. 

Program ini masih punya kelemahan, mau tau kelemahannya? *engga. oh yaudah klo g mau tau, haha. FYI kelemahannya terletak pada ukurannya. Jadi program ini hanya bisa buat ukuran S, M dan L... jadi harap maklum. hehehe soalnya gue juga masih BELAJAR. oke semoga yang baca postingan ini bisa menyempurnakan program yang gw rintis *lebay deh* hahaha.

INGAT PEMBACA YANG BAIK MENINGGALKAN JEJAK YANG BAIK PULA

jadiii.... klo bisa berikan komentar yang bermutu yaa!! hehehe