Циклы в Graph Опции

[Player]

Всем привет. Может кто поможет сделать, чтобы эти два цикла выполнялись одновременно.

Код

Program Anim;
Uses Crt,Graph;
Var I,J,Gd,Gm:Integer;
Begin
Clrscr;
Gd:=Detect;
Gm:=2;
InitGraph (Gd,Gm,'C:\BP\BGI');
SetBKColor (7);
ClearDevice;

SetColor (6);
For I:=200 To 300 Do Begin
Line (250,I,290,J);
Line (290,J,305,J);
Line (305,J,250,I);
ClearViewPort;
Delay(4000);
End;

For J:=110 To 210 Do Begin
Line (250,I,290,J);
Line (290,J,305,J);
Line (305,J,250,I);
ClearViewPort;
Delay(4000);
End;

CloseGraph;
End.

[Romtek]

Player

Код

For I:=200 To 300 Do Begin
Line (250,I,290,J);
Line (290,J,305,J);
Line (305,J,250,I);
ClearViewPort;
Delay(4000);
End;

For J:=110 To 210 Do Begin
Line (250,I,290,J);
Line (290,J,305,J);
Line (305,J,250,I);
ClearViewPort;
Delay(4000);
End;

Тут что-то странное... Переменная J не инициализирована до первого цикла, а переменная I во втором цикле осталась той же, на какой закончился 1-й цикл. Ну и бред...

Для начала надо знать что ты хочешь отрисовать.
Делать вывод одновременно можно только объединив отрисовку линий в одном цикле.

Alex7, не неси чушь. Нигде нет параллельного выполнения кода программ и даже 32-битный компилятор этого не делает.
То, что для нас считается одновременно - для компьютера оно последовательно, просто быстро выполняется и разницы ен видно.