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

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

Задание № 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=');

--> ЧИТАТЬ ПОЛНОСТЬЮ <--