18 Juni 2011

Latihan Pembuatan Array menggunakan Pascal Part 3

Latihan ini merupakan latihan ketiga dalam pembuatan array menggunakan Pascal. ( Lihat Part 1 dan Lihat Sebelumnya )


Latihan 3:

program array_loop;
uses crt;
var
nilai:array[1..5] of integer;
i,n:integer;
begin
clrscr;
write('Masukan Jumlah Data = ');readln(n);
for i:=1 to n do
begin
writeln('Data ke-',i);
write('Masukan Nilai ke- ',i, ' = ' );readln(nilai[i]);
end;
clrscr;
   writeln( 'Daftar Nilai ');
   writeln('--------------');
   writeln('No   Nilai    ');
   writeln('--------------');
  for i:=1 to n do
  begin
   writeln(i:2, nilai[i]:6);
  end;
readln;
end.

0 komentar:

Poskan Komentar

Silahkan TInggalkan Komentar Anda di Blog Saya..
No SPAM and No PORN...
Terimakasih Telah meninggalkan Jejak Anda

Related Posts Plugin for WordPress, Blogger...
Award Pertama
Photobucket
Langganan Artikel Si Boersan :

Enter your email address:

Delivered by FeedBurner

Monggo Di Copy Linknya :
Text Link

Banner Link

Komunitas Blogger Indonesia Komunitas Blogwalking