Цель работы: Получение навыков реализации циклических алгоритмов с неизвестным числом повторений цикла, операторов цикла с предусловием и постусловием и итерационных циклических алгоритмов.

Задание № 17. Вычислить функцию при заданных значениях аргумента

Блок-схема.


Программа на 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}