Ошибка. Опции

[Lykash]

Вот у меня есть задача...
что сдесь не правильно в этом рядке until (e>=e-10)and(e>=e-4);

uses crt;
var x,u,e,t:real;
i:integer;
begin
clrscr;
write('x=');
readln(x);
repeat
write('Введите точность от 10^-4 до 10^-10 e=');
readln(e);
until (e>=e-10)and(e>=e-4);
i:=0; {нулевой индекс}
u:=1; {начальное значение итоговой суммы}
t:=1;{знчение члена ряда при i=0}
while abs(t)>=e do {пока модуль очердного члена ряда не меньше точности}
begin
i:=i+1;{следующий член}
t:=t*x/i;{домножаем на х(возводим в степень) и делим на индекс(обратный факториал)}
u:=u+t;{суммируем}
end;
writeln('U=',u:0:10);
writeln('Достигнутая точность=',abs(t):0:10);
write('Вычисленное значение функции=',exp(x):0:10);
readln
end.

[Krjuger]

И зачем было создавать новую тему???
По сабжу,спроси того модератора,который делал тебе это задание, ну или хотябы разок подумай своей головой.Ты организуешь ввод числа в некотором диапозоне от е^-4 до e^-10,repeat until устроен таким образом,что цикл будет выполняться до тех пор пока не выполнится условие. Вот твое неправильное условие (e>=e-10)and(e>=e-4); подумай головой, как изменить его,чтобы при попадании в заданный диапозон цикл останавливался.
Больше я помочь ничем не могу,а точнее не хочу.Кстати в прошлой теме есть огромная подсказка.
P.S. Ответ я знаю,есличе...

Сообщение отредактировано: Krjuger - 20.02.2012 22:00

[Lykash]

И зачем было создавать новую тему???
По сабжу,спроси того модератора,который делал тебе это задание, ну или хотябы разок подумай своей головой.Ты организуешь ввод числа в некотором диапозоне от е^-4 до e^-10,repeat until устроен таким образом,что цикл будет выполняться до тех пор пока не выполнится условие. Вот твое неправильное условие (e>=e-10)and(e>=e-4); подумай головой, как изменить его,чтобы при попадании в заданный диапозон цикл останавливался.
Больше я помочь ничем не могу,а точнее не хочу.Кстати в прошлой теме есть огромная подсказка.
P.S. Ответ я знаю,есличе...

Знал бы, ответил.. Спасибо за то что хоть немного подсказок нагуглил