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

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

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

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

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

Turbo Pascal 7.0

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

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

Омск 2012

1. Выполнить лабораторные работы №№ 1,2,3,4,5,6,7 по вариантам.

2. Преподавателю необходимо представить отчёт по лабораторным работам

Отчёт должен содержать:

• титульный лист (файл Титульный_отчёт.doc);

• 7 лабораторных работ.

Оформление каждой лаб. работы:

– № лабораторной работы;

– тема лабораторной работы;

– задание;

– программа на алгоритмическом языке;

– протокол выполнения (результат расчёта на компьютере).

3. Выполненные лабораторные работы отправить по СДО «Прометей», если по какой-то причине возникли затруднения (не работает Интернет или нет Интернета), то представьте мне свои работы в электронном виде, т.е. запишите на CD или на дискетку.

4. Теория по алгоритмическому языку – в файле Лекции.doc, в папке Лекции, а также можно взять в библиотеке методичку «Алгоритмизация и программирование» (составитель - О. П. Шафеева) или методичку «Практикум по программированию для начинающих ТурбоПаскаль 7.0 (авторы Ю.П. Чернов, О.П. Шафеева).

Номер задачи по каждой лабораторной работе студенты определяют по таблице в зависимости от своих собственных фамилий. Например, студент Смирнов по всем лабораторным работам решает задачи под номером 8.

Варианты домашних заданий

Ф.И.О.	номер задачи
А, Б	1
В, Г	2
Д, Е, Ж	3
З, И	4
К, Л	5
М, Н	6
О, П	7
Р, С	8
Т, У	9
Ф, Х, Ц	10
Ч, Ш, Щ	11
Э, Ю, Я	12

Лабораторная работа 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.

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

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