HECZZ
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ВОТ Я СОЗДАЛ ПРОГУ НО НЕ ДОКОНЦА МНЕ НУЖНО ЧТОБ МЕНЯЛИСЯ МЕСТАМИ РИСУНКИ І ЦВЕТАМИ(((
Program Lab2;
Uses Graph;
Var
Driver, Mode,Error: integer;
X,Y:integer;
BEGIN
Driver:=Detect;
InitGraph(Driver,Mode,'');
Error:=GraphResult;
if Error=GrOk then
begin
setcolor(lightred);
line(100,100,100,150);
line(200,100,200,150);
line(100,100,150,70);
line(200,100,150,70);
line(100,150,150,180);
line(200,150,150,180);
begin
line(300,300,300,400);
line(300,300,350,250);
line(350,250,400,300);
line(400,300,400,400);
line(400,400,300,400);
setcolor(yellow);
readln;
CloseGraph;
end;
end
else
writeln(GraphErrorMsg(Error));
END. |
) 