Помогите пожалуйста! Нужно составить блок схему и написать программу в ТурбоПаскаль
Приложения:
Аноним:
Попадает ли заданная точка в закрашенную область?
Ответы
Ответ дал:
0
Var X,Y,R:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
R:=X*X+Y*Y;
if R > 1 then
if x > 0 then
if y > 0 then Write(R < 4)
else Write(R < 25)
else if y < 0 then Write(R < 16)
else Write(R < 9)
else Write(false)
End.
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
R:=X*X+Y*Y;
if R > 1 then
if x > 0 then
if y > 0 then Write(R < 4)
else Write(R < 25)
else if y < 0 then Write(R < 16)
else Write(R < 9)
else Write(false)
End.
Приложения:
Вас заинтересует
3 месяца назад
3 месяца назад
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
7 лет назад