Рейтинг@Mail.ru
Menu
Скачать картинки на телефон бесплатно.
Заставки для телефона, аватарки.
(Вырезать из фотографии)

Роза `Гренд Могул` Яхта `Алиса` Лесное озеро Музей `Пирогово` Белочка
Выберите рубрику (тему)

Операторы цикла

Программирование на Паскале
Программа 3

Вычислить с точностью до e (e>0) каждую внутреннюю сумму, определить количество слагаемых, вывести промежуточные результаты:

\[\\\sum_{x=1}^5\sum_{k=1}^\infty(-1)^kx^{k+2}/(k+1)(k+2)\]

Математическое решение


Каждая внутренняя сумма есть суммой геометрической прогрессии
Знаменатель геометрической прогрессии:
q = bn/bn-1 = -x/(k+1)(k+2).
B0 = x2/2



Алгоритм в виде диаграммы действий


Операторы цикла. Программа 3. Вычислить с точностью до e (e>0) каждую внутреннюю сумму,  определить количество слагаемых, вывести промежуточные результаты. Алгоритм в виде диаграммы действий


Текст программы


program Prg3;



{ http://nataliya.kiev.ua/?id=103 }



const


  n = 5;

var


  x, k, m: integer;
  e, s, d, l: real;

begin


  WriteLn('Введите точность:');
  Write('E=');
  ReadLn(e);
  for x := 1 to n do
 
begin
    WriteLn('x=', x);
    k := 1;
    l := sqr(x) / 2;
    repeat
      l := -l * x / ((k + 1) * (k + 2));
      d := d + l;
      Write(l:11:6);
      k := k + 1;
      m := m + 1;
    until abs(l) < e;
    WriteLn;
    s := s + d;
    Write('s', x, '=', d:0:7);
    WriteLn(' n', x, '=', k - 1);
  end;

  Writeln;
  WriteLn('Количество слагаемых:', m);
  WriteLn('S=', s:0:8);
  ReadLn;
end.

Print

Печатать текст программы!



Source code: «Операторы цикла».

Редактировать, копировать

(WYSIWYG редактор «NicEdit»)
Загрузить файл с текстом программы: «Операторы цикла». Печатать текст программы!

Загрузить файл с текстом программы

(Prg3.pas - Windows-1251)

Результат работы программы


Введите точность:
E=0.1
x=1
  -0.083333
s1=-0.0833333 n1=1
x=2
  -0.666667 0.111111 -0.011111
s2=-0.6500000 n2=3
x=3
  -2.250000 0.562500 -0.084375
s3=-2.4218750 n3=3
x=4
  -5.333333 1.777778 -0.355556 0.047407
s4=-6.2855787 n4=4
x=5
  -10.416667 4.340278 -1.085069 0.180845 -0.021529
s5=-13.2877213 n5=5

Количество слагаемых:16
S=-22.72850832

Введите точность:
E=0.001
x=1
  -0.083333 0.006944 -0.000347
s1=-0.0767361 n1=3
x=2
  -0.666667 0.111111 -0.011111 0.000741
s2=-0.6426620 n2=4
x=3
  -2.250000 0.562500 -0.084375 0.008438 -0.000603
s3=-2.4067022 n3=5
x=4
  -5.333333 1.777778 -0.355556 0.047407 -0.004515 0.000322
s4=-6.2745984 n4=6
x=5
  -10.416667 4.340278 -1.085069 0.180845 -0.021529 0.001922 -0.000133
s5=-13.2749522 n5=7

Количество слагаемых:25
S=-22.67565101

Теория к программе


Операторы цикла



  В языке программирования Паскаль реализованы

три типа операторов цикла

:

      - цикл с параметром
FOR .. TO/DOWNTO .. DO;

      - цикл с предусловием
WHILE .. DO;

      - цикл с постусловием
REPEAT .. UNTIL.


 

Цикл с параметром (счетчиком)



    Общий вид:
      FOR <управляющая переменная,i>:=<начальное значение,n0> TO <конечное значение,nf>
        DO <оператор,S>;


 

Цикл с предусловием



    Общий вид:
      WHILE <логическое выражение,V> DO <оператор,S>

 

Цикл с постусловием



    Общий вид :
      REPEAT <оператор,S1>;
        <оператор,S2>;
        .
        .
        <оператор,SN>;
      UNTIL <логическое выражение,V>;



Дата: 2007-10-06   Автор: Admin

Для отображения математических формул на сайте используется

кросс-браузерная JavaScript библиотека MathJax и язык разметки данных (макропакет) LaTeX системы компьютерной вёрстки TeX
Случайный анекдот

Маленький мальчик подходит к отцу и спрашивает:
- Слово адресс пишется с одной буквой с или с двумя?
Отец, задумавшись... - знаешь сынок, напиши лучше URL и ложись спать!
Дата: 17-12-2004   Автор: Admin   Подрубрика: Компьютеры и дети