Программирование разветвленных алгоритмов

End.

Begin

Приоритет операций в выражении

№ п/п	Арифметические	Логические	Отношения	Другие
	*, /, div, mod +,-	NOT аnd,shl,shr, оr, xor	<=,>=,<>,<,>,=	@ адресное преобразование   in

Для реализации лабораторных работ необходима среда Borland Pascal версии 7.0. Ее запуск производится через файл bp.exe (BP7\BIN\bp.exe).

Пример 1. Вычислить площадь прямоугольника по размерам его сторон А и В. Обозначим площадь переменной S, тогда необходимо найти S=A*B.

Программа набирается в окне редактора и компилируется [F9]:

Program RECT; {заголовок программы с именем RECT}

const {блок описания констант}

A=2; B=3; {определение констант А и В}

var {блок описания переменных}

S:integer; {определение переменной S целым типом}

begin {начало основного блока программы}

S:=A*B; {оператор присваивания}

write('Площадь прямоугольника = ',S); {процедура вывода}

end. {конец основного блока}

В результате выполнения программы (Ctrl+F9) на экран выводится сообщение:

Площадь прямоугольника = 6.

Пример 2. Найти площадь равностороннего треугольника. Если сто­роны треугольника имеют размер А, то его площадь S = A² sin(π/3)/2.

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

Program TREUG;

var

A, S: real;

writeln('Введите A'); {процедура вывода текста}

read(A); {процедура ввода}

S: = SQR (A)*sin(PI/3)/2;

writeln ('Результат: S=', S: 6: 2,' для A=', A);

readln {Задержка до нажатия клавиши <ENTER>}

После выполнения программы на экран выводится сообщение:

Результат: S = 10.83 для А = 5.

Предварительно рассчитанный на калькуляторе результат для А = 5 при подготовке к лабораторной работе составил S = 10.8253, что подтверждает верность программы.

Задание 1 ( программа 1_1)

№	x1	x2	a	b	c	Вычислить
1	2	3	4	5	6	7
			1.5		-0.7
			0.7	-	2.1
		1.5		1.2
			4.1	-2.3	-
	-1		0.5		1.5
			0.5	1.3	-
			0.5		-
	-1		2.7	1.7	-
		π/2		0.7	0.5
			0.5	2.9	1.5

			1.5	-1.2	-
			0.5	1.7

Лабораторная работа 2

Дата добавления: 2014-12-27