Помогите написать программу в Pascal. Нужно написать программу в Pascal которая решала бы...

0 голосов
18 просмотров

Помогите написать программу в Pascal. Нужно написать программу в Pascal которая решала бы данную функцию.


image

Информатика (31 баллов) | 18 просмотров
0

Вы забыли приложить к своему фото микроскоп... Я даже на своем мониторе с диагональю 27" не могу толком разглядеть задание

Дан 1 ответ
0 голосов
Правильный ответ

// PascalABC.NET 3.4.2, сборка 1797 от 22.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var x := ReadReal('x=');

 var y: real;

 if x < 0 then y := x * x - 3 - (Pi - x) ** (1 / 3)

 else

 if x < 1 then y := Sqr(x * x + 3) - Sqrt(0.5 * Pi + x)

 else y := x * (x * x + 3) + Ln(Pi + x);

 Println('y =', y)

end.


image
(654k баллов)
0

От души. Пасиб))

0

Пожалуйста. А вообще для "спасиб" тут просто кликают "сердечко"