IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Задача на сумму ряда, проверьте на ошибки, пожалуйста.
Zharatustra
сообщение 20.12.2007 20:55
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Николай

Репутация: -  0  +


Надо вычислить сумму ряда с точность до 10 в -3. в программе использовать процедуры. программа почему-то не работает... Ормула в приложенном файле.

текст программы
program n1;                                                                    
var i,j:integer;                                                              
    s2,s,x,f:real;                                                            
 procedure ryad(x1:real; var s1:real);                                        
  const eps=0.001;                                                            
  var d,y:real;                                                               
      k:integer;                                                              
   begin                                                                      
    s1:=0;                                                                    
    x:=2;                                                                     
    k:=1;                                                                    
    d:=0;                                                                     
     repeat                                                                   
      for i:=1 to k do                                                        
       f:=f*i;                                                                
      y:=exp(2*k*ln(x));                                                     
      s1:=s1+d;                                                                                              
     until (abs(d))<=eps;                                                     
  end;                                                                        
begin                                                                         
 for i:=1 to 5 do                                                             
  begin                                                                       
   ryad(s,x);                                                                 
   s2:=s2+s;                                                                                                                                     
  end;                                                                        
 writeln (s2:10:5);                                                           
 readln;                                                                     
end.
 


Сообщение отредактировано: Zharatustra - 20.12.2007 22:30


Прикрепленные файлы
Прикрепленный файл  102.bmp ( 90.68 килобайт ) Кол-во скачиваний: 171
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 1)
andriano
сообщение 20.12.2007 23:05
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 168
Пол: Мужской
Реальное имя: Сергей Андрианов

Репутация: -  28  +


А как оно должно работать?
Распиши комментарии ко всем используемым переменным и к строкам внутреннего цикла и, думаю, сам разберешься. (хороший оптимизатор весь внутренний цикл должен был бы выбросить)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 28.07.2025 9:42
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"