bagi anda yang sedang belajar pemrogaman pascal, ini saya kasih scrip buat "Membuat menu pilihan dengan Pascal" semoga bisa bermanfaat
uses crt;
type
recmhs = record
nama : string;
kelas : string;
npm : string;
end;
Membuat menu pilihan dengan Pascal
uses crt;
type
recmhs = record
nama : string;
kelas : string;
npm : string;
end;
coba = object
mhs : array [1..5] of recmhs;
procedure input;
procedure output;
end;
var
i,j,pil : integer;
satu : recmhs;
dua : coba;
procedure coba.input;
begin
clrscr;
for i := 1 to j do
with mhs[i] do
begin
write('Nama :');readln(nama);
write('Kelas :');readln(kelas);
write('NPM :');readln(npm);
writeln;
end;
readln;
end;
procedure coba.output;
begin
clrscr;
for i := 1 to j do
with mhs[i] do
begin
writeln;
writeln('Nama kamu :',nama);
writeln('Kelas kamu :',kelas);
writeln('NPM kamu :',npm);
end;
readln;
end;
begin
clrscr;
write('Masukkan jumlah data yang akan diinput : ');
readln(j);
repeat;
clrscr;
writeln('........DATA MAHASISWA........');
writeln('1.input data');
writeln('2.output data');
writeln('3.keluar dari data');
writeln;
writeln('Masukkan pilihan anda : ');
readln(pil);
case pil of
1: dua.input;
2: dua.output;
end;
until(pil=3);
clrscr;
writeln('Terima kasih (^_^)');
readln;
end.
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar