type pasien=record
kode,nama:string;
tanggal,masuk:string;
bayar:real;
lama:byte;
end;
larikpas=array[1..20] of pasien;
var pas:larikpas;
i,n:byte;
lagi:char;
x:integer;
begin
lagi:='y';
while lagi='y' do
begin
inc(n);
writeln('mengisi data pasien ',n);
write('kode pasien >');readln(pas[n].kode);
write('nama pasien >');readln(pas[n].nama);
write('tanggal masuk
writeln;write('mau masukan data pasien lain
end;
{transaksi}
writeln('berapa hari menginap:');
for i:=1 to n do
begin
write('pasien ', pas[i].nama, ' menginap selama : ');
readln(x); pas [i].lama:=x;
if x>=5 then
pas [i].bayar:=2000000
else pas [i].bayar:=1000000;
end;
{cetak}
clrscr;
writeln('DAFTAR NAMA PASIEN RAWAT INAP RUMAH SAKIT HAPPY LIFE');
writeln('======================================================================');
writeln(' no | kode |nama pasien|tanggal masuk| waktu menginap | membayar |');
writeln('----------------------------------------------------------------------');
for i:=1 to n do with pas[i] do
writeln(i:3,kode:6,nama:15,masuk:15,lama:10,' hari',bayar:15:2);
writeln('----------------------------------------------------------------------');
end.
2 komentar:
Artikel program yang bagus, tp pada bagian
" write('tanggal masuk
');readln(pas[n].masuk); "
klo Bisa jangan di enter seharusnya
" write('tanggal masuk');readln(pas[n].masuk); "
agar klo di CoPas langsung bisa di jalanin di programnya tanpa da ket eror...
Oke,,thank ats kritikannya. .
Posting Komentar