КОНСТРУИРОВАНИЕ ПРОГРАММ СО СТРУКТУРОЙ ВЛОЖЕННЫХ ЦИКЛОВ»

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

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

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

Отчет о лабораторной работе № 6 (тема 15)

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

«КОНСТРУИРОВАНИЕ ПРОГРАММ СО СТРУКТУРОЙ ВЛОЖЕННЫХ ЦИКЛОВ»

Выполнила:

ст. гр. 046

Бригада №4

Бурцева С.

Проверили:

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

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

Рязань 2020

Цель: научиться конструировать программы со структурой вложенных циклов.

Задание (Вариант 4)

x=0,1(0,1)0,9.

Входные переменные: x0,xn,hx

Выходные переменные: x, s

Блок-схема:

Программа:

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

{Цель работы - Изучение среды АВС Паскаля}

{Тема работы: конструирование программ со структурой вложенных циклов.

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

{hx - шаг изменения}

{S - результирующая сумма}

{i - параметр циклов}

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

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

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

Programlab6_1;

Var

x, x0, hx, xn, S: Real;

i: Integer;

Begin

Writeln('Введите x0(hx)xn');

Write(' x0 = ');

Readln(x0);

Write(' hx = ');

Readln(hx);

Write(' xn = ');

Readln(xn);

x := x0;

Repeat

S := 0;

Ifx <= 0.5 then

Fori := 1 to8 do

S := S + (i*x)/(i*i*x + 1)

Else Begin

Fori := 1 to6 do

S := S + x/(i + 1);

S := ((x + 1)/4)*S

End;

Writeln('S(', x, ') = ', S);

x := x + hx

Untilx > xn + hx/2

End.

Окно вывода:

Вывод:Я научилась конструировать программы со структурой вложенных циклов