Для удобства программирования некоторые части функции представим в виде функций:

,

Программа для указанного варианта имеет следующий вид:

program Task2;

uses

Crt; {Подключение графического модуля}

Var

x:real; {переменные для ввода данных}

m,k,z:real;

begin

ClrScr;

Write('Введите исходные данные (x): ');

ReadLn(x);

m:=4.187+Pi*Pi+sin(x*Pi/7);

k:=tan(3*Pi/4+x*Pi);

z:=m/k;

WriteLn('Исходные данные:');{Вывод на экран исходных данных}

WriteLn('x=',x:3:2);

WriteLn;

Write('Результат: ');{Вывод на экран результат}

WriteLn(' z=',z:3:2);

Readln;

end.

Рис. 1. Примерный вид исходных данных и результатов на экране

Задание 3. Алгоритмы ветвления

Задание

Написать программу, определяющую принадлежит ли точка с заданными координатами ( x,y) заштрихованной области на прилагаемом в соответствии с вариантом графике: см. рис. 2.

Рис. 2. График к заданию 3