Алгоритмизация и программирование (стр. 1 )

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

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

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

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

АЛГОРИТМИЗАЦИЯ И ПРОГРАММИРОВАНИЕ

Turbo Pascal 7.0

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

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

Омск 2013

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

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

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

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

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

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

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

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

– задание;

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

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

3. Выполненные лабораторные работы отправить в СДО «Прометей».

4. Теория по алгоритмическому языку – в файлах Лекции.doc и УП_Основы программирования в Turbo Pascal.doc, в папке 4_Коспект лекций.

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

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

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

Лабораторная работа 1

Основы программирования в среде Турбо Паскаля.

Оператор присваивания, процедуры ввода - вывода

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

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

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.;

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

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

№	x1	x2	a	b	c	Вычислить
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
11	1	2	1.5	-1.2	-
12	1	2	0.5	1.7	2
13	-1	1	0.5	1.2	-
14	1	2	0.5	3.1	-
15	1	2	0.5	3.2	-

Лабораторная работа 2