contoh program pascal menggunakan prosedure

 

Program Menggunakan Prosedure

program contoh_procedure;
uses wincrt;
procedure judul;
begin
writeln ('====================================================================');
writeln ('| DATA PENDAFTARAN ANAK DI POSYANDU | ');
Writeln ('|    Kampung Jawa kota Tanjungpinang    |');
writeln ('====================================================================');
writeln;
end;
procedure laporan;
begin
gotoxy (1,1);write('======================================================================');
gotoxy (1,2);write('|| LAPORAN DATA PENDAFTARAN POSYANDU ||');
gotoxy (1,3);write('||     Kampung Jawa kota Tanjungpinang    | |');
gotoxy (1,4);write('======================================================================');
gotoxy (1,5);write(' Tanggal 08 Januari 2023 ');
gotoxy (1,6);write('======================================================================');
gotoxy (1,7);write('|| NO | NAMA | UMUR | ALAMAT | ORANG TUA ||');
gotoxy (1,8);write('======================================================================');
end;
type emay = RECORD
no_daftar :integer;
nm_anak :string;
umur:string;
alamat :string;
org_tua :string;
end;
var
data :array [1..10] of emay;
e,m,y:integer;
ulang:char;
pilih:byte;
procedure main_menu (var pil:byte);
begin
clrscr;
writeln(' MENU DATA POSYANDU ');
writeln('1.Tambah Data POSYANDU');
writeln('2.Lihat Data POSYANDU');
Writeln('3.keluar');
writeln;
write('Masukan Pilihan [1-3] :');readln(pil);
end;
procedure tambah_data;
begin
clrscr;
writeln(' TAMBAH DATA ');
Writeln;
write('BERAPA DATA YANG AKAN DI INPUTKAN???? :');read(y);
writeln;
for m:=1 to y do
begin
with data[m] do
begin
clrscr;
judul;
write('Masukan Nomor Daftar :');readln(no_daftar);
write('Masukan Nama Anak :');readln(nm_anak);
write('Masukan Umur Anak :');readln(umur);
write('Masukan alamat anak :');readln(alamat);
write('Masukan nama Orang tua :');readln(org_tua);
end;
end;
end;
procedure tampil_data;
begin
clrscr;
laporan;
writeln;
for m:=1 to y do
begin
with data[m] do
begin
gotoxy (1,8+m);writeln('||',no_daftar);
gotoxy (11,8+m);writeln('|',nm_anak);
gotoxy (25,8+m);writeln('|',umur);
gotoxy (36,8+m);writeln ('|',alamat);
gotoxy (56,8+m);writeln('|',org_tua);
gotoxy (69,8+m);writeln('||');
gotoxy (1,20);writeln('TERIMA KASIH');
end;
end;
readln;
end;
begin
repeat
main_menu(pilih);
case pilih of
1: tambah_data;
2: tampil_data;
end;
until pilih = 3;
end.