penggunaan record pada pascal

program latrecord;

uses wincrt;

type
mahasiswa = record
nim : array[1..5] of string;
nama : array[1..5] of string;
ipk : array[1..5] of real;
end;

var datmhs : mahasiswa;
a : integer;
x : integer;

begin

for a := 1 to 5 do
begin
write(‘Nim Siswa = ‘); readln(datmhs.nim[a]);
write(‘Nama Siswa = ‘); readln(datmhs.nama[a]);
write(‘IPK Siswa = ‘); readln(datmhs.ipk[a]);
end;

clrscr;

x := 5;
gotoxy(01,1);writeln(‘DATA NILAI ‘);
gotoxy(01,2);writeln(‘——————————————-‘);
gotoxy(01,3);writeln(‘NIM NAMA NILAI ‘);
gotoxy(01,4);writeln(‘——————————————-‘);

for a := 1 to 3 do
begin
gotoxy(01,x);writeln(datmhs.nim[a]);
gotoxy(09,x);writeln(datmhs.nama[a]);
gotoxy(25,x);writeln(datmhs.ipk[a]:4:2);
x := x + 1;
end;

gotoxy(01,x);writeln(‘——————————————-‘);

end.

batas —————————————————————

progam datamahasiswa;
uses wincrt;

type mahasiswa = record
nim : array[1..3] of string;
nama: array[1..3] of string;
ipk : array[1..3] of real;
end;

var
datmhs : mahasiswa;
a:byte;

begin
for a := 1 to 3 do
begin
write(‘NIM Siswa :’);readln(datmhs.nim[a]);
write(‘Nama Siswa :’);readln(datmhs.nama[a]);
write(‘IPK Siswa :’);readln(datmhs.ipk[a]);
end;

for a := 1 to 3 do
begin
writeln(‘NIM :’,datmhs.nim[a]);
writeln(‘Nama :’,datmhs.nama[a]);
writeln(‘IPK :’,datmhs.ipk[a]:4:0);
end;
end.

————————————————————————–

uses wincrt;

type mahasiswa = record
nim : array[1..5] of string;
nama: array[1..5] of string;
ipk : array[1..5] of real;
end;

var
datmhs : mahasiswa;
a,x:byte;

begin
for a := 1 to 5 do
begin
write(‘NIM Siswa :’);readln(datmhs.nim[a]);
write(‘Nama Siswa :’);readln(datmhs.nama[a]);
write(‘Nilai :’);readln(datmhs.ipk[a]);
writeln(”);
end;

clrscr;
gotoxy(1,1);writeln(‘DATA NILAI ‘);
gotoxy(1,2);writeln(‘———————————————–‘);
gotoxy(3,3);writeln(‘NO’);
gotoxy(1,4);writeln(‘———————————————–‘);
gotoxy(7,3);writeln(‘NIM ‘);
gotoxy(20,3);writeln(‘NAMA’);
gotoxy(35,3);writeln(‘NILAI ‘);

x:=5;

for a := 1 to 5 do
begin
gotoxy(3,x);writeln(a);
gotoxy(7,x);writeln(datmhs.nim[a]);
gotoxy(20,x);writeln(datmhs.nama[a]);
gotoxy(35,x);writeln(datmhs.ipk[a]:4:2);
x:=x+1;
end;
writeln(‘———————————————–‘);

end.

—————————————————————————————-

uses wincrt;

type mahasiswa = record
nim : array[1..5] of string;
nama: array[1..5] of string;
ipk : array[1..5] of real;
end;

var
datmhs : mahasiswa;
a,x,indexmax,indexmin:integer;
max,min,tot, index,rata: real;

begin
for a := 1 to 5 do
begin
write(‘NIM Siswa :’);readln(datmhs.nim[a]);
write(‘Nama Siswa :’);readln(datmhs.nama[a]);
write(‘Nilai :’);readln(datmhs.ipk[a]);
writeln(”);
tot:= tot + datmhs.ipk[a];
if a = 1 then
begin
max:= datmhs.ipk[a];
min:= datmhs.ipk[a];
end ;

if datmhs.ipk[a] >=max then
begin
indexmax:=a;
max:=datmhs.ipk[a];
end;
if datmhs.ipk[a] <= min then
begin
indexmin:=a;
min:=datmhs.ipk[a]
end;
rata:=tot/5

end;

