Kirill
6 год назад
Даю 99 поинтов.Программа на Паскале: Требовалось написать программу, которая вводит с клавиатуры координаты точки на плоскости (x,y –действительные числа) и определяет принадлежность точки заштрихованной области, включая ее границы. Программа была написана неправильно.var x,y: real;begin readln(x,y);if y<=1 thenif x>=0 thenif y>=+1 thenwrite('принадлежит')elsewrite('не принадлежит')end(Точки с запятой и точки не стоят, я знаю).При каком(-их) значении(-ях) х и у программа выполняется неправильно?a. x = 0; y = -1;b. x=0; y=1;c. x=1; y=2;d. x = 1,5; y = -10,5;
ОТВЕТЫ
Boncho
Oct 24, 2020
program point_in;
var
x, y: real;
function ParabolicY(x: real): real;
begin
ParabolicY := -1 * x * x + 2 * x;
end;
begin
readln(x, y);
if ( (x < 0) or (x > 1) ) or ( (y < 0) or (y > 1) ) then
writeln('не принадлежит')
else
begin
if ( ParabolicY(x) <= y ) and (y <= 1) then
writeln('принадлежит')
else
writeln('не принадлежит');
end;
end.
var
x, y: real;
function ParabolicY(x: real): real;
begin
ParabolicY := -1 * x * x + 2 * x;
end;
begin
readln(x, y);
if ( (x < 0) or (x > 1) ) or ( (y < 0) or (y > 1) ) then
writeln('не принадлежит')
else
begin
if ( ParabolicY(x) <= y ) and (y <= 1) then
writeln('принадлежит')
else
writeln('не принадлежит');
end;
end.
790
Смежные вопросы:
