Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
1.Задание №2
1.1. Постановка задачи
Составить алгоритм и программу вычисления функции с использованием нестандартных функций и подпрограмм (процедур):
y = m!*(-) + n!*ln(-)
1.2. Алгоритм решения задачи
Начало
Ввод x
Введите значение x
Ввод а
Введите значение а, где x>а>0
Ввод m
Введите значение m
Ввод n
Введите значение n
y = m!*(-) + n!*ln(-)
Вывод x, m, n, a, y
Конец
Начало Faktorial (m!; n!)
i=1; k
f:=f*i
fact =f
Конец
1.3. Текст программы
program z2;
uses crt;
var a,x,m,n,f:integer;
Y:real;
Function fact(k:integer): integer;
var i:integer;
Begin
f:=1;
for i:=1 to k do f:=f*i;
fact:=f;
End;
Begin
clrscr;
writeln(' Ульяновский государственный технический университет');
writeln(' Кафедра "Технология машиностроения" ');
writeln('');
writeln(' Курсовая работа по технологической информатике');
writeln(' Задание №2 "Вычис-е фун-ий с исполь-ем подпрограмм" вариант №23');
writeln('');
writeln(' Студент Борисов И.Н. группа ТМбд-12');
writeln(' Консультант Кравченко Д.В.');
writeln('');
writeln(' Ульяновск 2013');
write('Введите значение x:');
readln(x);
writeln(' ');
write('Введите значение a:');
readln(a);
writeln(' ');
write('введите значение параметра m:');
readln(m);
writeln(' ');
write('введите значение параметра n:');
readln(n);
writeln(' ');
Y:=fact(m)*(sqr(x)-sqr(a))+fact(n)*(ln(sqr(x)-sqr(a)));
writeln('Значение функции при x=',x,' m=',m,' n=',n,' a=',a,' равно: ',Y:5:3);
writeln('для продолжения нажмите клавишу Enter ');
readkey;
end.
1.4. Результаты машинного счета
1.5. Результат ручного счета
Введем x=5, a=4, m=3, n=2 тогда
y = 3!*(-) + 2!*ln(-)=6*9+2*ln(9)=58.394;
y=58.394;
1.6. Расчет погрешности вычислений
∆
где р.р.- расчет ручной: р.р.=58,394;
р.м.- расчет машинный:р.м.=58,394.
∆=0%.
1.7. Вывод
Так как относительная погрешность равна 0%, следовательно, программа работает правильно .Выполнив эту работу , я получил навыки аппроксимации нестандартных функций при помощи подпрограмм.