PASCAL RECORD

Contoh program di bawah ini adalah program pengurutan nilai dari yang terbesar sampai yang terkecil dengan menggunakan RECORD;
Di bawah ini adalah jawaban dari soal UTS di Kampus tercinta POLITEKNIK NEGERI BALI.

uses crt;
Type
data = Record
No : integer;
Nama : string;
nilai : integer;
end;
procedure pindah(var a,b:integer);
var m:integer;
begin
m:=a;
a:=b;
b:=m;
end;
procedure pindah2(var x,y:string);
var n:string;
begin
n:=x;
x:=y;
y:=n;
end;

procedure pindah3(var c,d:integer);
var w:integer;
begin
w:=c;
c:=d;
d:=w;
end;
var
dt:array[1..10] of data;
tnil:real;
n,i,j:integer;
rnil:real;
begin
clrscr;
tnil:=0;
write('Masukan Jumlah Siswa :'); read(n);
for i:=1 to n do
begin
write('No:'); readln(dt[i].No);
write('Nama:'); readln(dt[i].Nama);
write('nilai:'); readln(dt[i].nilai);
tnil:=(tnil+dt[i].nilai);
end;
rnil:=tnil/n;
for i:=1 to n do
begin
if dt[i].nilaidt[j].nilai then
begin
pindah(dt[i].no,dt[j].no);
pindah2(dt[i].nama,dt[j].nama);
pindah3(dt[i].nilai,dt[j].nilai);
end;
end;
end;
for i:=1 to n do
begin
writeln('No :',dt[i].no);
writeln('Nama :',dt[i].nama);
writeln('Nilai :',dt[i].nilai);
writeln;
end;
readln;
end.

Posted in: Turbo Pascal