uses wincrt;
type biodata = record
alamat : string;
nama : string;
ttl:string;
nim : string;
end;
var
data:biodata;
n,i: integer;
begin
writeln ('Inputkan Jumlah data Mahasiswa');readln(n);
for i:=1 to n do
begin
writeln ('Data ke - ',i,':');
write ('NIM : '); readln(data.nim);
write ('Nama : '); readln(data.nama);
write ('Alamat : '); readln(data.alamat);
write ('TTL : '); readln(data.ttl);
writeln;
end;
end.

uses wincrt;
const awal =1;
const akhir =5;

var
nim,nama :array [awal..akhir] of string;
nilai :array [awal..akhir] of string;
n,i :integer;
jumlah,rataan : real;
begin
write ('banyak nya data mahasiswa =');
readln(n) ;
for n :=1 to 3 do
begin
write('nim',n,':');readln(nim[n]);
write('nama',n,':');readln(nama[n]);
for i:=1 to 3 do
begin
write('nilai ke',n,'=');readln(nilai[i]);
writeln;
end;
end;
writeln;
writeln('hasil dari inputan adalah =');
writeln('=====================');
writeln('nim nama nilai1 nilai 2 nilai 3 rata-rata');
writeln('=====================');
for i:= i to 3 do
begin
writeln(nim [n],' ', nama[n],' ',nilai[1],' ',nilai[2],' ',nilai[3]);
writeln;
end;
end.

uses wincrt;
const
garis='------------------------------------------------------';
var nil1,nil2,nil3:array[1..10] of 0..100;
Nim:array[1..10] of string[8];
Nama:array[1..10] of string[15];
n,i,bar:integer;
jum:real;
tulis:char;
begin
clrscr;
write('Masukkan Banyak data:');readln(n);
for i:=1 to n do
begin
clrscr;
GotoXY(30,4+1);write('Data Ke-:',i:2);
GotoXY(10,5+i);write('NIM:');readln(nim[i]);
GotoXY(10,6+i);write('Nama:');readln(nama[i]);
GotoXY(10,7+i);write('Nilai 1:');readln(nil1[i]);
GotoXY(10,8+i);write('Nilai 2:');readln(nil2[i]);
GotoXY(10,9+i);write('Nilai 3:');readln(nil3[i]);
end;
clrscr;
GotoXY(5,4);write(garis);
GotoXY(5,5);write('No');
GotoXY(9,5);write('NIM');
GotoXY(18,5);write('Nama');
GotoXY(34,5);write('Nilai 1');
GotoXY(41,5);write('Nilai 2');
GotoXY(47,5);write('Nilai 3');
GotoXY(54,5);write('Rata');
GotoXY(61,5);write('Abjad');
GotoXY(5,6);write(Garis);
bar:=7;
for i:=1 to n do
begin
jum:=(nil1[i]+nil2[i]+nil3[i]/3);
if jum>=90 then tulis:='A' else
if jum>80 then tulis:='B' else
if jum>60 then tulis:='C' else
if jum<50 then tulis:='D' else tulis:='E';
GotoXY(5,bar);writeln(i:2);
GotoXY(9,bar);writeln(NIM[i]);
GotoXY(18,bar);writeln(Nama[i]);
GotoXY(34,bar);writeln(nil1[i]:4);
GotoXY(41,bar);writeln(nil2[i]:4);
GotoXY(47,bar);writeln(nil3[i]:4);
GotoXY(54,bar);writeln(jum:5:1);
GotoXY(61,bar);writeln(tulis);
bar:=bar+1;
end;
GotoXY(5,bar+1);writeln(garis);
readln;
end.

uses wincrt;

var nilai: array[1..3] of integer ;

jm,rata :real;

i : integer;

begin

writeln

for i:=1 to 3 do

begin

clrscr;

write (‘masukan data ke-1: ’);readln (nilai[1]);

write (‘masukan data ke-2:’) ;readln(nilai [2]);

write (‘masukan data ke-3:’); readln(nilai [3]);

jumlah := nilai[1]+nilai [2]+nilai [3] ;

rata := jumlah/3;

writeln;

writeln(‘jumlah nilai =’,jumlah 5:3’);

writeln(‘rata-rata nya =’,jumlah 5:3’);

readln;

end;

end.

OUTPUT

Masukan data ke-1 :50

Masukan data ke-2 :50

Masukan data ke-3:50

Jumlah nilai =150.00

Rata-ratanya =30.00

Uses wincrt;

var nilai : array [1..10] of integer ;

jm,rata : real;

begin

clrscr ;

writeln(‘menghitung rata-rata 10 buah nilai’);

writeln(‘nilai =’);readln(nilai [1] );

writeln(‘nilai =’);readln(nilai [2] );

writeln(‘nilai =’);readln(nilai [3] );

writeln(‘niali =’);readln(nilai [4] );

writeln(’nilai =’);readln(nilai [5] );

writeln('nilai =');readln(nilai[6]);

writeln('nilai=');readln(nilai[7]);

writeln('nilai=');readln(nilai[8]);

writeln('nilai=');readln(nilai[9]);

writeln('nilai=');readln(nilai[10]);

jm := nilai[1]+nilai[2]+nila[3]+nilai[4]+nilai[5]+nilai[6]+nilai[7]+nilai[8]+nilai[9]+nilai[10];

rata:= jm/10;

writeln;

writeln(‘jumlah =’,jm :9:2);

writeln(‘rata-rata =’,rata :9:2);

end.

Output

Menghitung rata-rata 10 buah nilai

Nilai=

3

Nilai=

9

Nilai=

6

Nilai=

12

Nilai=

9

Nilai=

3

Nilai=

5

Nilai=

8

nilai=

7

nilai=

4

Jumlah =66.00

Rata-rata= 6.60