Результатами расчёта тестового примера

ОТЧЕТ

О лабораторной работе № 1

Вариант 8

 «Алгоритмы линейной структуры»

 

по дисциплине «Информатика»

 

 

	Е.А.Селезенева

Выполнил ст.                  _______________________                             _____________________

гр. БГРи-19-01                 подпись, дата,                                                                              инициалы, фамилия                                                                                                                                                                                            

 

Уфа 2020

Лабораторная работа №1

«Программирование линейного вычислительного процесса»

Постановка задачи

Разработать программу вычисления значений заданных функций для произвольных значений исходных данных. Выполнить контрольный расчет и расчет для заданных значений исходных данных.

 

 

       

    2. Анализ задачи

Подготовим тестовый пример для последующей проверки правильности программы (для контрольного расчёта).

Для упрощения ручного расчёта возьмем   d =1, c = 1,

a= ln(c+sin²(d))=ln(1+sin²(1)) 0,0003

Тогда x=  , x=

Используя полученные значения вычислим

= 1,6685

Таблица переменных

Смысл переменных	Обозначение		Тип переменной	Примечания
	в алгоритме	в программе
Исходные данные: константа	c d a	c d a	Вещественный Вещественный	c,d,aÎR, a 0 -1 d 1, d 0, c 0
Промежуточные данные: параметр аргумент		x	Вещественный	x>0 x Î R
Результаты: Функция		f	Вещественный	0 ≤ f

 

 

 

Схема алгоритма решения задачи

 

x= ;

 

 

 

;

 

 

Интерфейс программы

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

Предусмотрим возможность вывода результатов расчёта на экран монитора с последующим копированием в отчет.

 

6. Текст программы на Паскале

Program Work_1;

Const Title ='Работа №1, Вар.8, гр.БГРи-19-01 Селезенева';

var c,d,a,x,f: real;

Begin

Write('Введите c = ');

Readln(c);

Writeln;

Write('Введите d = ');

Readln(d);

Writeln;

Write('Введите a = ');

Readln(a);

Writeln;

Writeln(Title);

Writeln('Исходные данные:');

Writeln('c = ',c:5:2);

Writeln('d = ',d:5:2);

Writeln('a = ',a:5:2);

x:= ((a+d)/(c*d))*sin(c*d);

f:= sqrt((exp(x+1))+x);

Writeln('Результаты расчёта:');

Write('x =',x:8:4,' f =',f:8:4)

End.

Результаты расчёта

Результатами расчёта тестового примера

 

Работа №1, Вар.8, гр. БГРи-19-01 Селезенева

Исходные данные:

d =1   c = 1  a=0,0003

Результаты расчёта:

x = 0,0175  = 1,6685

 

Результаты контрольного расчёта по программе совпали с результатами ручного тестового расчёта с точностью погрешности округления. Следовательно, все расчётные формулы запрограммированы правильно.

Результаты требуемого расчёта

 

Работа №1, Вар.8, гр.БГРи-19-01 Селезенева

Исходные данные:

c = 1.35 d = 0.87 a = 0.30

Результаты расчёта:

x = 0.9190  = 2.7808