617

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

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

Информатика, кибернетика и программирование

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

Русский

2013-01-06

50 KB

36 чел.

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

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

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

Лабораторная работа №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


 

А также другие работы, которые могут Вас заинтересовать

9700. Необходимость и основные задачи актуарных расчетов 38 KB
  Необходимость и основные задачи актуарных расчетов. При заключении договора страхования хозяйственных рисков стоимость услуг, оказываемых страховщиком страхователю, устанавливается на основе всесторонней оценки объективных и субъективных..
9701. Виды страхового покрытия риска 64.5 KB
  Виды страхового покрытия риска Страхование хозяйственных рисков является эффективным механизмом покрытия ущерба субъекта экономической деятельности только в том случае, когда покрытие, обеспеченное страховым договором, соответствует нуждам...
9702. Сдерживающие факторы при страховании хозяйственных рисков 32 KB
  Сдерживающие факторы при страховании хозяйственных рисков. Построенные на общности интересов участников договоры страхования рисков в хозяйственной практике не имеют широкого распространения, поскольку их заключение и выполнение сдерживается во мн...
9703. Удержание риска возможных потерь на предприятии 31 KB
  Удержание риска возможных потерь на предприятии Самострахование рисков субъектов хозяйствования осуществляется с целью поддержания уровня их деловой активности и эффективности, которые организационно-правовая структура планирует сохранить после проя...
9704. Способы резервирования средств для покрытия возможных убытков 36 KB
  Способы резервирования средств для покрытия возможных убытков Программа самострахования рисков предусматривает один или несколько из альтернативных методов покрытия возможных убытков. Стремление субъекта хозяйствования сократить риски практически вс...
9705. Оптимальные уровни удержания для самострахования риска 31.5 KB
  Оптимальные уровни удержания для самострахования риска Удержание для покрытия потерь при негативном проявлении рискованных ситуаций - это использование средств предприятия для финансирования случайных убытков. Уровень удержания формируется с уч...
9706. Передача риска без страхования через договорные соглашения 30 KB
  Передача риска без страхования через договорные соглашения Одним из методов преодоления риска является частичная или полная передача возможных потерь кому-то другому через включение в договоры, контракты, соглашения статей и оговорок о компенсации п...
9707. Национальные страховые рынки 31.5 KB
  Национальные страховые рынки Транснациональным корпорациям, компаниям, фирмам, некоммерческим организациям, государственным органам и отдельным лицам приходится защищать результаты своей деятельности или получать дополнительные доходы или другие выг...
9708. Программа управления рисками в мировом масштабе 31 KB
  Программа управления рисками в мировом масштабе Транснациональные хозяйственные формирования, фирмы, корпорации развиваются успешно, если используют на внешних рынках благоприятные местные условия и экономические ситуации, которые они сами же создаю...