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.
Sabtu, 02 Januari 2010
Langganan:
Postingan (Atom)