Схема алгоритма решения задачи по ГОСТ 19.701_90

⇐ ПредыдущаяСтр 2 из 2

4 Схема алгоритма решения задачи по ГОСТ 19.701_90

Рисунок 1 – Графическая схема алгоритма

5 Результаты расчетов

Вследствие выполнения программы на экран выводятся следующие результаты расчетов:

Рисунок 2– Результаты расчетов

Приложение А

(обязательное)

Исходный код программы

Program вариант_30;

{$APPTYPE CONSOLE}

Uses

{объявление библиотек}

SysUtils,

windows;

Var

{объявление переменных}

n:integer;

x,y,sum,f:real;

Begin

{Настройка параметров консоли}

SetConsoleCP(1251);

SetConsoleOutputCP(1251);

{входные данные}

x:=0.6;

{начало цикла по x}

while x<= 1.11 do

begin

{вычисляем сумму элементов последовательности

с номерами c 1 по 9}

sum:=0;

for n := 1 to 9 do

begin

{вычисление элемента последовательности

и прибавление его к сумме}

y:=sqrt(exp((1+1/n)*ln(x))+exp(1-2/(3*n)))/(1+ln(x));

sum:=sum+y;

end;

{вычисляем значения функции для элементов

последовательности с номерами c 10 по 15}

for n := 10 to 15 do

begin

{вычисление элемента последовательности

и прибавление его к сумме}

y:=sqrt(exp((1+1/n)*ln(x))+exp(1-2/(3*n)))/(1+ln(x));

sum:=sum+y;

{вычисляем значение функции для соответсвуещего

элемента последовательности}

f:=sum*cos((Pi*x)/n);

{Вывод текущих аргументов и значения функции}

writeln('x=',x:3:2,' n=',n,' f=',f:5:3);

end;

{изменение параметра цикла}

x:=x+0.25;

end;

readln;

End.

Приложение Б

(обязательное)

Тестовые наборы

Тест 1

Тестовая ситуация: Расчеты при x = 0.6

Ожидаемый результат:

Рисунок 3– Рассчёты данных в Mathcad при х=0.6

Полученный результат: Рисунок 2– Результаты расчетов

Тест 2

Тестовая ситуация: Расчеты при x = 0.85

Ожидаемый результат:

Рисунок 4– Рассчёты данных в Mathcad при х=0.85

Полученный результат: Рисунок 2– Результаты расчетов

Тест 3

Тестовая ситуация: Расчеты при x = 1.1

Ожидаемый результат:

Рисунок 5– Рассчёты данных в Mathcad при х=1.1

Полученный результат: Рисунок 2– Результаты расчетов

⇐ Предыдущая 12