RSS

pascal

27 May

progrram angka

program angka;
uses crt;
var ba,ke,kok:integer;

begin
clrscr;
writeln(‘ 1 2 3 4 5 6 7 8 9′);
writeln;
for ba:=1 to 9 do
begin
ke:=ba;
write(ba,’ ‘);

for kok:=1 to ba do
begin
write(‘ ‘,ke);
ke:=ke+ba;
end;
writeln;
writeln;
end;
readln;
end.

 
Leave a comment

Posted by on May 27, 2009 in Uncategorized

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

 
%d bloggers like this: