Помогите составить программу по Паскаль АВС для решения уравнения. программа с функциями что ли

5 х^2-4 х/х^3, х>0

5 х^2-4 х/х, х=0

5 х^2-4 х, х<0

это система. заранее благодарна тому, кто сможет мне помочь) счастья тебе

Question

Информатика

Руслан

16 декабря, 17:29

Помогите составить программу по Паскаль АВС для решения уравнения. программа с функциями что ли

5 х^2-4 х/х^3, х>0

5 х^2-4 х/х, х=0

5 х^2-4 х, х<0

это система. заранее благодарна тому, кто сможет мне помочь) счастья тебе

+5

Ответы (1)

Знаете ответ?

Алена · Answer 1

Var x:integer; y:real;

begin

write ('Введите х') ;

read (x) ;

if x>0 then y:=5*exp (2*ln (x)) - 4*х / exp (3*ln (x)) ;

if x=0 then y:=5 * exp (2*ln (x)) - 4;

if x<0 then y:=5 * exp (2*ln (x)) - 4*x;

writeln ('f (x) = ', y) ;

end.