Написать программу, которая по введенным с клавиатуры координатам х и уточки проверяет ее принадлежность заштрихованной области на рисунке (х и у - действительные числа). y = x x2 + y2 = 22 y = -2 В спешке программа была написана ошибкой: с var x, y: real; begin readln (x, y); if xx+yy>=4 then if y>=-2 then If y<=x then write('Принадлежит') else write('Не принадлежит') end. Приведите пример таких чисел х и y=-2 В спешке программа была написана с ошибкой: var x, y: real; begin readln (x, y); if xx+yy>=4 then if y>=-2 then If y<=x then write('Принадлежит') else write('Не принадлежит') end. Приведите пример таких чисел х и у, для которых программа выдает неправильный результат. Укажите, как можно доработать программу, чтобы исключить случаи неправильной работы. Если способов исправления несколько - укажите все известные Вам.

Question 1

Задача Задача №396369

А

Аноним

13 февраля 2024 14:06 · публичный вопрос

А

Аноним 13 февраля 2024 14:06

Написать программу, которая по введенным с клавиатуры координатам х и уточки проверяет ее принадлежность заштрихованной области на рисунке (х и у - действительные числа). y = x x2 + y2 = 22 y = -2 В спешке программа была написана ошибкой: с var x, y: real; begin readln (x, y); if xx+yy>=4 then if y>=-2 then If y<=x then write('Принадлежит') else write('Не принадлежит') end. Приведите пример таких чисел х и y=-2 В спешке программа была написана с ошибкой: var x, y: real; begin readln (x, y); if xx+yy>=4 then if y>=-2 then If y<=x then write('Принадлежит') else write('Не принадлежит') end. Приведите пример таких чисел х и у, для которых программа выдает неправильный результат. Укажите, как можно доработать программу, чтобы исключить случаи неправильной работы. Если способов исправления несколько - укажите все известные Вам.

Answer

Пример чисел х и у, для которых программа выдает неправильный результат: х=2, у=-2.

Для исправления программы можно сделать следующие изменения:

Заменить условие "if y<=x" на "if y>=x" (if y<=x на if y>=x).
Добавить проверку внутри первого условия "if xx+yy>=4", чтобы исключить случаи, когда у входных данных y=-2 (if xx+yy>=4 and y>-2).
Переставить проверку условий, чтобы сначала выполнялась проверка y>=-2 и только потом проверялось условие xx+yy>=4.

Переработанная программа будет выглядеть так:

var x, y: real; begin readln(x, y); if y >= -2 then if x * x + y * y >= 4 then if y >= x then write('Принадлежит') else write('Не принадлежит') else write('Не принадлежит') else write('Не принадлежит') end.

Question 2

написать программу, которая по введенным с клавиатуры координатам х и уточки проверяет ее принадлежность заштрихованной области на рисунке (х и у - действительные числа). y = x x2 + y2 = 22 y = -2 В спешке программа была написана ошибкой: с var x, y: real; begin readln (x, y); if x*x+y*y>=4 then if y>=-2 then If y<=x then write('Принадлежит') else write('Не принадлежит') end. Приведите пример таких чисел х и y=-2 В спешке программа была написана с ошибкой: var x, y: real; begin readln (x, y); if x*x+y*y>=4 then if y>=-2 then If y<=x then write('Принадлежит') else write('Не принадлежит') end. Приведите пример таких чисел х и у, для которых программа выдает неправильный результат. Укажите, как можно доработать программу, чтобы исключить случаи неправильной работы. Если способов исправления несколько - укажите все известные Вам.

Answer

Пример чисел х и у, для которых программа выдает неправильный результат: х=2, у=-2. Для исправления программы можно сделать следующие изменения: 1. Заменить условие "if y<=x" на "if y>=x" (if y<=x на if y>=x). 2. Добавить проверку внутри первого условия "if x*x+y*y>=4", чтобы исключить случаи, когда у входных данных y=-2 (if x*x+y*y>=4 and y>-2). 3. Переставить проверку условий, чтобы сначала выполнялась проверка y>=-2 и только потом проверялось условие x*x+y*y>=4. Переработанная программа будет выглядеть так: var x, y: real; begin readln(x, y); if y >= -2 then if x * x + y * y >= 4 then if y >= x then write('Принадлежит') else write('Не принадлежит') else write('Не принадлежит') else write('Не принадлежит') end.