ra_nieSS

Tugas Membuat program Data mahasiswa menggunakan array dan perulangan for .. do,,,,

==> Listing Program
Program Input_Data_mahasiswa;
uses wincrt;
const
garis='-----------------------------------------------------------------';
var
pti,bd,pi:array [1..10] of 0..100;
nama:array[1..10] of string[15];
n,i,bar,nim:integer;
jum:real;
tl:char;
begin
clrscr;
write('Banyaknya Mahasiswa: ');readln(n);
for i:=1 to n do
begin
clrscr;
gotoxy(30,4);write('Data Ke-',i:2);
gotoxy(10,5);write('Nama : ');readln(Nama[i]);
writeln('Nilai==>');
gotoxy(10,6);write('PTI : ');readln(pti[i]);
gotoxy(10,7);write('Basis Data : ');readln(bd[i]);
gotoxy(10,8);write('Pemrograman Internet : ');readln(pi[i]);
end;
clrscr;
gotoxy(5,1);writeln(garis);
gotoxy(5,2);writeln(' DATA MAHASISWA');
gotoxy(5,4);writeln(garis);
gotoxy(5,5);write(garis);
gotoxy(5,5);write('no ');
gotoxy(9,5);write('Nama ');
gotoxy(22,5);write('PTI ');
gotoxy(32,5);write('BD ');
gotoxy(42,5);write('PI ');
gotoxy(52,5);write('rata ');
gotoxy(62,5);write('Nilai ');
gotoxy(5,6);writeln(garis);
bar :=7;
for i:=1 to n do
begin
jum:=(pti[i]+bd[i]+pi[i])/3;
if jum>=90 then tl:='A'
else
if jum>80then tl:='B'
else
if jum>60then tl:='C'
else
if jum = 50 then tl:='D'
else
tl:= 'E';
gotoxy(5,bar);writeln(i:2);
gotoxy(9,bar);writeln(nama[i]);
gotoxy(22,bar);writeln(pti[i]);
gotoxy(30,bar);writeln(bd[i]:4);
gotoxy(40,bar);writeln(pi[i]:4);
gotoxy(50,bar);writeln(jum:5:1);
gotoxy(62,bar);writeln(tl);
bar:=bar+1;
end;
gotoxy(5,bar+1);writeln(garis);
readln;
end.

==> Output
1 ==> Banyaknya Mahasiswa : 3



2 ==> Data Ke- 1
Nama : Rani Susanti
Nilai ==> PTI : 90
Basis Data : 90
Pemrograman Internet : 95


Data Ke- 2
Nama : Siska
Nilai ==> PTI : 85
Basis Data : 85
Pemrograman Internet : 90

Data Ke- 3
Nama : Sasty
Nilai ==> PTI : 85
Basis Data : 80
Pemrograman Internet : 80


setelah enter maka akan muncul ===>
-------------------------------------------------------------------

DATA MAHASISWA

-------------------------------------------------------------------
No Nama PTI BD PI Rata-rata Nilai
-------------------------------------------------------------------
1 Rani Susanti 90 90 95 91.7 A
2 Siska 85 85 90 86.7 B
3 Sasty 85 80 80 81.7 B

-------------------------------------------------------------------