tugas Algo

program hasil_ujian_kelas_B;

uses wincrt;
var
nama : array [1..20] of string;
nim : array [1..20] of string;
kelas : array [1..20] of string;
tugas, uts, uas, presensi : array[1..20] of integer;
rata : array [1..20] of real;
i,n : byte;
begin
clrscr;
write('masukkan jumlah data nilai ;');readln (n);
for i := 1 to n do;
begin
writeln('penilaian ujian mahasiswa');
write('masukkan nama :') ; readln (nama[i]);
write('masukkan nim :') ; readln (nim[i]);
write('masukkan kelas :');readln (kelas[i]);
write('masukkan nilai tugas:');readln (tugas[i]);
write('masukkan nilai UTS :');readln (uts[i]);
write('masukkan nilai UAS : '); readln (uas[i]);
write('masukkan presensi :');readln (presensi[i]);
rata[i]:=(0.1*tugas[i])+(0.2*uts[i])+(0.3*uas[i])+(0.4*presensi[i]);
end;
clrscr;
for i := 1 to n do;
begin
writeln('penilaian ujian mahasiswa');
writeln('nama :',nama[i]);
writeln('nim :',nim[i]);
writeln('kelas :',kelas[i]);
writeln('nilai tugas :',tugas[i]);
writeln('nilai UTS :', uts [i]);
writeln('nilai UAS :', uas [i]);
writeln('presensi :', presensi [i]);
writeln('rata-rata :',rata[i]:1:2);
end;
end.

readmore »»