Sabtu, 02 Januari 2010

Penghitungan mengunakan Looping Pascal

PROGRM PASCAL (LOOPING)


1. HASIL

1 2 3 4 5
2 4 6 8 10
3 6 9 12 15
4 8 12 18 20
5 10 15 20 25

uses wincrt;
var
h,i,j:byte;
begin
j:=1;
for h:= 1 to 5 do
begin
for i:=1 to 5 do
begin
write(i*h,' ');
end;
writeln;
end;
end.










2. HASIL

1 2 3 4 5 =15
1 2 3 4 5 =30
1 2 3 4 5 =45

uses wincrt;
var
h,i,j:byte;
begin
j:=0;
for h:=1 to 3 do
begin
for i:=1 to 5 do
begin
write(i,' ');
j:=j+i;
end;
write('= ',j);
writeln;
end;
end.