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

Федеральное государственное бюджетное образовательное учреждение

высшего профессионального образования

«Уфимский государственный нефтяной технический университет»

Кафедра «Вычислительная техника и инженерная кибернетика»

 

 

 

 

 

 

 

 

 

 

 

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

по информатике

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

 

 

Вариант № 1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

                                      Выполнил: ст. гр. БТБ-11-02 Иванова

                                      Проверил: преподаватель каф. ВТИК Тулупова О.П.

 

 

 

 

 

 

 

                                                      Уфа 2012

 

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

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

 

 

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

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

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

Тогда   

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

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

Смысл переменных	Обозначение		Тип переменной	Примечания
	в алгоритме	в программе
Исходные данные: константа	n	n	вещественный	nÎ R        ÎR
Промежуточные данные: параметр аргумент	a	a	вещественный вещественный	a Î R
Результат: Функция	y	y	вещественный	yÎ R

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

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

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

 

 

 

 

 

 

 

 

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

 

Program Kr_1;

Const Title='ЛР№1,Вар.1,гр.БТБ-11-02,Абдрахманова  Д.З.';

Var n,a,fi,y:real;

Begin

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

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

  a:=Sin(fi*n)/Cos(fi*n);

  y:=0.3*exp(-4*ln(10))-sin(a+pi*n/(2*fi))*Sqr(cos(a-0.1));

  Writeln(Title);

  Writeln('Исходные данные: n=',n:6:3);

  writeln('Результат расчета: ','a= ',a:6:3,'  fi= ',fi:6:3, '  y= ',y:6:3);

End.

 

 

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

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

 

Введите n=3

Введите fi=1

ЛР№1,Вар.1,гр.БТБ-11-02,Абдрахманова Д.З.

Исходные данные: n= 3.000

Результат расчета: a= -0.143  fi=  1.000  y=  0.933

 

 

 

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

 

 

 

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

 

ЛР№1,Вар.1,гр.БТБ-11-02,Абдрахманова Д.З.

Исходные данные: n= 6.000

Результат расчета: a=  0.000  fi=  3.600  y= -0.495