RECORD

INI PROGRAM RECORD

uses wincrt;
type
TSiswa = record
nim : string[8];
nama : string[25];
agama : string[10];
ktp : string[25];
end;
var
s : TSiswa;
umur : integer ;
ts : integer;
tl : integer;
begin
clrscr;
write ('Masukkan tahun sekarang: ');
readln (ts);
writeln ('Isikan data anda dalam Form ini');
write ('NIM : ');
readln (s.nim);
write ('NAMA : ');
readln (s.nama);
write ('TAHUN LAHIR : ');
readln (tl);
umur := (ts-tl);
write ('AGAMA : ');
readln (s.agama);
write ('NO.KTP : ');
readln (s.ktp);
writeln;
writeln ('Berikut ini informasi yang anda berikan: ');
writeln ('NIM : ', s.nim);
writeln ('NAMA : ', s.nama);
writeln ('Umur : ', umur);
writeln ('AGAMA : ', s.agama);
writeln ('NO.KTP : ', s.ktp);
READLN;
end.

Anda baru saja membaca artikel yang berkategori dengan judul RECORD. Anda bisa bookmark halaman ini dengan URL https://alifrusdiana.blogspot.com/2014/01/ini-program-record-uses-wincrt-type.html. Terima kasih!

Ditulis oleh: Unknown - Rabu, 22 Januari 2014