Задание по программированию Pascal

Задание1.

Составить программу на языке Pascal для вычисления значения функции y=f(x) при заданном значении (x) =sqrt(e(a*x) EMBED Equation.3 (которое вводится с клавиатуры). Результат вывести с тремя знаками после запятой. Варианты заданий приведены в таблице.

Program Zadanie1;

Const a=5.7; b=6.4; c=3.1;

Var x,y:real;

Begin

Writeln(‘Введите x=’);

Readln(x);

y:=sqrt(exp(a*x)+sqr(x))*ln(sqr(x)+b*x+10)/sin(c*x)+4.2;

Writeln(значение y=’,y:5:3);

End.

Ответ:

Введите x=

2.8

значение y=15423.384

Задание2

Даны значения угла в радианах (<<2) Определить значение этого же угла в градусах, учитывая, что 180=радиан.

Program Zadanie2;

Var x,y:real;

Begin

Writeln(‘введите значение в радианахx=’);

Readln(x);

y:= x*180/pi;

Writeln(‘значение y=’,y:5:1);

End.

Ответ:

введите значение в радианахх=

1.5

значение y=85.9

Задание3.

Составить программу на языке Pascal для вычисления значения функции y=f(x) при заданном значении (x) которое вводится с клавиатуры. Запустив программу дважды, получить ответ для каждого из заданных значений .

Program Zadanie3;

Const a=4.6; b=3.2;

Var x,y:real;

Begin

Writeln(Введитеx=’);

Readln(x);

If x<=0 then y:=sqrt(1+x*sqrt(a*x)) else y:=sin(b*x)+3;

Writeln(значение y=’,y:5:3);

End.

Ответ:

Введите х=

3.78

значение y= 2.547

Введите х=

1.54

значение y= 2.023

Задание4.

Даны координатные точки, не лежащей на осях Ox и Oy. Вывести номер координатной четверти, в которых находится данная точка.

Program Zadanie4;

Var x,y: real;

Begin

Writeln(‘Введите x и y’);

Readln(x);

Readln(y);

If (x>y)and(y>0)then Writeln (точка находится в первой четверти);

If(x<0)and (y>0) then Writeln (точка находится во второй четверти);

If(x<0)and (y<0) then Writeln (точка находится в третьей четверти);

If(x>0)and (y<0) then Writeln (точка находится в четвертой четверти);

End.

Ответ:

Точка находится во второй четверти.