Лабораторная работа 1 Основы программирования в среде Турбо Паскаля. Оператор присваивания, процедуры ввода - вывода

Оператор присваивания имеет вид <идентификатор>:= <выражение>;

В арифметических выражениях могут использоваться следующие математические функции и соотношения:

SIN(X) - sin X; COS(X) - cos X;

EXP(X) - е^х; LN(X) - Ln X;

SQR(X) - х²; SQRT(X) - ;

ABS(X) - абсолютная величина X (|Х|); ARCTAN(X) - arctan X;

а^х программируется как EXP(x*LN(a)); lgX - как LN(X)/LN(10).

TRUNC(X) - выделение целой части числа; Pi=3.1415926535897932385;

ROUND(X) - округление Х до ближайшего целого.

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

№ п/п	Арифметические	Логические	Отношения	Другие
1 2 3 4	*, /, 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. Схема алгоритма (СА) реализации этой задачи (рис.1) выполнена по ГОСТ 19.701-90 (прил.1).

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

Program TREUG;

var

A, S: real;

begin

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

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

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

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

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

end.

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

сообщение:

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

Предварительно рассчитанный на калькуляторе

результат для А = 5 при подготовке к лабораторной работе

составил S = 10.8253, что подтверждает верность программы.

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

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

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

1. Идет k секунда суток. Определить, сколько целых часов (h) и целых минут (m) и секунд (s) прошло к этому моменту.

2. Определить площадь трапеции с основаниями а, b, высотой h и объем усеченного конуса, если считать а, b - площадями оснований.

3. Определить координаты центра тяжести трех материальных точек с массами m₁,m₂,m₃ и координатами (x₁,y₁), (x₂,y₂), (x₃,y₃).

4. Вычислить по заданному радиусу R объем шара и площадь круга, найти соотношение между ними.

5. Вычислить медианы треугольника по заданным сторонам a, b, c.

6. Вычислить площадь поверхности и объем конуса по заданным радиусам и высоте h.

7. По заданному радиусу R найти объем шара и площадь его поверхности.

8. Вычислить, какая идет секунда суток при положении стрелок в h часов, m минут и s секунд, а также угол (в градусах) между положением часовой стрелки в начале суток и ее положением в указанный момент.

9. Ввести двузначное целое число х<15. Написать программу перевода его в восьмеричную систему счисления.

10. Ввести координаты двух точек (х1, y₁), (x₂,y₂). Найти расстояние между ними.