0 Array dalam record

contoh aray

uses wincrt;
type anggota=record
nama:string;
nim:longint;
nilai:integer;
end;
var agt:array[1..100] of anggota ;
a,b,c,d:integer;


begin
write('data anggota=');
readln(b);
for a :=1 to b do

begin
write('nama=');readln(agt[a].nama);
write('nim=');readln(agt[a].nim);
write('nilai=');readln(agt[a].nilai);
end;
begin
writeln('nama nim nilai');
end;

begin
for a:= 1to b-1 do
for c:= 1+1 to b do
if agt[a].nilai
begin
d:=agt[a].nilai;
agt[a].nilai:=agt[c].nilai;
agt[c].nilai:=d;
end;
for a:= 1 to b do
begin
writeln (agt[a].nama,' ',agt[a].nim,' ',agt[a].nilai);
end;
end;
end.

Artikel Terkait :