Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Министерство образования Российской Федерации
Сибирского Государственного Технологического Университета
Факультет: Автоматизации и информационных технологий
Кафедра: Информационных технологий
Расчетная работа №1
По дисциплине «Алгоритмические языки и программирование»
Руководитель:
Якимов С.П.
(подпись)
Разработал:
Студент гр. 21-6
Прокопьев М.C.
(подпись)
Красноярск-2004.
Отчёт.
Вариант №8.
Задача № 431
Даны действительные числа s, t. Получить h(s, t)+max(h2 (s-t, st), h4(s-t, s+t)+h(1, 1), где
Текст программы:
program z_431;
uses crt;
var
s,t,l:real;
i:integer;
function max(k,n:real):real;
begin
if k>=n then max:=k
else max:=n;
end;
function H (a,b:real):real;
begin
H:=(a/(1+sqr(b)))+(b/(1+sqr(a)))-(sqr(a-b)*(a-b));
end;
Begin
clrscr;
writeln ('Введите 2 числa: ');
readln(s,t);
l:= H(s,t)+max(sqr(H(s-t,s*t)),sqr(H((s-t),(s+t)))*sqr(h((s-t),(s+t))))+H(1,1);
writeln('ответ: ',l:10:5);
readln;
end.
№ |
Идентификатор Переменной |
Переменная предназначена для хранения значений |
1 |
s |
Исходных данных |
2 |
t |
Исходных данных |
3 |
l |
Результатов вычислений |
Контрольный пример:
s=3
t=1
«ответ: 6318,73482 »
Протокол работы программы при s=3, t=1:
1. Печать сообщения: «Введите 2 числa:»
«31»
обработка строки: «31»: s=3, t=1
3. Вычисление:
«l:= H(s,t)+max(sqr(H(s-t,s*t)),sqr(H((s-t),(s+t)))*sqr(h((s-t),(s+t))))+H(1,1)= H(3,1)+max(sqr(H(3-1),(3*1)), sqr(H((3-1),(3+1)))*sqr(H((3-1),(3+1))))+H(1,1)»
4.1 Вычисление:
H:=(a/(1+sqr(b)))+(b/(1+sqr(a)))-(sqr(a-b)*(a-b))= =(3/(1+sqr(1)))+(1/(1+sqr(3)))- (sqr(3-1)*(3-1))=3/2+1/10-(8)= -6.4»
5. Вызов функции (sqr(H(3-1,3*1)), sqr(H((3-1),(3+1)))*sqr(h((3-1),(3+1))))
5.1 Вызов функции sqr(H(3-1),(3*1))
5.2 Вычисление:
H:=(a/(1+sqr(b)))+(b/(1+sqr(a)))-(sqr(a-b)*(a-b))= =(2/(1+sqr(3)))+(3/(1+sqr(2)))-(sqr(2-3)*(2-3))= sqr(2/10+ 3/5+1)=3.24»
5.3 Вызов функции sqr(H((3-1),(3+1)))*sqr(h((3-1),(3+1))))
5.4 Вычисление:
H:=(a/(1+sqr(b)))+(b/(1+sqr(a)))-(sqr(a-b)*(a-b))= =(2/(1+sqr(4)))+(4/(1+sqr(2)))-(sqr(2-4)*(2-4))= (sqr(2/17+ 4/5+8)* sqr(2/17+ 4/5+8))=6324.13»
6. Вызов функции max(sqr(H(3-1,3*1)), sqr(H((3-1),(3+1)))*sqr(h((3-1),(3+1))))
6.1 Вычисление max(3.24,6324.13)
max:=6324.13
7. Вызов функции H(1,1)
7.1 Вычисление:
H:=(a/(1+sqr(b)))+(b/(1+sqr(a)))-(sqr(a-b)*(a-b))= =(1/(1+sqr(1)))+(1/(1+sqr(1)))-(sqr(1-1)*(1-1))=sqr(1/2+ 1/2-0)=1»
8. Вычисление:
«l:= H(s,t)+max(sqr(H(s-t,s*t)),sqr(H((s-t),(s+t)))*sqr(h((s-t),(s+t))))+H(1,1)= H(3,1)+max(sqr(H(3-1),(3*1)), sqr(H((3-1),(3+1)))*sqr(H((3-1),(3+1))))+H(1,1)= -6.4+6324.13+1=6318.73482»
9. Вывод на экран : «Ответ: 6318.73482»
10. Остановка программы
12.Конец