x := a END;
swapmaxxy := y + a END;
BEGIN READ(a, b);
r := swapmaxxy(b, a); WRITELN(a, b, r) END.
18.program prim4(input, output); VAR a, b, c: INTEGER; procedure op(VAR x, y, z:
INTEGER); VAR a: INTEGER; BEGIN
a := x;
x := x - 2 * y;
z := x + y DIV 2; y := a + y
END; BEGIN
READ(a, b, c); op(a, b, c); WRITELN(a, b, c) END.
19.program prim4(input, output); VAR a, b, c: INTEGER; PROCEDURE op(x, y, z:
INTEGER);
VAR a: INTEGER; BEGIN
a := x;
x := x - y MOD z; z := x DIV y;
y := a + y END; BEGIN
READ(a, b, c); op(a, b, c); WRITELN(a, b, c) END.
20. program prim4(input, output); VAR a, b, c: INTEGER; PROCEDURE op(VAR x, y:
INTEGER; z: INTEGER); VAR a: INTEGER;
BEGIN a := x;
x := x DIV y; z := x - y;
y := a MOD y END; BEGIN
READ(a, b, c); op(a, b, c); WRITELN(a, b, c) END.
Задание 9. Разработка программы с использованием процедур и функций
Составить подробную спецификацию программы с примерами входных и выходных данных. Разработать программу с использованием процедур или функций, используя таблицы разработки. Выполнить трассировку программы. Ввести программу в ЭВМ сравнить результаты трассировки и работы программы.
Содержание отчета:
1.Задание
2.Спецификация
3.Таблица разработки
4.Текст программы
5.Таблица трассировки
1.Даны действительные числа s, t, a0, a1, a2. Получить p(t) + p2(s – t) –
p3(1), где р(х) = a2x2 + a1x + a0.
2. Написать функцию arccosx и для заданных вещественных чисел x
и y подсчитать arccos |
|
|
x |
|
|
+arccos |
y |
|
. |
||
1 |
+ |
|
x |
|
|
y2 −1 |
|||||
|
|
||||||||||
|
|
|
|
|
|
||||||
3. Написать функцию xn, где x – вещественное число, n - показатель степени - целое число. Функция должна обеспечивать вычисления с минимально возможным количеством операций. Используя данную функцию, вычислить значение полинома a4x4 + a3x3 + a2x2
+ a1x + a0 при заданных значениях вещественных коэффициентов a4 … a0 и вещественном x.
4. Для заданного вещественного числа х вычислить величину
ch(x)tg(x+1) – (2+ch(x+1))2, где chx = |
|
ex |
+e−x |
. |
||||
|
|
2 |
|
|||||
|
|
|
|
|
|
|
|
|
5. Вычислить z = (sign x + sign y) sign(x + y), где |
|
|||||||
−1 |
при |
a < 0 |
|
|
|
|
|
|
|
0 |
при |
a = 0 |
|
|
|
|
|
sign(a) = |
|
|
|
|
|
|||
|
1 |
при |
a > 0 |
|
|
|
|
|
|
|
|
|
|
|
|||
6. Для заданного |
вещественного числа |
х вычислить величину |
||||||
sh(x)tg(x+1)- tg2(2+sh(x–1)), где shx = |
ex |
−e−x |
|
|||||
|
|
|
. |
|||||
|
|
2 |
||||||
7.Даны отрезки а, b, с, d. Для каждой тройки, из которых можно построить треугольник, напечатать площадь данного треугольника
8.Даны действительные числа x, y, z. Получить f(x+y, x-z) + 2f(x, y),
где f (a,b) = 
a2 +b2 .
9. Даны действительные числа s, t. Получить f(t, –2s, 1.17) + f(2, 2t, s
– t), где f (a,b,c) = 2a −b −sin c . 5 + c
10.Даны действительные числа s, t. Получить g(l.2, s) + g(t, s) – g(2s
=a2 +b2
–1, st), где g(a,b) a2 +2ab +3b2 +4 .
11. Даны действительные числа а, b.
Получить min( p, s) +min( p2 ,1+t) 1+min( p +s,t)
12. Даны действительные числа a, b. Получить min(a,b) +1 . min(a,−b)
13. Даны действительные числа p, s, t.
Получить min( p, s) +min( p2 ,1+t) 1+min( p +s,t)
14. Для заданного вещественного числа х вычислить величину
= ex −e−x th(x)sin(x+1)- th2(1+sin2(x-1)), где thx ex +e−x .
15. Для заданных вещественных чисел x и y вычислить f(x2) + f2(x) +
f(xy), где f (x) =1− x2 .
1+ x2
16. Для заданных вещественных чисел x и y вычислить f(2x + y) + f(y
+ 2x) – f(x2 + y2), где f (x) = |
1− x2 |
1+ x2 . |
17. Для заданных вещественных чисел x, y и z вычислить f ( x +2 y ) + f ( x +2 z ) + f ( y 2+ z ) , где f(x) = 1 + x2.
18.Вычислить сумму тангенсов углов в интервале от 0 до 80о с интервалом 10о.
19.Определить количество углов правильного многоугольника, вписанного в окружность, периметр которого отличается от дли-ны окружности менее чем на x%, где x – заданное число.
20. Для заданных вещественных чисел x и y определить
min(x, y) +1 . min(x − y, y 2 )