uses wincrt;
const maksdata=500;
type rekaman=record
bayi:integer;
bb:real;
end;
var by:rekaman;
i,jmldata : integer;
maks, min:real;
data : array [1..maksdata] of rekaman;
pil:char;
begin
repeat
CLRSCR;
WRITELN;
writeln(' SELAMAT DATANG DI');
writeln(' PROGRAM posyandu untuk mengetahui berat badan bayi anda');
WRITELN;
writeln('Menu Utama');
writeln;
writeln('1. Input berat badan bayi');
writeln('2. Laporan berat badan bayi');
writeln('3. Keluar');
WRITELN;
write('Pilihan : ');readln(pil);
case pil of
'1':begin
writeln(' Input berat badan bayi');
write(' JUMLAH DATA : ');
readln(jmldata);
WRITELN;CLRSCR;
for i :=1 to jmldata do
begin
clrscr;
WRITELN;
write(' Berat badan KE-',i,' = ');
readln(data[i].bayi);
end;
maks :=data[1].bayi;
min :=data[1].bayi;
begin
clrscr;
if maks <data[i].bayi then maks := data[i].bayi;
if min >data[i].bayi then min := data[i].bayi;
writeln;
writeln(' Berat badan bayi tertinggi = ',maks:6:1);
WRITELN;
writeln(' Berat badan bayi terendah = ',min:6:1);
end;end;
'2':begin
writeln('Laporan Berat Badan Bayi');
writeln(' ==============');
writeln('| Bayi | Berat |');
writeln(' ==============');
for i:=1 to jmldata do
writeln(i:2, data[i].bayi:8);
writeln(' ==============');readln;
end;
'3':begin
clrscr;
writeln('Rampung');
end;
end;
until (pil='3');
end.