Составьте программу, которая определяет, попадает ли точка с заданными координатами в закрашенную область - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Помогите сделать 11,13 и 15

Решение задачи: «Составьте программу, которая определяет, попадает ли точка с заданными координатами в закрашенную область»

textual
Листинг программы
var r, x, y: real;
begin
  repeat
    write('R > 0;  R = ');
    readln(r)
  until r > 0;
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  writeln('In area: ', (x >= 0) and (y >= 0) and (x * x + y * y <= r * r) or 
                       (x <= 0) and (y <= 0) and (x + y >= -r));
  readln
end.

Объяснение кода листинга программы

  1. var r, x, y: real; - объявление переменных r, x, y типа real
  2. repeat - начало цикла
  3. write('R > 0; R = ') - вывод сообщения и запроса значения переменной r
  4. readln(r) - чтение значения переменной r из ввода пользователя
  5. until r > 0 - условие окончания цикла, пока значение r больше 0
  6. write('x = ') - вывод сообщения и запрос значения переменной x
  7. readln(x) - чтение значения переменной x из ввода пользователя
  8. write('y = ') - вывод сообщения и запрос значения переменной y
  9. readln(y) - чтение значения переменной y из ввода пользователя
  10. writeln('In area: ', (x >= 0) and (y >= 0) and (x x + y y <= r * r) or ((x <= 0) and (y <= 0) and (x + y >= -r))) - вывод сообщения о том, попадает ли точка с заданными координатами в закрашенную область
  11. readln - ожидание ввода пользователя для завершения программы

Оцени полезность:

11   голосов , оценка 3.909 из 5
Похожие ответы