Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.12.2015, 23:06   #1
YUps
 
Регистрация: 23.12.2015
Сообщений: 6
По умолчанию Ошибка?

Ребят подскажите что не так сделал , выдает NAN
7.png
Код:
var k,f,i:integer;
x,sum,x1,e,sum2,fac:real;
begin
writeln('Введите x');
readln(x);
writeln('Введите е');
readln(e);
k:=0;
begin
for i:=0 to k do
begin
fac:=exp((1/3)*ln(k+1));
end;
x1:=((exp(k*ln(-1)))/fac)*(exp((2*(k+1))*ln(x/2)));
sum:=x1;
end;
while abs(x1)<e do 
begin
k:=k+1;
for i:=0 to k do
begin
fac:=exp((1/3)*ln(k+1));
end;
x1:=((exp(k*ln(-1)))/fac)*(exp((2*(k+1))*ln(x/2)));
sum:=sum+x1;
end;
Writeln('Сумма равна ',sum);
END.
]
Изображения
Тип файла: png 7(1).png (16.1 Кб, 79 просмотров)

Последний раз редактировалось YUps; 28.12.2015 в 01:57.
YUps вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Где ошибка в этом исходном коде на языке Си? Или ошибка в Excel? ArchiCurtis Помощь студентам 2 07.04.2012 14:16
Ошибка run-time Error 1004 общая ошибка ODBC kaval88 Microsoft Office Excel 0 27.02.2011 20:20
Ошибка в коде, ошибка в css или это проблема с совместимостью с браузерами? ankris HTML и CSS 5 23.11.2010 16:58
Это ошибка Delphi или моя ошибка??? bloodeagle Общие вопросы Delphi 3 12.11.2009 15:26
...Ошибка 101 (net::ERR_CONNECTION_RESET): Неизвестная ошибка... infrared Помощь студентам 0 16.04.2009 17:44