6. Текст программы.

program func2;

uses crt;

var x,y: real; a,b,y1: integer; z:boolean;

begin

{вводим значение х с клавиатуры 0<x<1}

writeln('ввести значение х: (0<x<1)');

readln(x);

writeln('значение x = ',x);

y:=cos(x+1)*(sin(x)/cos(x))/(ln(x)+2.5);

writeln('y = ',y);

y1:=round(y);

writeln('y1 = ',y1);

{вводим значение отрезка [a,b]}

writeln('вводим значение отрезка [a,b]:');

write('a = ','>');

readln(a);

write('b = ','>');

readln(b);

writeln('определяем принадлежность y отрезку [a,b]');

z:=(a<=y1) and (y1<=b);

writeln(z);

writeln('значение ',y,'принадлежит отрезку [ ',a,',',b,'] ?',z);

end.

7. Индивидуальные задания

1. Вычислить значение функции: f(x)=3,5x+cosx/sin2x+e ^x , где: х=0,1. Округлить значение f(x) к ближайшему целому.

2. Вычислить значение функции f(x)=cos(x+1)*tgx/(ln(x+2,5), где х - любое число из интервала [0..1], вводимое с клавиатуры в диалоговом режиме. Определить принадлежность f(x) отрезку [3..9].

3. Ввести 3 целых двузначных числа. Определить число, предшествующее каждому из вводимых чисел. Вывести сообщение о нечетности полученных чисел.

4. Ввести 3 вещественных числа: а, в, с. Найти частное и остаток от деления а+в / c.

5. Ввести два вещественных числа: с и d. Найти число х, соответствующее целому от деления с и d. Определить символ, порядковый номер которого равен аргументу х.

6. Ввести два вещественных числа а и в. Найти остаток от деления а и в. Определить принадлежность остатка интервалу [0..1].

7. Вычислить значение функции: f(x)=|x³|+x/3,8 arctg x и округлить его до ближайшего целого. Определить остаток от деления f(x) на 10. Число х - любое число из интервала [0..1], вводимое с клавиатуры.

8. Вывести на экран порядковые номера букв, предшествующие буквам d, z, y.

9. Вывести на экран сообщение о нечетности порядковых номеров букв, следующих за буквами f, l, k.

10. Вывести на экран сообщение о четности порядковых номеров цифр, предшествующих цифрам 2, 7, 9.

11. Числу х присвоить значение порядкового номера числа, предшествующего цифре 7. Вычислить f(x)=2,5x/(x+1).

12. Найти произведение порядковых номеров букв следующих за буквами a, c, g.

13. Вычислить значение f(x)=sec(x)+arccos(x), где х - любое число из диапазона [0..1]. Вывести на экран дробную часть значения f(x).

14. Ввести любое целое двухзначное число. Определить символ, порядковый номер которого соответствует введенному числу. Вывести на экран полученный символ и символ, следующий за ним.

15. Ввести любое вещественное число. Округлить его к ближайшему целому. Вывести сообщение о принадлежности полученного числа отрезку [0..50].

16. Ввести любую латинскую букву. Определить ее порядковый номер х. Вычислить f(x)=ctg(x/100).

17. Ввести двузначное число. Вывести число, полученное при перестановке цифр исходного числа.

18. Ввести трехзначное число. Используя одну операцию деления нацело, вывести первую цифру данного числа (сотни).

19. Дано трехзначное число. В нем зачеркнули первую слева цифру и приписали ее справа. Вывести полученное число.

20. Дано трехзначное число. Вывести число, полученное при перестановке цифр десятков и единиц исходного числа (например, 123 перейдет в 132).

21. Дана сторона квадрата a. Найдите его периметр P=4*a.

22. Даны стороны прямоугольник a и b. Найти его площадь S = a*b и периметр P = 2*(a + b).

23. Даны длины ребер a,b,c прямоугольного параллелепипеда. Найти его объем V=a*b*c и площадь поверхности S=2*(a*b+b*c+a*c).

24. Даны два числа a и b. Найти их среднее арифметическое (a+b)/2.

25. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей.

26. Даны два неотрицательных числа a и b. Найти их среднее геометрическое .

27. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их квадратов.

28. Дана сторона квадрата a. Найдите его площадь S=a².

29. Найти значение функции f(x)=3x⁶-6x²-7 при данном значении x.

30. Найти значение функции f(x)=4(x-3)⁶ -7(x-3)³+2 при данном значении x.

Приложение 1

Таблица 1.1

Основные арифметические функции

N п \ п	Математическое обозначение	Стандартная функция	Запись в программе	Тип входной переменной	Тип выходной переменной
1	2	3	4	5	6
1	| X |	ABS(X)	ABS(X)	real, integer	real, integer
2	X2	SQR(X)	SQR(X)	real, integer	real, integer
3		SQRT(X)	SQRT(X)	real, integer	real, integer
4	SIN X	SIN(X)	SIN(X)	real, integer	real
5	COS X	COS(X)	COS(X)	real, integer	real
6	ARCTG X	ARCTAN(X)	ARCTAN(X	real, integer	real
7	LN X	LN(X)	LN(X)	real, integer	real
8	EХ	EXP(X)	EXP(X)	real, integer	real
9	TG X	-	sin(x)/cos(x)	real, integer	real
10	CTG X	-	sin(pi/2x)/ cos(pi/2-x)	real, integer	real
11	ARCSIN X	-	arctan(x/sqrt (1-sqr(x)))	real, integer	real
12	ARCCOS X	-	(pi/2-arctan (x/sqrt(1- sqr(x)))	real, integer	real
13	SEC X	-	1/cos(x)	real, integer	real
14	COSEC X	-	1/sin(x)	real, integer	real
15	XY	-	exp(y*ln(x))	real, integer	real
16	LG X	-	ln(x)/ln(10)	real, integer	real
17	LOG2X	-	ln(x)/ln(2)	real, integer	real

Таблица 1.2.

Основные дополнительные функции преобразования

N п/п	Обозначение в программе	Назначение	Тип входной переменной	Тип выходной переменной
1	2	3	4	5
1	TRUNC(X)	Вычисляет целую часть аргумента Х	REAL	INTEGER
2	ROUND(X)	Определяет округлен-ное значение Х	REAL	INTEGER
3	ORD(X)	Определяет порядковый номер аргумента Х	Любой скаляр-ный, кроме REAL	INTEGER
4	CHR(X)	Определяет символ, порядковый номер которого равен аргументу Х	Любой скаляр-ный, кроме REAL	CHAR
5	SUCC(X)	Выдает значение, если оно существует, следующее за аргумен- том Х	Любой скаляр-ный, кроме REAL	Совпадает с типом исходной переменной
6	PRED(X)	Выдает значение, если оно существует, предшествующее аргументу Х	Любой скаляр-ный, кроме REAL	Совпадает с типом исходной переменной
7	ODD(X)	Проверяет нечетность аргумента Х	INTEGER	BOOLEAN
8	FRAC(X)	Вычисляет дробную часть аргумента Х	INTEGER	BOOLEAN
9	INT(X)	Возвращает целую часть аргумента Х	REAL	REAL
10	DEC(X)	Уменьшает значение аргумента Х на 1	Порядковый тип	Порядковый тип
11	INC(X)	Увеличивает значение аргумента Х на 1	Порядковый тип	Порядковый тип