Порядок выполнения лабораторных работ

1. Изучить теоретические сведения по теме.

2. Построить схему алгоритма для решения задач в соответствии с вариантом, выданным преподавателем, для каждого задания.

3. Подготовить текст программы и набрать его в окне редактора ТП.

4. Откомпилировать программу (F9) и исправить синтаксические ошибки.

5. Выполнить программу для реальных исходных данных (Ctrl+F9).

6. Просмотреть результаты (Alt+F5) и записать в тетрадь.

7. Оформить отчет по текущей лабораторной работе, в который включить:

номер работы, тему работы, условия задач, схемы алгоритмов, тексты прог- рамм, результаты выполнения программ.

8. Защитить лабораторную работу преподавателю.

Лабораторная работа 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, что подтверждает верность программы.