ТАБУЛИРОВАНИЕ ФУНКЦИИ С ПОМОЩЬЮ ОПЕРАТОРА ЦИКЛА С ПАРАМЕТРОМ»

Министерство науки и высшего образования Российской Федерации

Федеральное государственное бюджетное образовательное учреждение высшего образования «Рязанский государственный радиотехнический университет имени В. Ф. Уткина»

Кафедра «ВПМ»

Отчет о лабораторной работе №4

Вариант 4

«ВЫЧИСЛЕНИЕ КОНЕЧНЫХ СУММ И ПРОИЗВЕДЕНИЙ,

ТАБУЛИРОВАНИЕ ФУНКЦИИ С ПОМОЩЬЮ ОПЕРАТОРА ЦИКЛА С ПАРАМЕТРОМ»

По дисциплине «Алгоритмические языки и программирование»

Выполнила:

ст. гр. 046

Бурцева С.

Проверили:

с. п. Москвитина О. А.

доцент, к. т. н. Макаров Н. П.

Рязань 2020

Цель: Тема №9 и тема №11научиться программировать алгоритмы для вычисления конечных сумм и произведений и табулировать функции с помощью оператора цикла с параметром.

Задание 1: Вычислить сумму

Блок схема:

{Лабораторная работа №4}

{Цель работы - Вычисление сложной функции}

{Тема работы: ВЫЧИСЛЕНИЕ КОНЕЧНЫХ СУММ И ПРОИЗВЕДЕНИЙ. }

{Переменные -, S1 - сумма1, S2 - сумма2, S - общая сумма, }

{n - переменная суммирования }

{ Программист: Бурцева Светлана Николаевна гр. 046}

{Проверили: с. п. Москвитина О. А. доц. к. т. н. Макаров Николай Петрович}

{Дата выполнения: 31. 10. 2020г. }

Program Lab4;

Var n: byte;

s1, s2, s: real;

Begin

s1: =0;

s2: =0;

forn: =1 to10 do

begin

s1: =s1+sqr(n);

end;

forn: =1 to12 do

begin

s2: = s2+sqr(n)*n;

end;

s: = s1+s2;

writeln('S=', s)

End.

Выходные данные: S=6469

Задание 2:: Протабулировать функцию:

Область допустимых значений: x определен на всей области определения

Переменные: x - переменная цикла; x0, xn - начальное и значения; x - шаг изменения; i - параметр цикла; nx - число повторений тела цикла.

Блок схема:

Программа:

Program lab_4;

{Цель - табулирование функции}

{y=F(x) с помощью оператора цикла с параметром}

{Переменные: {x - переменная цикла; }

{x0, xn - начальное и конечное значения;

{hx - шаг изменения, i - параметр цикла; }

{nx - число повторений тела цикла. }

{Программист: ст. гр. 046 Бурцева С. Н. }

{Проверили: с. п. Москвитина О. А. доц. к. т. н. Макаров Николай Петрович}

{Дата написания – 22. 10. 20 г. }

Program Lab4;

Var

hx, x, x0, xn, y: real;

i, nx: integer;

Begin {Tab}

{Ввод и эхо-печать исходных данных }

Write('x0=');

Read(x0);

Write('hx=');

Read(hx);

Write('xn=');

Read(xn);

Writeln('X0=', x0, ' HX=', hx, ' XN=', xn);

{Табулирование функции }

x: =x0;

nx: =Trunc((xn-x0)/hx+1e-6)+1;

for i: =1 to nx do

begin {началоцикла}

if x< -5

then

y: =4

else if x< -2

then

y: =sqr(x)-3*x

else

y: =x+3;

Writeln('X=', x, ' Y=', y);

x: =x+hx

end {конеццикла}

End. {Tab}

Результаты:

x0=-7

hx=1

xn=3

X0=-7 HX=1 XN=3

X=-7 Y=4

X=-6 Y=4

X=-5 Y=40

X=-4 Y=28

X=-3 Y=18

X=-2 Y=1

X=-1 Y=2

X=0 Y=3

X=1 Y=4

X=2 Y=5

X=3 Y=6

Вывод: Я научилась вычислять конечные суммы и произведения и табулировать функции с помощью оператора цикла с параметром.