Презентация программирование на языке Pascal на тему Определение принадлежности точки заштрихованной области

Программирование на языке Pascal Определение принадлежности точки заштрихованной области

Задача. Требуется написать программу, которая получает с клавиатуры координаты точки на плоскости (x,y – действительные числа) и определить принадлежность точки заштрихованной области, включая ее границы (рис. 1).

Благодаря этой рекламе сайт может продолжать свое существование, спасибо за просмотр.

Блок-схема НАЧАЛО X,Y ПРИНАДЛЕЖИТ НЕ ПРИНАДЛЕЖИТ КОНЕЦ

Ограничения y<,=1 и y>,=0 и x>,=0 и x<,=1 или x>,=-1 и x<,=0 и y>,=0 и x*x+y*y<,=1

Код программы Program koordinati, Var x,y: real, Begin Writeln(‘Введите координаты точки’), Read(x,y), If (y<,=1) and (y>,=0) and (x>,=0) and (x<,=1)) or ((x>,=-1) and (x<,=0) and (y>,=0) and (x*x+y*y<,=1)) then Writeln (‘ПРИНАДЛЕЖИТ’) else Writeln (‘НЕ ПРИНАДЛЕЖИТ’), end.

Практическая работа Требуется написать программу, которая получает с клавиатуры координаты точки на плоскости (x,y – действительные числа) и определить принадлежность точки заштрихованной области, включая ее границы (рис. 2, рис. 3).