Penggunaan GotoXY dan ClrEol

Pendahuluan     

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

Isi

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.

Penutup

Ikutilah rumus tadi