Умова: Дано значення дійсної величини X. Визначити:
Для розв'язання цієї задачі необхідно пам'ятати, що ділити на нуль не можна.
Текст програми:
Program Р3 ;
Uses crt ;
Var X, Rezultat : real;
Begin
Clrscr ; {Очищення екрану}
Write('Введіть значення X: ');
Readln(X) ;
If X*X*X+X-2<>0 Then begin
Rezultat: = (X-5) /(X*X*X+X-2);
Writeln('Rezultate' ,Razultat:8:2)
end
Else
Writeln(‘Обчислення неможливі -ділення на нуль!’);
Readkey; (Затримка зображення на екрані до натискання будь-якої клавіші)
End.
