Форум: [OFF] Оффтопики не про КПК
Тема: Помогите составить прогу в Паскале!!!
Страницы: 1 [2]
[Ответить]
Damer [16.04.2008 00:48] :
Выводит первый столбец правильно, потом вторую строку до 17, первая - нули, потом еще какие-то строки по возрастанию.... Присутствуют также еще нулевые строки
Daess [16.04.2008 00:50] :
Разобрался, это из-за оптимизации компилятора Delphi. Такой вариант должен работать:
program Project1;
const N = 10;
var i,j,r,c,num,l,t,b: integer;
a: array [1..N,1..N] of integer;
begin
num:=1; c:=1; j:=1;
l:=2; r:=10; t:=1; b:=10;
while (num<=100) do begin
for i:=b downto t do begin
a[i,j]:=num;
inc(num);
end;
for j:=l to r do begin
a[i,j]:=num;
inc(num);
end;
for i:=t+1 to b do begin
a[i,j]:=num;
inc(num);
end;
for j:=r-1 downto l do begin
a[i,j]:=num;
inc(num);
end;
inc(l);
inc(t);
dec(r);
dec(b);
end;
for i:=1 to N do begin
for j:=1 to N do
write(a[i,j],' ');
writeln;
end;
readln;
end.
Damer [16.04.2008 00:55] :
Все, работает!! Спасибо еще раз огромное)))
Daess [16.04.2008 09:06] :
maxzdv, да я такой
Darkcat [16.04.2008 20:24] :
Если помудрить с типами данных можно сократить код в 2 раза. А если сильно помудрить с векторами - то в 3-4 раза...
Daess [16.04.2008 23:31] :
Я не спорю, но сказано было что главное чтобы работало. Поэтому что первое в голову пришло, то и написал.
[Ответить]
[< Назад]