Реферат

Реферат Лабараторная работа 8

Работа добавлена на сайт bukvasha.net: 2015-10-28

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 1.4.2025





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

Задание № 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}

1. Контрольная работа Какие экономические противоречия ведущих стран привели к началу первой мировой войны
2. Реферат Триссино, Джанджорджо
3. Реферат Організація й обслуговування робочих місць
4. Реферат на тему Даосизм 2
5. Статья Общественно-экономические классы
6. Реферат на тему Managing The Information Environment Discuss Tele Essay
7. Реферат на тему Империя как тип структурного деления мира
8. Реферат Династия Демидовых
9. Курсовая Менеджер в организации
10. Курсовая на тему Анализ калькулирования себестоимости продукции