Основы программирования в среде Турбо Паскаля.
Оператор присваивания, процедуры ввода - вывода
Оператор присваивания имеет вид <идентификатор>: = <выражение>;
В арифметических выражениях могут использоваться следующие математические функции и соотношения:
SIN(X) - sin X; COS(X) - cos X;
EXP(X) - ех; LN(X) - Ln X;
SQR(X) - х2; 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) - округление Х до ближайшего целого.
Приоритет операций в выражении
№ п/п | Арифметические | Логические | Отношения | Другие |
*, /, 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 = A2 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.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 | 2 | 3 | 4 | 5 | 6 | 7 |
1.5 | -1.2 | - | ||||
0.5 | 1.7 | |||||
-1 | 0.5 | 1.2 | - | |||
0.5 | 3.1 | - | ||||
0.5 | 3.2 | - | ||||
- | ||||||
-1 | - | |||||
-1 | π/6 | 0,5 |
Задание 2 (программа 1_2)
|
|
1. Идет k секунда суток. Определить, сколько целых часов (h) и целых минут (m) и секунд (s) прошло к этому моменту.
2. Определить площадь трапеции с основаниями а, b, высотой h и объем усеченного конуса, если считать а, b - площадями оснований.
3. Определить координаты центра тяжести трех материальных точек с массами m1,m2,m3 и координатами (x1,y1), (x2,y2), (x3,y3).
4. Вычислить по заданному радиусу R объем шара и площадь круга, найти соотношение между ними.
5. Вычислить медианы треугольника по заданным сторонам a, b, c.
6. Вычислить площадь поверхности и объем конуса по заданным радиусам и высоте h.
7. По заданному радиусу R найти объем шара и площадь его поверхности.
8. Вычислить, какая идет секунда суток при положении стрелок в h часов, m минут и s секунд, а также угол (в градусах) между положением часовой стрелки в начале суток и ее положением в указанный момент.
9. Ввести двузначное целое число х<15. Написать программу перевода его в восьмеричную систему счисления.
10. Ввести координаты двух точек (х1, y1), (x2,y2). Найти расстояние между ними.
Лабораторная работа 2