Program Pascal
1. Listing1. Program menggunakantipe Record
Uses
Crt;
type
TSiswa=record
NIM:string[8];
Nama:string[25];
Umur:integer;
end;
var
S:TSiswa;
begin
writeln(‘Isikaninformasimengenaidirianda:’);
write(‘NIM:’);readln(S.NIM);
write(‘Nama:’);readln(S.Nama);
write(‘Umur:’);readln(S.Umur);
writeln;
writeln(‘NIM:’,S.NIM);
writeln(‘Nama:’,S.Nama);
writeln(‘Umur:’,S.Umur);
readln;
end.
ContohHasil yang diberikandari program 1 di atasadalahsebaagaiberikut:
Isikaninformasimengenaidirianda :
NIM : DOBO5777
Nama : RizkiDwiMulyana;
Umur : 18
Berikutiniinformasi yang telahandaisikan:
NIM : DOBO5777
Nama : RizkiDwiMulyana
Umur : 18
Tidak ada komentar:
Posting Komentar