Федеральное агентство по образованию

Государственное образовательное учреждение

высшего профессионального образования

«Омский государственный технический университет»

Алгоритмизация и программирование

Turbo Pascal 7.0

Методические указания

к лабораторным работам

Омск 2005

Составитель Ольга Павловна Шафеева, канд.техн.наук, доцент

Рассмотрены основы алгоритмизации реше­ния задач и программирования на языке Паскаль. Приводятся примеры раз­работки алгоритмов и программ для задач разного уровня сложности. Со­держатся структурные схемы проектируемых алгоритмов.

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

Печатается по решению редакционно-издательского совета Омского государственного технического университета.

Редактор Т.А. Жирнова

Свод. темплан 2005 г.

И Д №06039 от 12.10.01

Подписано в печать 10.02.05. Бумага офсетная. Формат 64 84 ¹/₁₆.

Отпечатано на дупликаторе. Усл. печ. л. 3,75. Уч. - изд.л. 3,75.

Тираж . Заказ .

Издательство ОмГТУ. 644050, Омск, пр. Мира 11

Типография ОмГТУ

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