Array pada Pascal

Rabu, 18 April 2012 Published by heyi vs mereka

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;
    nama=array [1..2] of string;
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     :)

No responses yet

Leave a Reply

Diberdayakan oleh Blogger.

Followers