Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

Найдите ошибку в этом коде   Найти похожие ветки 

 
Helpme ©   (2004-05-10 21:36) [0]

знаю что здесь два одинаковых цикла но так надо,что делать?
for i:=1 to 25 do begin
for j:=1 to 36 do begin
sec1[i][j]:=(i+10) div 2;
a:=624;
b:=152;
for i:=1 to 25 do begin
Canvas.MoveTo(a,b);
Canvas.LineTo(i+1+a,-sec1[i+1][j]+b);
if sec1[i+1][j]>100 then sec1[i+1][j]:=300;
end;
end;


 
default ©   (2004-05-10 21:38) [1]

мда


 
Ответ   (2004-05-10 21:39) [2]

end"a одного не хватает.


 
Ответ   (2004-05-10 21:40) [3]

и ещё переменная i используется дважды как переменная цикла


 
Helpme ©   (2004-05-10 21:41) [4]

так надо!А можно это обойти?


 
Ответ   (2004-05-10 21:43) [5]

так должно работать, если массив объявлен верно - [1..25, 1..36].

for i:=1 to 25 do begin
 for j:=1 to 36 do begin
   sec1[i][j]:=(i+10) div 2;
   a:=624;
   b:=152;
   for k:=1 to 25 do begin
     Canvas.MoveTo(a,b);
     Canvas.LineTo(k+1+a,-sec1[k+1][j]+b);
     if sec1[k+1][j]>100 then sec1[k+1][j]:=300;
   end;
 end;
end;


 
default ©   (2004-05-10 21:44) [6]

с тем же успехом на твой вопрос "знаю что здесь два одинаковых цикла но так надо,что делать?"ничего не делать, так нужно


 
Ответ   (2004-05-10 21:45) [7]

Точнее:

 for k:=1 to 24 do begin


 
Ответ   (2004-05-10 21:49) [8]

дадад. я вообще ничего не понял.
Что тебе надо,,?



Страницы: 1 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.026 c
7-1081424491
Aleksandr
2004-04-08 15:41
2004.05.23
Как вызвать из программы почтовик и сунуть ему аттач?


14-1083605890
oleg_SYS
2004-05-03 21:38
2004.05.23
30 Mb в TStringList плzzz очень нада!


6-1081172039
kentavr
2004-04-05 17:33
2004.05.23
Опять Net Send


4-1081449731
WELLiON
2004-04-08 22:42
2004.05.23
отлов сообщений от контекстного меню


1-1084203363
Avsam
2004-05-10 19:36
2004.05.23
Скрыть Property в наследнике