Помогите пожалуйста.Для проверки нужно прислать коды программ и результаты их работы.(если

Помогите пожалуйста.

Для проверки нужно прислать коды программ и результаты их работы.
(если для вас будет комфортно, пришлите конкретно скрины с программки)

Задать свой вопрос
1 ответ

program equats;

uses math;

var x:real;


function first(n:real):real;

begin

   first := n - n**3 / 3 + x**5 / 5;

end;


function second(n:real):real;

begin

   second := 2**(-n) - cos(x) + sin(2*n*first(n));

end;


function third(n:real):real;

begin

   third := (x**2 - 7 * x + 10) / (x**2 - 8 * x + 12);

end;


function fourth(n:real):real;

begin

   fourth := x - 10 * sin(x) + abs(x**4 - x**5);

end;


begin

writeln('Введите "x": ');

readln(x);

writeln('1.Result:= ', first(x):4:4);

writeln('2.Result:= ', second(x):4:4);

writeln('3.Result:= ', third(x):4:4); // если ввести 2 или 6 в знаменателе будет ноль :(

writeln('4.Result:= ', fourth(x):4:4);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт