18 Ekim 2009 Pazar

Pascalda Çarpım Tablosu

program carpim_tablosu;
uses crt;
var
i,j,k,sat:byte;
begin
clrscr;
k:=5;
sat:=2;
gotoxy(28,1);
for i:=1 to 10 do
begin
for j:=1 to 10 do begin
gotoxy(k,sat+j);
write(i:2,'x',j:2,':',i*j:3);
end;
k:=k+14;
if i = 5 then begin k:= 5;
sat:= 13;
end;
end;
readln;
end.

1 yorum:

  1. Mens Titanium watches | ITNBI
    Mens titanium spork Titanium watches offer unique titanium sheets and stylish designs and have amazing value for titanium tent stakes money. The stainless steel watches are fitted with winnerwell titanium stove an easy-to-find titanium mens ring

    YanıtlaSil