clrscr;
gotoxy(1,1);writeln(‘DATA NILAI ‘);
gotoxy(1,2);writeln(‘———————————————–‘);
gotoxy(3,3);writeln(‘NO’);
gotoxy(1,4);writeln(‘———————————————–‘);
gotoxy(7,3);writeln(‘NIM ‘);
gotoxy(20,3);writeln(‘NAMA’);
gotoxy(35,3);writeln(‘NILAI ‘);

x:=5;

for a := 1 to 5 do
begin
gotoxy(3,x);writeln(a);
gotoxy(7,x);writeln(datmhs.nim[a]);
gotoxy(20,x);writeln(datmhs.nama[a]);
gotoxy(35,x);writeln(datmhs.ipk[a]:4:2);
x:=x+1;
end;
writeln(‘———————————————–‘);
writeln(‘ Nilai tertinggi :’,datmhs.nama[indexmax]);
writeln(‘ Nilai terendah :’,datmhs.nama[indexmin]);
writeln(‘ rata-rata :’,rata:8:0);

end.

—————————————————————————————–

uses wincrt;

type mahasiswa = record
nim : string[9];
nama: string[15];
ipk : real;

var
datmhas : mahasiswa;

begin
write(‘NIM Siswa :’);readln(datmhs.nim);
write(‘Nama Siswa :’);readln(datmhs.nama);
write(‘IPK Siswa :’);readln(datmhs.ipk);

end.

—————————————————————————————

Program Maks_Min;
Uses WinCrt;

Var Maks,Min,Total : Integer;
Rerata : Real;
I,N,Nilai : Integer;

Begin
Write(‘Masukan Jumlah Data = ‘);Readln(N);
I:=1;Total:=0;Maks:=0;Min:=0;

While I<=N do
Begin
Write(‘Nilai Ke-‘,i,’ = ‘);Readln(Nilai);
Total:=Total+Nilai;
IF I=1 Then
Begin
Maks:=Nilai;
Min:=Nilai;
End;
IF Nilai>=Maks Then Maks:=Nilai;
IF Nilai<=Min Then Min:=Nilai;
Inc(i);
End;
Rerata:=Total/N;
Writeln;
Writeln(‘Nilai Maksimal = ‘,Maks);
Writeln(‘Nilai Minimal = ‘,Min);
Writeln(‘Rata Rata = ‘,Rerata:4:2);
Readln;
End.

——————————————————————————————

uses wincrt;

type mahasiswa = record
nim : array[1..5] of string;
nama: array[1..5] of string;
ipk : array[1..5] of real;
end;

var
datmhs : mahasiswa;
a,x,indexmax,indexmin:integer;
max,min,tot, index,rata: real;

begin
for a := 1 to 5 do
begin
write(‘NIM Siswa :’);readln(datmhs.nim[a]);
write(‘Nama Siswa :’);readln(datmhs.nama[a]);
write(‘Nilai :’);readln(datmhs.ipk[a]);
writeln(”);
tot:= tot + datmhs.ipk[a];
if a = 1 then
begin
max:= datmhs.ipk[a];
min:= datmhs.ipk[a];
end ;

if datmhs.ipk[a] >=max then
begin
indexmax:=a;
max:=datmhs.ipk[a];
end;
if datmhs.ipk[a] <= min then
begin
indexmin:=a;
min:=datmhs.ipk[a]
end;
rata:=tot/5

end;

clrscr;
gotoxy(1,1);writeln(‘DATA NILAI ‘);
gotoxy(1,2);writeln(‘———————————————–‘);
gotoxy(3,3);writeln(‘NO’);
gotoxy(1,4);writeln(‘———————————————–‘);
gotoxy(7,3);writeln(‘NIM ‘);
gotoxy(20,3);writeln(‘NAMA’);
gotoxy(35,3);writeln(‘NILAI ‘);

x:=5;

for a := 1 to 5 do
begin
gotoxy(3,x);writeln(a);
gotoxy(7,x);writeln(datmhs.nim[a]);
gotoxy(20,x);writeln(datmhs.nama[a]);
gotoxy(35,x);writeln(datmhs.ipk[a]:4:2);
x:=x+1;
end;
writeln(‘———————————————–‘);
writeln(‘ Nilai tertinggi :’,datmhs.nama[indexmax]);
writeln(‘ Nilai terendah :’,datmhs.nama[indexmin]);
writeln(‘ rata-rata :’,rata:8:0);

end.