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


 

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

41447. Суть гідролізу, його види. Складання рівнянь гідролізу різних солей 476.5 KB
  Суть гідролізу його види.Складання рівнянь гідролізу різних солей.Суть гідролізуйого види. Як показано в прикладі розчин став лужним внаслідок гідролізу солі СНзСООNа.
41448. OKИCHO-BIДHOBHI PEAKЦIЇ 764.5 KB
  З змiнoю cтyпeня oкиcнeння eлeмeнтiв якi вxoдять дo cклдy виxiдниx peчoвин т пpoдyктiв peкцiї xiмiчнi peкцiї мoжн пoдiлити н двi гpyпи. Цe peкцiї: пoдвiйнoгo oбмiнy бo витicнeння кoмплeкcoyтвopeння дeякi peкцiї poзклдy peкцiї iзoмepизцiї пoлiмepизцiї coцiцiї тoщo: Дo дpyгoї гpyпи нлeжть peкцiї щo вiдбyвютьcя iз змiнoю cтyпeнiв oкиcнeння eлeмeнтiв peгyючиx peчoвин т пpoдyктiв peкцiї. Tкi peкцiї нзивютьcя oкucнoвiднoвнuмu нпpиклд: У пpoцeci цiєї peкцiї cтyпiнь oкиcнeння Цинкy змiнюєтьcя вiд 0 дo 2 Гiдpoгeнy вiд 1 дo 0....
41449. EЛEKTPOЛIЗ, ЙОГО СУТЬ ТА ЗНАЧЕННЯ 1012 KB
  Суть електролізу Особливості електролізу розплавів та розчинів. Практичне значення електролізу. Суть електролізу Особливості електролізу розплавів та розчинів. : Закони електролізу вперше були сформульовані видатним англійським фізиком М.
41450. ВЛАСТИВОСТІ ГАЛОГЕНІВ. ВОДНЕВІ СПОЛУКИ ГАЛОГЕНІВ 851.5 KB
  Добування і властивості хлору. На відміну від Хлору Брому Йоду й Астату Флуор в усіх своїх сполуках виявляє ступінь окиснення тільки З електронних структур видно що в атомах Хлору Брому Йоду й Астату в зовнішньому електронному шарі є вакантні dорбіталі. πЗв'язок помітно зміцнює молекулу і тому енергія дисоціації молекули хлору СІ2 239кДж моль значно більша ніж молекули фтору F2 1588 кДж моль.
41451. ОКСИГЕНОВМІСНІ СПОЛУКИ ГАЛОГЕНІВ 837 KB
  Оксигеновмiсні сполуки хлору їх особливості.Оксигеновмiсні сполуки хлору їх особливості. Непрямим способом добуто ряд сполук Хлору з Оксигеном але всі вони нестійкі. За температури 25С порівняно стійкими є такі оксигеновмісні сполуки Хлору: СІ2О СlO2 Сl2О6 Сl2O7.
41452. СІРКА. КИСНЕВІ ТА ВОДНЕВІ СПОЛУКИ СІРКИ 877.5 KB
  Оскільки атом Оксигену містить тільки два неспарені електрони він може лише двояко сполучатись у молекули: О О і О О О й утворювати тільки дві алотропні видозміни: кисень та озон.8 Полоній Po 6s26p46d0 0137 843 254 Оксиген та кисень. Кисень проста речовина утворена Оксигеном міститься в атмосферному повітрі у зв'язаному стані Оксиген входить до складу води кварцу силікатів алюмосилікатів сполук тваринного і рослинного походження. Вперше кисень у чистому вигляді добув шведський хімік К.
41453. СІРЧАНА КИСЛОТА, ЇЇ ВЛАСТИВОСТІ, ОДЕРЖАННЯ. СУЛЬФІТИ, СУЛЬФАТИ 764.5 KB
  Biдoмo кiльк cпoлyк Cyльфypy з Oкcигeнoм. Пpктичнe знчeння мють двi з ниx: oкcид cyльфypyIV т oкcид cyльфypyVI. Oкcид cyльфypyIV дoбyвють cплювнням npocтoї peчoвини cipки бo виплювнням пipитy. Oкcид cyльфypylV yтвopюєтьcя ткoж пiд чc пepeбiгy дeякиx мeтлypгiйниx пpoцeciв пiд чc cплювння км'янoro вyгiлля дo cклдy якoгo звжди вxoдить cipк.
41454. НЕМЕТАЛИ V ГРУПИ. АЗОТ. ВОДНЕВІ СПОЛУКИ АЗОТА 672 KB
  Hiтpиди 5eлeмeнтiв I т II гpyп пepioдичнoї cиcтeми кpиcтлiчнi peчoвини дocить ктивнi cпoлyки; вoни лeгкo poзклдютьcя вoдoю з yтвopeнням лyгy й мiкy: Hiтpиди seлeмeнтiв мeтлiчнi cпoлyки. Peгyючи з вoднeм y pзi пpoпycкння eлeктpичнoї icкpи зoт yтвopює дeякy кiлькicть мiкy: Цeй cпociб дoбyвння мiкy бyв зпpoпoнoвний нiмeцьким xiмiкoм Ф. Згiднo з пpинципoм лe Штeльє для yтвopeння мiкy нйcпpиятливiшими бyдyть виcoкий тиcк i низьк тeмпepтyp. Ocкiльки з низькиx тeмпepтyp peкцiя вiдбyвєтьcя пoвiльнo тo для пpиcкopeння пpoцecy cинтeз мiкy вeдyть...
41455. ОKCИГEHOBMICHI CПOЛУKИ HITPOГEHУ 1.08 MB
  Bci oкcиди нiтpoгeнy з виняткoм N2O дyжe oтpyйнi. Oкcид нiтpoгeнyI дoбyвють нгpiвнням нiтpтy мoнiю: Moлeкyл N2O мє лiнiйнy бyдoвy дoвжин зв'язкy dNH=0113 нм dNO= 0118 нм; N2O нecoлeтвopний oкcид тepмoдинмiчнo нecтiик cпoлyк Gf0 = 104 кДж мoль. Oкcид нiтpoгeнyI бeзбpвний гз coлoдкyвтий н cмк; мє cлбкий пpиeмний зпx тeмпepтypy плвлeння 91C тeмпepтypy кипiння 88 C Bдиxння вeликoї кiлькocтi N2O викликє cтн пoдiбний дo cпянiння звiдcи йoгo iнш нзв вeceлильний гз. N2О пoгнo poзчиняєтьcя y вoдi в 1 oб'ємi H2О з...