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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 04.02.2012, 18:47   #1
Beerhazard
Новичок
Джуниор
 
Регистрация: 04.02.2012
Сообщений: 4
По умолчанию exitcode 205

Люди помогите пожалуйста не понимаю в чем проблема
по заданию надо вычислить среднее геометрическое элементов y[i]>0 массива Y(28 элементов),который заполняется по формуле y[i]=(i-5)^i-1
вот код подскажите в чем ошибки
Код:
program zadanie;
const n=28;
var y:array [1..n] of real;
sg,pr:real;
i,kolvo:integer;
begin
pr:=1;
sg:=0;
kolvo:=0;
for i:=28 downto 1 do
begin
y[i]:=exp((i-1)*ln((ABS(i-5))));
if y[i]>0 then
begin
pr:=pr*y[i];
kolvo:=kolvo+1;
sg:=pr/kolvo
end;
end;
writeln ('Массив');
for i:=1 to n do
write ('  ',y[i]:4);writeln;
writeln ('Среднее геометрическое элементов удовлетворяющих условию y[i]>0 равно ',sg)
end.
Beerhazard вне форума Ответить с цитированием
Старый 04.02.2012, 19:05   #2
MadReason
Ищу работу
Форумчанин
 
Аватар для MadReason
 
Регистрация: 16.02.2007
Сообщений: 269
По умолчанию

переполнение где-то...
попробуй:
Код:
y:array [1..n] of extended;
sg,pr:extended;
Пишу на Delphi все что угодно, недорого, красиво, с комментариями
###icq 107335###
MadReason вне форума Ответить с цитированием
Старый 04.02.2012, 19:17   #3
Beerhazard
Новичок
Джуниор
 
Регистрация: 04.02.2012
Сообщений: 4
По умолчанию

теперь exitcode 200
Beerhazard вне форума Ответить с цитированием
Старый 04.02.2012, 20:00   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
переполнение где-то...
На моменте когда i становится равно 5-ти
Тогда формула дает NaN.
проверку нужно пхнуть на это.
Ну и конечно же до 28 не хватит процессору силенок.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 04.02.2012, 21:34   #5
Beerhazard
Новичок
Джуниор
 
Регистрация: 04.02.2012
Сообщений: 4
По умолчанию

всем спасибо большое за помощь теперь вроде как работает =)
Beerhazard вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В пасколе выдает ошибку exitcode = 201 victor5133 Паскаль, Turbo Pascal, PascalABC.NET 1 07.03.2011 14:35
как исправить ошибку 205 AndrewPl Помощь студентам 5 06.02.2011 22:20
Проблема с 205 ошибкой в Pascal d00ker Помощь студентам 6 29.11.2010 16:51
ошибка # 205 в Паскале.. ZloyGeniy99 Помощь студентам 9 10.02.2010 23:12