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


 

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

13896. Демократия есть механизм, который гарантирует, что нами управляют не лучше, чем мы того заслуживаем 14.84 KB
  Демократия есть механизм который гарантирует что нами управляют не лучше чем мы того заслуживаем. Б. Шоу. Демократия политический режим при котором власть принадлежит всем или большинству свободных граждан подчиняющихся закону. Но демократия подразумевает не то...
13897. Дело – за юношей, совесть – за взрослым, молитва – за стариком 16.05 KB
  Дело за юношей совесть за взрослым молитва за стариком. Л. Питер. На каждом этапе социализации человек осуществляет определённый вид деятельности и выполняет определённые социальные роли. Социализация начавшийся в младенчестве и заканчивающийся в глу...
13898. Весь мир – театр. В нем женщины, мужчины – все актеры. У них есть выходы. И каждый не одну играет роль 19.44 KB
  Весь мир театр. В нем женщины мужчины все актеры. У них есть выходы. И каждый не одну играет роль. У. Шекспир Динамика современной жизни во многом заставляет личность приспосабливаться и трансформироваться меняя свою социальную роль. Говоря о социальной струк...
13899. Будь поучтивее с людьми, которых встречаешь, взбираясь наверх, - ты ещё встретишься с ними, когда будешь спускаться 15.52 KB
  Будь поучтивее с людьми которых встречаешь взбираясь наверх ты ещё встретишься с ними когда будешь спускаться У. Мизнер. Человеческая жизнь непредсказуема в ней бывают не только взлёты но и падения. На протяжении всей жизни человек приспосабливается к о
13900. Богатым человека делает его сердце 14.62 KB
  Богатым человека делает его сердце Л. Толстой. Нельзя судить о богатстве человека по толщине его кошелька. Только наличие высоких моральных качеств позволяет считать человека истинно богатым. Нравственность это степень усвоения личностью моральных ценностей
13901. Банки охотно дают деньги тем, кто может доказать, что в них не нуждается 25.5 KB
  Банки охотно дают деньги тем кто может доказать что в них не нуждается. Банк предоставляет свои услуги тем у кого есть средства и источники доходов. Банковская система совокупность национальных банков и других кредитных учреждений действующих в рамках единого ф
13902. Аномия: определение, причины, характеристики 118.5 KB
  КУРСОВАЯ РАБОТА Аномия: определение причины характеристики Оглавление: Введение Понятие аномии ее характеристики и сущность теории аномии Основные теории аномии: Теория аномии Э. Дюркгейма Теория аномии Р. Мертона Аномия в современно...
13903. Республика Шкид. Глупость под лупой 30.5 KB
  Эссе Республика Шкид. Глупость под лупой Один день содержит 24 часа или 1440 минут. Сколько необходимо человеку для того чтобы совершить глупость И главное почему человек ее делает как так получается А что происходит после ее совершения Под ненаучным термином г
13904. Психологический роман русского классика Ф.М. Достоевского Преступление и наказание 40 KB
  За основу своего эссе я взял психологический роман русского классика Ф.М. Достоевского Преступление и наказание а именно анализ поведения и характера главного героя Родиона Раскольникова. В романе описывается история бывшего студента СанктПетербурга ко