Array pada Pascal
Sudah lama g update,kali ini saya posting tentang contoh array pada bahasa pemrograman pascal. Langsung simak aja d bawah ini, bagi yang kebetulan dapat tugas tentang ini, langsung sedot aja. Langsung edit saja sesuai kebutuhan. Kalau ada yang mau ditanyakan, bisa langsung koment.
Berikut adalah screenshot nya
uses crt;
type
nilai=array[1..2,1..4] of integer;
var
data:nilai;
nm:nama;
i,j,x:integer;
rata:array[1..2,1..4] of real;
begin
clrscr;
for i:=1 to 2 do begin
write('nama siswa',i,'=');
readln(nm[i]);
for j:=1 to 4 do begin
write('nilai n',j,'=');
readln(data[i,j]);
x:=x+data[i,j];
end;
rata[i,j]:=x/4;
x:=0;
end;
writeln;
writeln('=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=');
writeln(' Daftar Nilai');
writeln('=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=');
gotoxy(0,15);write('no nama');
gotoxy(13,2*4+7);
for j:=1 to 4 do begin
write(' nilai',j:2);
end;
writeln;
for i:=1 to 2 do begin
write(i:2,' ',nm[i]);
for j:=1 to 4 do begin
write(data[i,j]:11);
end;write(rata[i,j]:11:2);
if (rata[i,j]>65) then
writeln(' lulus') else
writeln(' gagal');
end;
writeln;
gotoxy(60,15);write('nA ket');
readln;
end.
Langsung edit saja sesuai kebutuhan. Kalau ada yang mau ditanyakan, bisa langsung koment di bawah ini.
Semoga bermanfaat :)