Нарисовать квадрат используя procedure LineTo. (Паскаль)
Answers & Comments
kage1998
Program B; uses graphABC; begin LineTo(400, 0); LineTo(400,400); LineTo(0,400); LineTo(0,0); end.
1 votes Thanks 1
fatid
Спасибо! А как сделать, чтобы он был ну типа как по-середине? а не приплюснутый к левому краю? ну какие значения использовать нужно? а то я его смог отодвинуть, а верхняя линия вываливается (квадрата).
Answers & Comments
uses graphABC;
begin
LineTo(400, 0);
LineTo(400,400);
LineTo(0,400);
LineTo(0,0);
end.