Регистрация
tomakor
31.05.2023 21:15
Информатика
Есть ответ 👍

Найти максимальный радиус круга при ограниченном пространстве, используя паскаль

110
474
Посмотреть ответы 2

Ответы на вопрос:

Lollimil
Lollimil
4,5(74 оценок)
//pascalabc.net 3.2 сборка 1318 var   x1,y1,x2,y2,ya,xa: integer; begin writeln('введите координаты верхнего левого угла пространства'); read(x1,y1); writeln('введите координаты нижнего правого угла пространства'); read(x2,y2); ya: =abs(y1-y2); xa: =abs(x1-x2); if ya< xa then writeln(ya/2) else writeln(xa/2); end. пример работы программы: введите координаты верхнего левого угла пространства 1 0 введите координаты нижнего правого угла пространства 4 2 1
GeorgeWashUSA
GeorgeWashUSA
4,8(30 оценок)

program grib;

uses drawman;

begin

Field(10,10);

ToPoint(3,4);

PenDown;

ToPoint(2,4);

ToPoint(1,5);

ToPoint(2,6);

ToPoint(5,7);

ToPoint(8,6);

ToPoint(9,5);

ToPoint(8,4);

ToPoint(3,4);

ToPoint(3,2);

ToPoint(4,1);

ToPoint(6,1);

ToPoint(7,2);

ToPoint(7,4);

PenUp;

ToPoint(0,0)

end.

Объяснение:

Смотри картинку

Популярно: Информатика