Senin, 21 Mei 2012

Contoh Menghitung Pangkat Menggunakan For Do Pada Pascal


uses crt;
var a: integer;
begin
clrscr;
for a:=1 to 5 do
writeln(a*a);
readln;
end.


Output yang akan tercetak pada layar adalah :
1
4
9
16
25

Tidak ada komentar:

Posting Komentar