CONTOH PROGRAM PERHITUNGAN NILAI KULIAH
Program inputmatakuliah;
uses crt;
Var
ctr : integer;
nminggu : array [1..10] of double;
ntubes, nakhir : double;
Begin
clrscr;
writeln ('input nilai mingguan:');
ctr:=1;
while (ctr<=10) do
begin
write ('minggu ', ctr, '. : ');
readln (nminggu[ctr]);
ctr:=ctr+1;
end;
writeln ('input nilai tugas besar');
write ('nilai tugas besar:');
readln (ntubes);
ctr:=6;
nakhir:=0;
while (ctr<=10) do
begin
nakhir:=nakhir+(0.8*nminggu[ctr]);
ctr:=ctr+1;
end;
nakhir:=nakhir+(0.2*ntubes);
writeln ('daftar nilai akhir');
writeln ('nilai mingguan');
ctr:=1;
while (ctr<=10) do
begin
writeln ('minggu ', ctr, '. ' ,nminggu[ctr]:4:1);
ctr:=ctr+1;
end;
writeln ('nilai tugas besar:', ntubes:4:1);
writeln ('nilai akhir:', nakhir:4:1);
readln;
End.
SEMOGA BERMANFAAT
No comments:
Post a Comment