2. Листинг программы.

рrogram lab1; uses

crt; var

a, b: integer; y,x: real; begin

{оператор очистки экрана}

сlrscr;

{вывод сообщения на экран} writeln (’ введите x,a, b ’); {ввод данных с клавиатуры } readln ( x,a, b);

y:=(a+2*b)*sqrt(a+2*b)*(1/cos(x)); {вывод результатов вычисления} writeln (’ y=’, y:8:3);

readln;

end.

3. Результаты вычислений.

Приложение 1. Таблица вариантов задания №2

Вычислить и вывести на печать значение функции Y. Исходные данные x, a и b ввести с клавиатуры.

1								1
							y =				+a +ab× b
							sinx
2	1			+		1			+		...		+				1
					( a + 1)										( a		+ n − 1)
		a
3			y = e a ×(a +									1			) × a +b
											sin(x)
4				y = ln b ×(a +									1			) ×		1
												sin(x)						e−b
5						y = (a +b) ×ab+1 ×tgx
6							y = tgx × (a +b)
														b
7				y =		1				×ln(b +a) ×(a +b)
							cos(x)

56