Уравнение в Турбо паскаль

[Геворг]

Надо уравнение в турбо паскале записать, я в этом новичок, не компелируется! Уравнение и работа в прикреплённом файле, помогите найти ошибку, спс!

[Vanta11a]

Присвоение - это так:

:=

А вот это:

:

Просто указывает на количество позиций для вывода числа

И что именно пишет при ошибке компилирования?

[aleks15]

b/2*(c+1/a)вот еще;
непонятна эта строчка, зачем x присвоена 3:это вроде количество символов до запятой а не присвоение

[Shift_sk]

program kr1;

uses crt;

const b=2;
    a=1.2;
   xn=1.2;
     xk=3;
   dx=0.3;
    c=0.5;
var x,y:real;

begin

clrscr;

writeln ('Welcome');
{ writeln ('Введите значения:');
writeln ('Xn=',xn:4);
writeln;
writeln ('Xk=',xk:4);
writeln;
writeln ('Dx=',xd:4);
writeln;
writeln ('b=',b:4);
writeln;
writeln ('a=',a:4);
writeln;
writeln ('c=',c:4);
writeln; }

x:=xn;
while (x>=xn) and (x<=xk) do

begin

y:=sqrt(sqrt(a+b*exp(x)+c*exp(2*x))/sqr(ln(a))+ln(sqr(b+a)))+b/2*(c+1/a)*sin(sqr(a+b));

x:=x+dx;
writeln('y',x:3,'=',y);
end;

end.

[Геворг]

Спасибо всем отозвавшимся! Подправил, теперь выдаёт ошибку Error 89: ")" expected , что-то я пропустил, наверно?!

вот код

program kr1;

uses crt;

const
b=2;
a=1.2;
xn=1.2;
xk=3;
dx=0.3;
c=0.5;
var
x,y:real;

begin

clrscr;
writeln('Welcome');
{writeln('Enter the number');
writeln('Xn=',xn:4);
writeln;
writeln('xk=',xk:4);
writeln;
writeln('dx=',xd:4);
writeln;
writeln('b=',b:4);
writeln;
writeln('a=',a:4);
writeln;
writeln('c=',c:4);
writeln;}

x:=xn;
while(x>=xn)and(x<=xk)do

begin

y:=sqrt(sqrt(a+b*exp(x)+c*exp(2x))/sqr(ln(a))+ln(sqr(b+a)))+b/2*(c+1/a)*sin(sqr(a+b));

x:=x+dx;
writeln('y',x:3,'=',y)
end;

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[aleks15]

так то вроде все правильно посмотри в каком месте указатель мигает и присмотрись по внимательнее еще

[Геворг]

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

так то вроде все правильно посмотри в каком месте указатель мигает и присмотрись по внимательнее еще

y:=sqrt(sqrt(a+b*exp(x)+c*exp(2x))/sqr(ln(a))+ln(sqr(b+a)))+b/2*(c+1/a)*sin(sqr(a+b));

мигает под x в exp(2x) убрал 2ку скомпелировалось, но там в уравнении "е" в степени 2х, как его по-другому записать?

[Геворг]

записал exp(x+x) теперь компилируется, надеюсь прокатит преподу, всем спасибо!

[aleks15]

я эту тему в школе еще не проходил а может и проходил не помню но думаю там надо так exp(2*x) попробуй