ID: 617

Название работы: Вычисление сумм и произведений методом накопления

Категория: Лабораторная работа

Предметная область: Информатика, кибернетика и программирование

Описание: Вычислить значение функции, содержащее алгебраическое произведение методом накопления в системе Turbo Pascal. В рамках данной работы были выработаны практические навыки по вычислению произведения методом накопления в системе Turbo Pascal.

Язык: Русский

Дата добавления: 2013-01-06

Размер файла: 50 KB

Работу скачали: 38 чел.

РОССИЙСКИЙ ГОСУДАРСТВЕННЫЙ СОЦИАЛЬНЫЙ УНИВЕРСИТЕТ

Факультет информационных технологий

Кафедра социальной и педагогической информатики

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

Дисциплина: Программирование на языке высокого уровня.

ТЕМА: Вычисление сумм и произведений методом накопления.

Выполнила студентка 1 курса

ПОИ – Д – Б – 1 Бизюкина Анастасия

Проверил Денисов А. А.

Москва 2012

Цель работы: научиться вычислять суммы и произведения методом накопления в системе Turbo Pascal.

Ход работы:

1.  Формальная постановка задачи:

Вычислить значение функции, содержащее алгебраическое произведение. Задано значение параметра x и количество множителей n.

1.  Словесное описание алгоритма:
2.  вводим исходные данные;
3.  накопителю для произведения присваиваем 1;
4.  в цикле вычисляем очередной множитель и домножаем его на накопитель.
5.  выводим ответ на экран.
6.  Таблица данных:

Исходные данные
Имя	Тип	Структура	Смысловое значение	Диапазон значения	Точность		Число позиций
n	Integer	Простая переменная	Количество слагаемых	minInteger<n<maxInteger	–		–
x	Real	Простая переменная	Заданные значения параметра	minReal<x<maxReal	2 знака после запятой		E10:2
Выходные данные - результат
P	Real	Простая переменная.	Искомое произведение	minReal<P<maxReal	2 знака после запятой		E10: 2
Промежуточные данные
i	Integer	Простая переменная	Индекс текущих множителей	1<i<n		–	–

1.  Блок – схема алгоритма:

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

Program proizvedenie;

var x, P: real;

     i, n: integer;

begin

readln( x,n);

P:=1;

fot i:=1 to n do

begin

P:=P*((i*ln(x)+3/7)/exp((i–1)*x/i));

end;

writeln( P);

readln;

end.

1.  Пример работы программы:

Вывод: В рамках данной работы были выработаны практические навыки по вычислению произведения методом накопления в системе Turbo Pascal.

                    x, n

7                       P

STOP

6          i<n

5                     i:=i+1

4 P:=P*((i*ln(x)+3/7)/exp((i–1)*x/i))

3                                      i:=1

P:=1

нет

да

2