Program dangan Menu Meginputkan dan Menampilkan Data dengan Pascal

Posted by Unknown Wednesday, December 14, 2011 at 8:13 AM

Saya akan menujukan cara membuat Program dangan Menu Meginputkan dan Menampilkan Data dengan menggunakan Bahasa Pemrograman Pascal

Sorce codenya :

uses wincrt;
var
nama,alamat:array[1..10] of string;
nilai:array[1..10] of integer;
x,y,pilih:integer;

procedure tampilkan_menu;
begin
clrscr;
writeln('=========================');
WRITELN('       MENU UTAMA        ');
writeln('=========================');
WRITELN('   1. Memasukkan data    ');
WRITELN('   2. Menampilkan data   ');
WRITELN('   3. Keluar Program     ');
writeln('=========================');
writeln('   Pilihan anda [ ]      ');
writeln('=========================');
gotoxy(18,8);readln(pilih);
writeln;
writeln;

end;

procedure masukkan_data;
begin
 for x:=1 to 3 do
  begin
  write('masukkan nama ke-',x,' : '); readln(nama[x]);
  write('masukkan alamat ke-',x,' : '); readln(alamat[x]);
  end;
end;

procedure tampilkan_data;
begin

writeln('------------------');
  writeln('nama      alamat');
  writeln('------------------');
  for x:=1 to 3 do
  begin
  writeln(nama[x],'   ',alamat[x]);
  end;
   readln;
end;

{program utama}
begin
  repeat
   tampilkan_menu;
   if pilih=1 then
      masukkan_Data
   else if pilih=2 then
       tampilkan_data
   else if pilih=3 then
      exit;
  until pilih=3;
        writeln(' ') ;
 writeln('---------------------------------------------');
 writeln('************** Nama    : Heri Widyantoro  ************');
 writeln('##############  NIM    : 3105111352       ############');
 writeln('************** Prodi   : T.informatika/E  ************');
 writeln('---------------------------------------------');
end.

end.

Tampilanya :