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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.10.2007, 21:31   #1
Tream
Новичок
Джуниор
 
Регистрация: 09.10.2007
Сообщений: 1
По умолчанию Паскаль. Сумма бесконечного ряда

Всем привет! Очень нужна помощь по паскалю!
задание такое:
вычислить приближенное значение бесконечной суммы(n стремится к бесконечности) с заданным общим членом 2 способами:
1)с заданной точностью
2)для заданного числа членов ряда
Выбор способа реализовать с помощью оператора выбора.
Изображения
Тип файла: bmp 123.bmp (94.5 Кб, 220 просмотров)
Tream вне форума Ответить с цитированием
Старый 10.10.2007, 08:20   #2
Cantana
форвард
Форумчанин
 
Аватар для Cantana
 
Регистрация: 03.08.2007
Сообщений: 130
По умолчанию

если я правильно понял
1) суммируем пока сумма(i)<точность
2) а тут n задаеться

если я не правилно понял поправте
dela ne v dengax a v yego kolichestve
Cantana вне форума Ответить с цитированием
Старый 10.10.2007, 13:18   #3
Carbon
JAVA BEAN
Участник клуба
 
Аватар для Carbon
 
Регистрация: 22.04.2007
Сообщений: 1,329
По умолчанию

Цитата:
Сообщение от Cantana Посмотреть сообщение
1) суммируем пока сумма(i)<точность
Суммируем, пока новое_слагаемое>=точность.
Carbon вне форума Ответить с цитированием
Старый 13.10.2007, 22:30   #4
Botan_SeReGa
Новичок
Джуниор
 
Регистрация: 13.10.2007
Сообщений: 2
По умолчанию

Привет!Здесь решается всё с помощью рядов.Обычный матанализ.Если вдруг не решишь-обращайся.Ася 230478284,мыло ourboxes@rambler.ru
Botan_SeReGa вне форума Ответить с цитированием
Старый 13.10.2007, 23:42   #5
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

Раз уж подняли тему, решу:
Код:
 
program Summa;
uses Crt;
var
  v:byte;  {выбор метода решения}
  accuracy:real; {1 метод - точность}
  number:byte; {2 метод - число членов}
  sum:real;
  i:integer;
 
{процедура выбора метода решения}
procedure start;
begin
  writeln('>>> entering data ');
  Write('Method:(1-accuracy; 2-number of member) : ');
{вводим цифры или 1 или 2 - смотря каким 
методом решать}
  readLn(v);
    case v of
{решение с заданной точностью}
      1: begin
           write('    accuracy( 0<a<=1 ) = ');
           readln(accuracy);
         end;
{решение с колличеством заданных членов}
      2: begin
           write('    number of member = ');
           readln(number);
         end;
    end;
   writeln('>>> entering data completed. Waiting...');
end;
 
{формула}
function f(x:real):real;
begin
  f:=1/sqr(x);
end;
 
{Первый метод решения}
procedure metod1;
begin
 sum:=0;
 i:=1;
{продолжаем суммировать, пока 
не превысим точность}
  while f(i)>accuracy do
  begin
    sum:=sum+f(i);
    writeln('      ',i,'# ',f(i):6:2);
    inc(i);
  end;
  writeln('---------------');
  writeln('   sum = ',sum:6:2);
  writeln('number = ',(i-1):6);
end;
 
{второй метод решения}
procedure metod2;
begin
  sum:=0;
  for i:=1 to number do
    begin
      sum:=sum+f(i);
    end;
  writeln('---------------');
  writeln('   sum = ',sum:6 :2);
end;
begin
  Clrscr; {очистка экрана}
  start;  {вызов процедуры выбора метода решения} 
  case v of
    1: metod1; {если выбран 1-й метод}
    2: metod2; {если 2-й}
  end;
readln;
end.
Alex21 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти сумму ряда 11111 Помощь студентам 14 01.11.2010 19:55
Сумма ряда Sova123456 Помощь студентам 8 11.06.2010 17:10
Как выйти из бесконечного цикла! Эдуард Общие вопросы C/C++ 11 02.03.2008 19:15
Паскаль. Сумма столбцов мартицы. kommunist Помощь студентам 3 10.11.2007 18:26
Сумма ряда на ЭВМ и вычисленная аналитически, программы на языке Pascal SunCHO Помощь студентам 2 02.05.2007 22:37