Cute Bow Tie Hearts Blinking Blue and Pink Pointer

Minggu, 23 Oktober 2011

Program Pembantu *Prosedur*

Program prosedure_sederhana;
uses wincrt;
var
i : integer;
Procedure display_menu;
begin
writeln('Pilihan Menu');
writeln(' 1 : Edit file teks');
writeln(' 2 : Buka file teks');
writeln(' 3 : Simpan file teks');
writeln(' 4 : Kopi file teks');
writeln(' 5 : Cetak file teks');
end;
begin
writeln('memanggil prosedur');
display_menu;
writeln('kembali dari prosedure');
end.

0 Komentar: