Вычислить значение функции на Delphi 7.

[Miracle01]

Люди добрые помогите составить программу. Задача в Worde!!! Спасибочки большое этому форуму!!!

[Arigato]

В чём трудность?

[Miracle01]

Сообщение от Arigato

В чём трудность?

Трудность в том, что программу не могу соствить!!!

[Arigato]

Трудность в том, что программу не могу соствить!!!

Советую Вам для начала изучить какую-либо литературу по Паскалю и Делфи. Потом сможем продолжить разговор.

[бедный_студент]

я знаю что он хочет ему нужно описать эту функцию последовательно
просит помощи в расписке этой системы в "линейные" команды на языке программирования

[Arigato]

я знаю что он хочет ему нужно описать эту функцию последовательно
просит помощи в расписке этой системы в "линейные" команды на языке программирования

Да мы тоже поняли, что нужно ему готовое решение на блюдечке. Только вот желания нет, не официанты мы, что бы готовое подавать.

[bondik]

Подарочек в честь майский праздников =)

Program lol;
Uses crt;
var x:real;
begin
clrscr;
writeln("Введите X");
readln(x);
if (x>=0) then writeln("X=",ln(x)+9);
if (x<0) then writeln("X=",-(x/(x*x-7)));
end.