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

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

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

Программа 3

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

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

Каждая внутренняя сумма есть суммой геометрической прогрессии
Знаменатель геометрической прогрессии:
Операторы цикла.
Математическое решение.
Каждая внутренняя сумма есть суммой геометрической прогрессии.
Знаменатель геометрической прогрессии
Операторы цикла.
Математическое решение

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

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

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

program prg3;
{ http://nataliya.kiev.ua }
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.

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

Введите точность:
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>;


Случайный анекдот

- Профессор, а два балла-то за что?
- Один балл за то, что явились на экзамен, второй за попытку отвечать.
- Профессор, а третий, за то, что я уйду, вы накинуть не можете?
Дата: 05-05-2005   Автор: Admin   Подрубрика: Сессия