Ответы
Ответ дал:
1
Ответ:
program GraphDemo;
uses
Graph;
var
gd, gm: Integer;
begin
gd := Detect;
InitGraph(gd, gm, '');
{ задаємо колір ліній }
SetColor(Yellow);
{ малюємо точки }
MoveTo(100, 100);
LineTo(200, 50);
LineTo(50, 200);
LineTo(100, 100);
{ закриваємо графічне вікно }
CloseGraph;
end.
Вас заинтересует
3 месяца назад
3 месяца назад
1 год назад
7 лет назад