Министерство образования Российской федерации

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

филиал в г. Сызрани

Кафедра электротехники, информатики

и компьютерных технологий

ОСНОВЫ ПРОГРАММИРОВАНИЯ В СРЕДЕ

TURBO PASCAL

Методические указания для выполнения

лабораторных работ по дисциплине "Информатика"

Самара 2001

Составители: В. Будин

Е. Крайнова

УДК 621.??

ББК ???

Программирование в среде Turbo Pascal: Метод. указ. к лабораторным работам / Самар. гос. техн. ун-т; Сост. В.И. Будин, Е.А. Крайнова. Самара, 2001. ?? с.

Представлены 4 лабораторные работы по изучению операционных систем…………………………………………….

Предназначено для лабораторно-практических занятий со студентами технических вузов. ISBN ???????

Ил. ?, Табл. ?, Библиогр.: ?? назв.

Печатается по решению редакционно-издательского совета СамГТУ

Рецензенты: канд. техн. наук Ф.В. Дремов

канд. техн. наук

ISBN ???? © В.И. Будин, Е.А. Крайнова

© Самарский государственный технический университет, 2001.

Составление и отладка программ с разветвляющейся структурой

Цель работы: приобретение навыков по составлению программ с разветвляющейся структурой и их отладке в интегрированной среде Turbo Pascal 7.0.

Организация ветвлений в программах

Программы с разветвляющейся структурой являются реализацией одноименных алгоритмов. Последние из-за сложности их структуры следует представлять в виде блок-схем. Для этого применяют условные графические обозначения согласно ГОСТ 19.701-90 и ГОСТ 19.003-80. Наиболее часто используемые блоки приведены в табл. 1.

Для организации ветвлений в программах применяются оператор перехода, оператор выбора (переключатель) и условный оператор. Они имеют соответственно следующий вид:

1. Оператор перехода

goto n ;

где n - метка. При этом меткой можно помечать любой оператор, включая пустой.

2. Оператор выбора

Case <селектор> of

<список выбора 1> : <оператор 1> ;

. . . . . . . . . . . . . . .

<список выбора N> : <оператор N>

[else <оператор>]

End ;

где <селектор> - выражение порядкового типа;

<список выбора> - константа или интервал из констант;

<оператор> - любой оператор языка Turbo Pascal (TP), включая составной.

Например:

вычислить значение функции f =

. . . . . . . . . . . . .

case b of

1: f := b + x;

2: f := b*x + sqr(x);

3: f := b*cos x

end;

. . . . . . . . . . . . .

3. Условный оператор:

а) в полной форме

if <логическое выражение> then <оператор 1>

else <оператор 2> ;

б) в сокращенной форме

if <логическое выражение> then <оператор 1> ;

где <оператор 1>, <оператор 2> - любые операторы ТР, включая условные.

Логическое выражение представляет собой условие, записанное с помощью логических операций not, and, or, xor и операций отношения (>, <, =, >=, <=, <>). Результат логического соотношения имеет два значения типа Boolean: true и false. При этом логические операции выполняются согласно таблице:

Переменные		Операции
A	B	not A	A and B	A or B	A xor B
False	False	True	False	False	False
False	True	True	False	True	True
True	False	False	False	True	True
True	True	False	True	True	False

Например, при определении принадлежности точки (x,y) области {0  x  x_max, 0  y  y_max} условный оператор можно записать в следующем виде:

if (X>=0) and (X<=Xmax) and (Y>=0) and (Y<=Ymax)

then writeln ('Точка принадлежит указанной области')

else writeln ('Точка не принадлежит указанной области');

Таблица 1

Условные графические обозначения основных блоков схем

алгоритмов

Обозначение блока	Наименование	Функции
	Пуск - останов	Начало, конец и прерывание процесса обработки данных
	Процесс	Выполнение операции или группы операций
	Ввод-вывод	Ввод или вывод данных в независимости от физического носителя
	Решение	Проверка условия и выбор направления выполнения алгоритма
	Предопределенный процесс	Выполнение подпрограммы
	Модификация	Заголовок оператора цикла For

Примечание. Справочный материал языка Turbo Pascal 7.0, необходимый для выполнения лабораторной работы, приведен в Приложении.