задание по Graph для Pascal. Написать программу которая нарисует прямоугольник и его диагонали

Question

Наталья :))) · Accepted Answer

const 
x = 20; 
y = 20; 
h = 100; 
w = 200; 
....
MoveTo(x, y); 
LineTo(x + w, y); 
LineTo(x + w, y + h); 
LineTo(x, y + h); 
LineTo(x + w); 
LineTo(x + w, y + h); 
MoveTo(x, y); 
LineTo(x, y + h);

Если готовая прога нужна пиши на почту

Мария Лукичева · Answer

const 
X1 = 10; 
Y1 = 10; 
X2 = 100; 
Y2 = 100; 
… 
begin 
… 
MoveTo(X1, Y1); 
LineTo(X2, Y1); 
LineTo(X2, Y2); 
LineTo(X1, Y2); 
LineTo(X1, Y1); 
LineTo(X2, Y2); 
MoveTo(X1, Y2); 
LineTo(X2, Y1); 
ReadLn; 
… 
end.