Pemrograman dengan GOTOXY

Kamis, 04 Maret 2010

Paskal meyediakan sebuah program untuk meletakan hasil tampulan pada baris dan kolom yang sudah ditentukan oleh karena itu Fungsi Gotoxy lah berperan, sedangkan clreol untuk menghapus baris yang berada disebelah kanan kursor lebih jelas silahkan dicoba

Program ini untuk mengetahui program dengan prosedur standar Clrscr, GoTo XY dan ClrEol

Program Prak1a;
uses wincrt;
var nilai : integer;
begin
(*Contoh program dengan prosedur standar Clrscr, GoTo XY dan ClrEol*)
Writeln(‘Penggunaan prosedur standar Clrscr dan GoToXY’);
Writeln(‘_____________________________________________’);
Writeln;
GoToXY (20,5);
Writeln (‘Anda sedang belajar Pascal’);
Writeln;
Writeln;
Writeln(‘Penggunaan prosedur standar ClrEol’);
Writeln(‘__________________________________’);
Writeln;
GoToXY (15,10);
Write(‘Masukkan sebuah nilai integer:’);
Readln(Nilai);
GoToXY(15,10);
ClrEol;
Writeln(‘Anda Pintar !!’);
end.