Программа

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

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

Условие задачи

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

Математическая постановка задачи.

Для вычисления значения функции y нужно взять значение константы с, последовательно вычислить значения параметра α, аргумента x, функции y. Исходных данных для расчета достаточно.

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

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

Тогда , x = lg(1,5+1) = lg(2,5) ≈ 0,398

Используя полученные значения a и x вычислим 0.3876 + ≈1,438

Блок-схема

Программа

Program Work_1;

Const Title =’Работа №1, Вар.101, гр.ПО-00 Неагишев В’

Var c,a,x,y: real;

Dev: text;

Name: string;

Begin

Writeln(’Введите:’);

Writeln(’ con для вывода результатов на экран,’);

Writeln(’ prn для вывода на принтер или ');

Write(’ спецификацию файла результатов => ');

Readln(Name);

Assign(Dev,Name);

Rewrite(Dev);

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

Readln(c);

{Эхо-печать исходных данных и реультатов расчёта}

Writeln(Dev);

Writeln(Dev,Title);

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

Writeln(Dev,'с = ',c:6:2);

a:=c+1/(2*c);

x:=ln(a+c)/ln(10);

y:=sin(x)+sqrt(1+sqr(cos(x+a)));

Writeln('а =',а:7:4,' x =',x:8:4,' Y =',y:7:4);

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

Writeln(Dev,'а =',а:7:4,' x =',x:8:4,

' Y =',y:7:4);

Close(Dev);

End.

Таблица результатов

6. Вывод.