Добавил:
Silebox
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
program lab2_2;
var
x,y: Real;
result: Boolean = False;
begin
Write('Введите x: '); Read(x);
y := 2 - x;
if (abs(x) > 1) and (abs(y) < 4) and (abs(y) > 2-abs(x)) then result := True;
WriteLn('Результаты:');
WriteLn('x: ', x:1:2);
WriteLn('y: ', y:1:2);
WriteLn('Принадлежит ли точка выделеной области? ', result);
end.
var
x,y: Real;
result: Boolean = False;
begin
Write('Введите x: '); Read(x);
y := 2 - x;
if (abs(x) > 1) and (abs(y) < 4) and (abs(y) > 2-abs(x)) then result := True;
WriteLn('Результаты:');
WriteLn('x: ', x:1:2);
WriteLn('y: ', y:1:2);
WriteLn('Принадлежит ли точка выделеной области? ', result);
end.