Question

16. Составить алгоритм и написать решение задачи на Паскале: Вычислить формулу с фотографии, где х - произвольное число, введенное пользователем с клавиатуры.

Answer 1

Формула
y=(2x-17√(x-7))/|3x-12|
Программа
Program y
var x, y: real
BEGIN
write ('Vvedite x');
readln (x);
y=(2*x-17*sqrt(x-7))/abs(3*x-12);
writeln ("y = ", y);
END.

Answer 2

$y=frac{2x-17sqrt{x-7}}{|3x-12|}=frac{2x-17sqrt{x-7}}{3x-12}$

ОДЗ корня: $xgeq7$, так что $x textless 4$ в модуле получится не может, преобразовав его в $12-3x$. 

Программа: 

program apsojfskd; 
var x:integer;
a, b, c:real; 
beginreadln (x);
a:=2*x-17*sqrt(x-7); 
b:=3*x-12; 
if x > 4 then b:=3*x-12; 
if x < 4 then b:=12-3*x; 
c:=a/b; 
writeln (c); 
end. 

Строки с if убрать можно в принципе, но я сделал это для вида, типа модуль в выражении присутствует. 

Answer 3

program apsojfskd; var x:integer; a, b, c:real; beginreadln (x);a:=2*x-17*sqrt(x-7); b:=3*x-12; if x > 4 then b:=3*x-12; if x < 4 then b:=12-3*x; c:=a/b; writeln (c); end.

Answer 4

Зачем так из вращаться, если в паскале есть функция модуля abs?

Answer 5

искал в интернете, как писать модуль в паскале, не нашёл, поэтому решил альтернативу