Консультация № 188145
27.10.2015, 08:20
0.00 руб.
0 2 1
Здравствуйте! Прошу помощи в следующем вопросе:
Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение
(Sqr(X) + Sqr(Y) <= 1) and (Y <= 0.5 * X)

Borland Pascal

Обсуждение

давно
Старший Модератор
31795
6196
27.10.2015, 09:39
общий
это ответ
Здравствуйте, Посетитель - 399097!

У Вас получится что-то вроде:

Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Старший Модератор
31795
6196
28.10.2015, 11:55
общий
Адресаты:
Если нужно код:
[code h=200]uses
graph;
const
r=50;{условно 1, для рисунка}
var
x,y:integer;
begin
x:=detect;
InitGraph(x,y,'');{инициализируем графику}
x:=GraphResult;{получаем результат инициализации}
if x=GrOk then{проверяем ошибку}
begin
Line(GetMaxX div 2,0,GetMaxX div 2,GetMaxY);{рисуем горизонталь}
Line(0,GetMaxY div 2,GetMaxX,GetMaxY div 2);{рисуем вертикаль}
for x:=-100 to 100 do{все значения Х}
for y:=-100 to 100 do{все значения У}
if((sqr(x)+sqr(y))<=sqr(r))and(y<=0.5*x)then{проверяем условие}
PutPixel(getMaxX div 2 + x,GetMaxY div 2 +y,13);{рисуем точку}
readln;{ожтдаем ввод}
CloseGraph;{выключаем графику}
end
else
begin
writeln('InitGraph error:',x);{сообщение об ошибке}
readln;{ожидаем ввод}
end;
end.[/code]
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа