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


 

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

16778. ДАЛЬНЕВОСТОЧНАЯ ЗОЛОТОДОБЫВАЮЩАЯ ПРОМЫШЛЕННОСТЬ И ЕЕ ВЛИЯНИЕ НА ОСВОЕНИЕ РЕГИОНА (ВТОРАЯ ПОЛОВИНА ХIХ в. – 1917 г.) 346 KB
  Маркова Нина Анатольевна ДАЛЬНЕВОСТОЧНАЯ ЗОЛОТОДОБЫВАЮЩАЯ ПРОМЫШЛЕННОСТЬ И ЕЕ ВЛИЯНИЕ НА ОСВОЕНИЕ РЕГИОНА ВТОРАЯ ПОЛОВИНА ХIХ в. 1917 г. ОБЩАЯ ХАРАКТЕРИСТИКА РАБОТЫ Актуальность исследования. Золото традиционно является валютным металлом играет роль резер
16779. Добыча драгоценных металлов из промышленных отходов 66.5 KB
  Добыча драгоценных металлов из промышленных отходов Сразу же хочу напомнить читателям об уголовной ответственности существующей на момент написания этих строк за самодеятельную добычу драгоценных металлов из промышленных отходов. Такое положение вещей не может дол
16780. Добыча россыпного золота в XXI веке 179 KB
  Добыча россыпного золота в XXI в. Б.К.Кавчик ОАО Иргиредмет Добыча россыпного золота ведется в России уже почти 200 лет и в настоящее время ее объем ежегодно составляет около 50 т. Однако запасы россыпного золота близки ...
16781. Золотая добыча 89.5 KB
  Золотая добыча Мировые цены на золото сейчас как никогда высоки: в марте 2008 года котировки этого драгметалла превысили 1 тыс. за тройскую унцию. Однако отечественная золотодобывающая отрасль вряд ли сможет оперативно отреагировать на резкий рост ценовой конъюнктуры. ...
16782. Золотая лихорадка или роль золота в истории 145 KB
  Золотая лихорадка или роль золота в истории. Золото расковывается до толщины 01 микрометра. 28 грамм хватит на лист площадью около 17 кв. метров Цивилизация человечества невозможна без таких металлов как медь железо затем алюминий и пр. Но золото представляется...
16783. Золото и его добыча 56 KB
  Золото ЗОЛОТО лат. Aurum драгоценный металл химический элемент I группы периодической системы атомный номер 79 атомная масса 1969665. Этот благородный металл желтого цвета ковкий его плотность составляет 1932 г/см3 tпл 10644оC. Химически весьма инертен на воздухе не изменяет...
16784. ЗОЛОТО ГДЕ ОНО В РЕКЕ 141 KB
  ЗОЛОТО ГДЕ ОНО В РЕКЕ ЗОЛОТО ТАМ ГДЕ ТЫ ЕГО НАХОДИШЬ Россыпное золото россыпи находят в осадочных отложениях в руслах древних рек и в отложениях современных потоков. Россыпи бывают аллювиальными террасовыми русловыми донные косовые. Террасовые отложения
16785. Золото есть 87 KB
  Золото есть Если бы Джек Лондон оценил сегодня состояние золотодобывающей отрасли в Сибири то наверняка написал бы: Золота там нет. Лет 100 назад во времена освоения богатейших россыпей в Северной Америке когда старателю требовались только лоток и лопата за
16786. Золото и серебро Латинской Америки 29.5 KB
  Золото и серебро Латинской Америки. В Латинской Америке ежегодно производится примерно 300 т золота 15 мирового производства и свыше 4200 т серебра 23 мирового производства. Крупнейшим производителем золота является Перу 130 т больше всего производят серебра Мексика 2744...