Лабараторная работа №8

Цель работы: Получение навыков реализации циклических алгоритмов с
неизвестным числом повторений цикла, операторов цикла с предусловием и
постусловием и итерационных циклических алгоритмов.
Задание № 17. Вычислить функцию при заданных значениях аргумента [pic]
                                 Блок-схема.
[pic]



                          Программа на Turbo Pascal
{******************************************************}
 {Программа: lab8, Лаб. раб.8, Вар. 17
       }
 {Цель:Вычисление двойной суммы
    }
 {Описание параметров и перемненных:
  }
 {c,q-промежуточные значения
          }
 {X,a-аргументы функции
              }
 {S-сумма
                           }
 {N,K-переменная суммирования
        }
 {x=x0(xh)xn
                          }
 {Требуемые подпрограммы: нет
         }
 {Программист: Позднышев A.A. , гр. 316
    }
 {Проверил: Новичков B.C., каф. ВПМ
     }
 {Дата написания: 10 апреля 2004 г.
           }
 {*******************************************************}
 Program lab8;
   var
    a,x,x0,hx,xn,c,q,s:real;
    k,n:byte;
   begin{CS}
     write('x0=');
     read(x0);
     write('hx=');
     read(hx);
     write('xn=');
     read(xn);
     writeln('x0=',x0,'hx=',hx,'xn=',xn);
     x:=x0;
     s:=0;
     repeat
      for k:=1 to 5 do
        for n:=1 to 10 do
          if k>=n then a:=1 else a:=0.1;
            begin
             s:=s+exp((k/n)*ln(a*x));
            end;
      writeln('x=',x,'S=',s);
      x:=x+hx;
     until x>xn
   end.{CS}
-----------------------
x:=x0; s:=0;

Ввод x0, hx, xn


f:=f+exp(n*ln(a*b));
a:=a+hx;


                                   n=1(1)6



                                    Конец



                                   Вывод f



                                   Начало

                                   n=1(1)6