30 Mei 2011

Program Cari Barang Rusak dengan Pascal

Kalo sebelumnya kita mencari barang berdasarkoan kodenya, Kali ini kita akan membuat sebuah program yang bakalan mencari barang dalam keadaan rusak. begimana kodenya? ikan hiu...ikan cucut, yuk lanjut...

Program CariBarangRusak ;
uses wincrt;
type AString= array[1..4] of string;
AInteger = array[1..4] of integer;
AChar = array[1..4] of char;
DataBarang = record
Kode : AString;
Nama : AString;
Jumlah : AInteger;
Kondisi : AChar;
end;
var
Datamasuk : DataBarang;
Kondisi, KodeCari : String;
i,j,n : integer;
begin
write('Masukan banyak data : ');readln(n);
clrscr;
for i := 1 to n do
begin
writeln('Datamasuk ',i);
writeln;writeln;
write('Kode barang : ');readln(Datamasuk.Kode[i]);
write('Nama barang : ');readln(Datamasuk.Nama[i]);
write('Jumlah barang : ');readln(Datamasuk.Jumlah[i]);
write('Kondisi(B/R) : ');readln(Datamasuk.Kondisi[i]);
clrscr;
end;
writeln('Tabel Data Barang');
writeln;writeln;
writeln('=================================================');
writeln('Kode_Barang    Nama_Barang   Jumlah   Kondisi');
writeln('=================================================');
for j := 1 to i do
begin
gotoxy(3,j+6);write(Datamasuk.kode[j]);
gotoxy(16,j+6);write(Datamasuk.Nama[j]);
gotoxy(30,j+6);write(Datamasuk.Jumlah[j]);
gotoxy(40,j+6);
if(Datamasuk.Kondisi[j]= 'B') then writeln('baik')else writeln('rusak');
end;

write('Kondisi barang yang ingin dicari : ');readln(KodeCari);
clrscr;
writeln;
writeln ('Daftar Barang Rusak') ;
writeln('============================================');
writeln('Kode_Barang    Nama_Barang    Jumlah');
writeln('============================================');

if (KodeCari = 'Baik') or (KodeCari='baik') then
begin

for j := 1 to i do
begin
        if (Datamasuk.Kondisi[j]='B') or (Datamasuk.Kondisi[j]='b') then
        writeln(Datamasuk.Kode[j]:9,Datamasuk.Nama[j]:14,Datamasuk.Jumlah[j]:9,Kondisi:9);
end;
end

else

begin
for j := 1 to i do
begin
        if (Datamasuk.Kondisi[j]<>'B') and (Datamasuk.Kondisi[j]<>'b') then
        writeln(Datamasuk.Kode[j]:9,Datamasuk.Nama[j]:14,Datamasuk.Jumlah[j]:9,Kondisi:9);
end;
end;

readln;
end.
 

Kalo udah di run, bakalan muncul hasil seperti ini 

Share on Facebook
Share on Twitter
Share on Google+

Related : Program Cari Barang Rusak dengan Pascal

0 Komentar:

Posting Komentar

Terimakasih telah meninggalkan Komentar di Didit Blog | Silahkan berkomentar dengan bebas, tidak mengandung SARA | komentar dengan link HIDUP akan dihapus | Terimakasih ^_^