Program Input Data Pascal

program input_data;
uses wincrt;
var
nama,nim,jur:string;
begin
clrscr;
gotoxy (22,3); write   ('Silahkan Masukkan Data Anda');

gotoxy (19,4); writeln ('------------------------------------');
gotoxy (20,5); write   ('Nama    : ');    readln(nama);
gotoxy (20,6); write   ('Nim     : ' );   readln(nim);
gotoxy (20,7); write   ('Jurusan : ');    readln(jur);
gotoxy (19,8); writeln ('------------------------------------');
writeln;

gotoxy (20,10); writeln ('Input Data Anda adalah:');
gotoxy (19,11); writeln ('-----------------------------------');
gotoxy (20,12); writeln ('Nama Anda : ',nama);
gotoxy (20,13); writeln ('Nim       : ',nim);
gotoxy (20,14); writeln ('Jurusan   : ',jur);
gotoxy (40,16); writeln ('Terima Kasih');
readln;
end.

Hasilnya :


















Download Source code dan demo Program Input Data Pascal (5.66 KB)

Related Post