Программирование разветвленных алгоритмов.
Федеральное агентство по образованию
Государственное образовательное учреждение
высшего профессионального образования
«Омский государственный технический университет»
АЛГОРИТМИЗАЦИЯ И ПРОГРАММИРОВАНИЕ
Turbo Pascal 7.0
Методические указания
к лабораторным работам
Омск 2009
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) - х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) - округление Х до ближайшего целого.
Приоритет операций в выражении
| № п/п | Арифметические | Логические | Отношения | Другие |
| 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 | 2 | 3 | 4 | 5 | 6 | 7 |
| 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 | 
|
Лабораторная работа 2
|
|
|
Программирование разветвленных алгоритмов.
Дата добавления: 2018-05-13; просмотров: 512; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!