помогите найти ошибку

[darika]

составить програму вычисления функции y(x) используя описание ф-и пользователя:
..... /
....| 1.75 * sh(16.2*x^2 - 1.7x + 0.93, x>2,
y=< e^1.4x - sh(16.2x^2 - 1.7x +0.93), 0<=x<=2,
....| |x^2 +x-1| + sh(16.2x^2 - 1.7x +0.93), x<0
..... \


Program p1
uses crt;
var x,y,s:real;
function f(c:real):real;
var s:real;
begin
s:=16.2*c*c-1.7*c+0.93;
f:=(exp(s)-exp(-s))/2;
end;
Begin
writeln(' ‹ дана функция');
writeln('введем значение х');readln(x);

if (x>0) then y:= 1.75*f(x)
else if (x>=0) then y:=exp(1.4*x)-f(x)
else y:=(abs(x-x+x-1))+f(x);
writeln('Ответ: у=',y:4:2);

End.


выдает ошибку( где f задано

[Mr.Qwerty]

Итак, darika, ваши ошибки:
1)

Program p1

-

 Program p1;

2)

function f(c:real):real;
var s:real;

- ? зачем переменную объявлять два раза?
3)

f:=(exp(s)-exp(-s))/2;

- естественно будет ошибка с f, т.к. у вас ошибки в процедуре
4)

uses crt;

- зачем объявлять модуль если вы его не используете?
5)

if (x>0) then y:= 1.75*f(x)
else if (x>=0) then y:=exp(1.4*x)-f(x)

- Мне не совсем понятен этот момент, обра кодабра..
6)

else if (x>=0) then y:=exp(1.4*x)-f(x)
else y:=(abs(x-x+x-1))+f(x);

извините, но увы, конструкцию if else else еще не придумали нормально применять
7)

if (x>0) then y:= 1.75*f(x)
else if (x>=0) then y:=exp(1.4*x)-f(x)
else y:=(abs(x-x+x-1))+f(x);

- как не пытался, все равно не понял эти "катакомбы"(

Уж легче будет если вы дадите задание, и по нему напишем код, чем исправлять "абычто".Без обид..я тоже был когда то таким..

[darika]

а как записать тогда (e^x- e^-x)/2
задание же записано...

[Mr.Qwerty]

По определению, степень в программирование это экспонента натурального логарифма помноженная на степень, то есть X:=EXP(Ln(x)*Y);
К примеру, изобразить 2 в третьей степени, то есть будет так: = exp(ln(2)*3);
Если по вашему заданию, то а как записать тогда (e^x- e^-x)/2 -> {e^x ->exp(ln(e)*x) } {e^-x->exp(ln(e)*(-x)) либо e^-x->1/exp(ln(e)*x)}
Отсюда следует, что решением вашей проблемки будет:
(e^x- e^-x)/2 = (exp(ln(e)*(-x))-exp(ln(e)*(-x)))/2 или (exp(ln(e)*(-x))-(1/exp(ln(e)*x)))/2
Вот так вот) Если что не поймешь обращайся..объясню) Удачи)!

[darika]

а можешь с задачкой помочь чуточку???Ведь по идее она должна работать

[Mr.Qwerty]

Ладно, darika, не буду тебя утомлять, вот код...если хочешь узнать что да как говори, я тебе объясню..

Program p1;
uses Crt; //подключение модуля
var x,y,s:real; //введение переменнызх
function f(c:real):real; //создание функции
begin
f:=16.2*sqr(c)-1.7*c+0.93; //присвоение формулы
end;
Begin
ClrScr; //очистка экрана
writeln(' ‹ дана функция'); //ввод данных
writeln('введем значение х');//ввод данных
readln(x); //чтение данных
if (x>2) then y:= 1.75*f(x); //условие_1
if (x>0) and (x<2) then   //условие_2
 begin
  y:=exp(ln(e)*(1.4*x))-f(x);
  end;
if x<0 then y:=abs(sqr(x)+(x-1))+f(x);  //условие_3
writeln('Ответ: у=',y:4:2); //вывод ответа
Readln;//ожидание действия
End.

[darika]

а если через процедуру то так?

var x,y,s:real; 
  procedure f(c:real);
  begin
    s:=16.2*sqr(c)-1.7*c+0.93; 
  end;

Begin
  ClrScr; 
  writeln(' ‹ дана функция'); 
  writeln('введем значение х');readln(x);
  if (x>2) then y:= 1.75*f(x); 

  if (x>0) and (x<2) then   
    y:=exp(ln(e)*(1.4*x))-f(x);

  if x<0 then y:=abs(sqr(x)+(x-1))+f(x);  
  writeln('Ответ: у=',y:4:2); 
  Readln;
End.

[russian-stalker]

Да, так.
разница между функцией и процедурой лишь в том, что процедура не может возвращать значение.