Вычислить значения по формуле

[Pchelka1992]

Помогите пожалуйста вычислить значения по формуле (все переменные принимают действительные значения). Реализовать задачу на ЯП Паскаль и в табличном редакторе Excel, я в этом ничего не понимаю полный ноль.
Формула во вложенном файле.Заранее огромнейшее спасибо

[MyLastHit]

Паскаль:

Var result,a,b,c:real;
begin
write('Введите а: ');
readln(a);
write('Введите b: ');
readln(b);
writeln('Введите с: ');
readln(c);
result:=b+sqrt(sqr(b)+4*a*c)/(2*a)-a*sqr(a)*c+sqr(1/b);
writeln(result);
readln;
end;

Excel:
в a1 -a, в b1 - b, в с1 - с, результат в d1;
В D1 пишем: =(b1+(b1*b1+4*a1*c1)^(1/2))/(2*a1)-a1*a1*a1*c1+1/(b1*b1)

[Pchelka1992]

Огромное спасибо, можно еще вопросик где сереньким написано ('Введите а: ');-это тоже писать??

[MyLastHit]

Свою аську в личку скинь, или напиши мне в аську.
Это слишком простые вопросы, там будет удобнее.

[Артем86]

Не стал создавать новую тему, т.к. проблема такая же. Не могу решить задачу на Паскале.
Нужно Вычислить значения по формуле (все переменные принимают действительные значения). Реализовать задачу на ЯП Паскаль и в табличном редакторе Excel.
Если можно, то скиньте файл с решенной задачей.

[whatever]

ln = ln
модуль = abs
корень = sqrt
возведение в квадрат = sqr

Куда проще то? За Exel не в теме, но думаю минут на 10 работы с гуглом.

[zmey31313]

Паскаль :

program zadacha;
var
  x, y, z, res : real;
begin
  writeln('введите x');
  readln(x);
  writeln('введите y');
  readln(y);
  writeln('введите z');
  readln(z);
  res := ln(abs((y - sqrt(abs(x))) * (x - y * (z + (sqr(x)/4)))));

  writeln('result = ', res);
end.

[zmey31313]

Excel:
в a1 -a, в b1 - b, в с1 - с, результат в d1;
В D1 пишем: =(b1+(b1*b1+4*a1*c1)^(1/2))/(2*a1)-a1*a1*a1*c1+1/(b1*b1)

sqrt забыл

в a1 -a, в b1 - b, в с1 - с, результат в d1;
В D1 пишем: =(b1+sqrt(b1*b1+4*a1*c1)^(1/2))/(2*a1)-a1*a1*a1*c1+1/(b1*b1)