[Pascal] Циклический алгоритм. Операторы Repeat.Until и While

[Alexandra1991]

Напишите программу, которая с точностью, которая введена из клавиатуры рассчитывает значение функции y=ln(x)(0<x<=2). Для этого воспользуйтесь такой формулой:
Безымянный.JPG

Ребята, помогите девушке.За любую помощь спасибо!

[ybn]

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

Напишите программу, которая с точностью, которая введена из клавиатуры рассчитывает значение функции y=ln(x)(0<x<=2). Для этого воспользуйтесь такой формулой:
Вложение 32153

Ребята, помогите девушке.За любую помощь спасибо!

Девушка, хоть и говориться, что "с девушек денег не берут", но за просто так тебе здесь такую задачу не решат. Обращайся в раздел ФРИЛАНСА.

[Stilet]

Предлагаю:

 var k,n:integer;x,e,y,yl:double;
begin
 e:=0.01;k:=-1;
 n:=1;x:=1.2;
 y:=4;
 repeat yl:=y;
  k:=k*-1;
  y:=y+k*exp(n*ln(x-1))/n;
  inc(n);
 until abs(yl-y)<e;
 write(y:3:2);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Твоя задача - дописать ввод e с клавиатуры (процедура read())

[Alexandra1991]

а можете описать каждую переменную, пожалуйста! и я так поняла, что нужно вместо фигурных скобок дописать ввод е с клавиатуры?

85 ";" expected

курсор переместился под запятую в e=0.01;

[Niro]

если вы запишите "ввод с клавиатуры" вместо фигурных скобок, то программа все-равно будет считать "е" равным 0,01, т.к. ввод "е" у вас будет происходить до цикла. Значит надо удалить из программы "e:=0.01" и написать ввод с клавиатуры (использую readln и writeln - посмотрите о них в инете, лекциях)
P.S. А в какой форме у вас проходит сдача лаб?

[Alexandra1991]

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

85 ";" expected

теперь ошибка под запятой в x:=1.2 Уже пол часа долюлюсь и не могу понять

[Niro]

85 ";" expected

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

[Alexandra1991]

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

Предлагаю:

 var k,n:integer;x,e,y,yl:double;
begin
 e:=0.01;k:=-1;
 n:=1;x:=1.2;
 y:=4;
 repeat yl:=y;
  k:=k*-1;
  y:=y+k*exp(n*ln(x-1))/n;
  inc(n);
 until abs(yl-y)<e;
 write(y:3:2);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Твоя задача - дописать ввод e с клавиатуры (процедура read())

Я написала Безымянный11.JPG и там где черточка написало ошибку

[p51x]

1.2
Где здесь запятая?