Структура программы на языке Turbo Pascal 7.1

Федеральное государственное образовательное

Учреждение среднего профессионального образования

Санкт-Петербургский колледж информатизации и управления

Методические материалы

По практике

«Системное программирование»

для специальностей:230401, 230115

Санкт-Петербург

2012 год

Авторы:

преподаватель спецдисциплин,

председатель ПЦК «Программное обеспечение» Н.С. Девятко

член-корреспондент АИО, советник РАЕ

 по секции «Технические науки» В.В. Корец

Рецензенты:

Содержание

Введение в Turbo Pascal 7.1_ 4

1. Теоретические основы языка Turbo Pascal 7.1_ 5

1.1. Возможности и назначение языка Turbo Pascal 7.1_ 5

1.2. Структура программы на языке Turbo Pascal 7.1_ 7

1.3. Правила написания легко читаемых программ_ 9

1.4. Правила оформления отчета по лабораторным работам_ 11

2. Методические рекомендации для выполнения практических работ 12

Тема 1: «Программы разветвленной структуры»_ 12

Тема 3: «Обработка одномерных числовых массивов»_ 21

Тема 4: «Обработка строк»_ 24

Тема 5: «Обработка двумерных числовых массивов»_ 30

Тема 6: «Процедуры и функции программиста»_ 33

Тема 7: «Текстовые файлы»_ 34

Тема 8: «Типизированные файлы»_ 36

Тема 9: «Модуль Graph»_ 38

Тема 10: «Модуль DOS»_ 104

ВАРИАНТ 1_ 106

ВАРИАНТ 2_ 108

ВАРИАНТ 3_ 110

ВАРИАНТ 4_ 112

ВАРИАНТ 5_ 114

ВАРИАНТ 6_ 116

ВАРИАНТ 7_ 118

ВАРИАНТ 8_ 120

ВАРИАНТ 9_ 122

ВАРИАНТ 10_ 124

ВАРИАНТ 11_ 126

ВАРИАНТ 12_ 128

ВАРИАНТ 13_ 130

ВАРИАНТ 14_ 132

ВАРИАНТ 15_ 134

ВАРИАНТ 16_ 136

ВАРИАНТ 17_ 138

Справочные таблицы_ 140

Литература_ 148

Введение в Turbo Pascal 7.1

Уважаемый слушатель! Цель наших занятий – формирование знаний и умений в области разработки собственных программ на языке Турбо Паскаль.

Вам предлагается изучить: основы языка Turbo Pascal 7.1, среду разработки,библиотечные модули SYSTEM, DOS, CRT, GRAPH, основы проектирования надёжных программ, методы, обеспечивающие необходимые качественные показатели программ, вы научитесь оценивать эффективность алгоритмов, освоите различные приёмы разработки алгоритмов. Конечной целью данной методики является приобретение профессиональных навыков использования языка Turbo Pascal 7.1 и среды разработки.

Данное пособие – это Ваша рабочая электронная тетрадь. Авторы стремились сделать это пособие самодостаточным, таким образом, чтобы вам не пришлось обращаться к другим источникам.

Все практические занятия разбиты на разделы, соответствующей тематики и, тем не менее, они объединены единым сюжетом, это позволяет легко переходить от раздела к разделу.

Чтобы научиться программировать, не достаточно прочитать книгу, посвященную языку программирования, надо писать программы, решать конкретные задачи. В учебниках, как правило, приводятся типовые, стандартные задачи, в основе которых лежит расчет по формулам. Такие задачи, несомненно, полезны, но они не всегда интересны. В данном пособии начинающему программисту предлагаются задачи, которые, с одной стороны ему по плечу, с другой — полезны и занимательны.

Для глубокого изучения языка Турбо Паскаль и приёмов проектирования и разработки программ рекомендуется последовательно и вдумчиво изучить методические рекомендации и выполнить практические задания.

Предполагается, что слушатели знакомы с основными конструкциями языка Турбо Паскаль и, тем не менее, те из этих конструкций, которые относятся к данной теме, приводятся полностью и сопровождаются примерами.

Теоретические основы языка Turbo Pascal 7.1

ü Возможности и назначение языка Turbo Pascal 7.1

ü Структура программы на языке Turbo Pascal 7.1

ü Правила написания легко читаемых программ

ü Правила оформления отчета по лабораторным работам

Возможности и назначение языка Turbo Pascal 7.1

Система программирования Турбо Паскаль представляет собой единство двух в известной степени самостоятельных начал: компилятора с языка программирования Паскаль (язык назван в честь выдающегося французского математика и философа Блеза Паскаля (1623-1662)) и некоторой инструментальной программной оболочки, способствующей повышению эффективности создания программ. Для краткости условимся в дальнейшем называть реализуемый компилятором язык программирования Паскаль - языком Турбо Паскаля, а разнообразные сервисные услуги, представляемые программной оболочкой, - средой Турбо Паскаля.

Язык Турбо Паскаль, является алгоритмическим процедурно-ориентированным языком высокого уровня, предназначенным для разработки программ любой сложности. В библиотечных модулях сосредоточено всё то что не вошло в язык Паскаль.

Стандартные модули

В Турбо Паскале имеется восемь стандартных модулей, в которых содержится большое число разнообразных типов, констант, процедур и функций. Этими модулями являются SYSTEM, DOS, CRT, PRINTER, GRAPH, OVERLAY, TURBOS и GRAPH3. Модули GRAPH, TURBOS и GRAPHS выделены в отдельные TPU-файлы, а остальные входят в состав библиотечного файла TURBO.TPL. Лишь один модуль SYSTEM подключается к любой программе автоматически, все остальные становятся доступны только после указания их имен в списке, следующем за словом USES.

Ниже приводится краткая характеристика стандартных модулей. Модуль SYSTEM. В него входят все процедуры и функции стандартного Паскаля, а также встроенные процедуры и функции, которые не вошли в другие стандартные модули (например, INC, DEC, GETDIR и т.п.). Как уже отмечалось, модуль SYSTEM подключается к любой программе независимо от того, объявлен ли он в предложении USES или нет, поэтому его глобальные константы, переменные и подпрограммы считаются встроенными в Турбо Паскаль.

Модуль PRINTER. Делает доступным вывод текстов на матричный принтер. В нем определяется файловая переменная LST типа TEXT, которая связывается с логическим устройством PRN. После подключения модуля может быть выполнена, например, такая программа:

Uses Printer;

begin

writeln (LST, 'Турбо Паскаль')

end.

Модуль CRT. В нем сосредоточены процедуры и функции, обеспечивающие управление текстовым режимом работы экрана. С помощью входящих в модуль подпрограмм можно перемещать курсор в произвольную позицию экрана, менять цвет выводимых символов и окружающего их фона, создавать окна. Кроме того, в модуль включены также процедуры «слепого» чтения клавиатуры и управления звуком.

Модуль GRAPH. Содержит обширный набор типов, констант, процедур и функций для управления графическим режимом работы экрана. С помощью подпрограмм, входящих в модуль GRAPH, можно создавать разнообразные графические изображения и выводить на экран текстовые надписи стандартными или разработанными программистом шрифтами. Подпрограммы модуля GRAPH после соответствующей настройки могут поддерживать различные типы аппаратных графических средств. Настройка на имеющиеся в распоряжении программиста технические средства графики осуществляется специальными программами - драйверами, которые не входят в файл GRAPH. TPU, но поставляются вместе с ним.

Модуль DOS. В модуле собраны процедуры и функции, открывающие доступ программам к средствам дисковой операционной системы MS- DOS.

Модуль OVERLAY. Он необходим при разработке громоздких программ с перекрытиями. Как уже говорилось, Турбо Паскаль обеспечивает создание программ, длина которых ограничивается лишь основной оперативной памятью ПК. Операционная система MS-DOS оставляет исполняемой программе около 580 Кбайт основной памяти (без учета резидентных программ и самой системы Турбо Паскаль). Память такого размера достаточна для большинства применений, тем не менее, использование программ с перекрытиями снимает это ограничение [2].

Два библиотечных модуля TURBO3 и GRAPHS введены для совместимости с ранней версией 3.0 системы Турбо Паскаль.

Структура программы на языке Turbo Pascal 7.1

Программа на языке Паскаль состоит из заголовка, разделов описаний и раздела операторов. Заголовок программы содержит имя программы, например:

Program PRIM;

Описания могут включать в себя:

раздел подключаемых библиотек (модулей);

раздел описания меток;

раздел описания констант;

раздел описания типов;

раздел описания переменных;

раздел описания процедур и функций.

Раздел описания модулей определяется служебным словом USES и содержит имена подключаемых модулей (библиотек) как входящих в состав системы Turbo Pascal, так и написанных пользователем. Раздел описания модулей должен быть первым среди разделов описаний. Имена модулей отделяются друг от друга запятыми:

uses CRT, Graph;

Любой оператор в программе может быть помечен меткой. Имя метки задается по правилам образования идентификаторов Турбо Паскаль. В качестве метки также могут использоваться произвольные целые числа без знака, содержащие не более четырех цифр. Метка ставится перед оператором и отделяется от него двоеточием. Все метки, используемые в программе, должны быть перечислены в разделе описания меток, например:

label 3, 471, 29, Quit;

Описание констант позволяет использовать имена как синонимы констант, их необходимо определить в разделе описания констант:

const K= 1024; MAX= 16384;

В разделе описания переменных необходимо указать все переменные, используемые в программе, и определить их тип:

var P,Q,R: Integer;

A,B: Char;

F1,F2: Boolean;

В Паскаль - программе должны быть обязательно описаны все компоненты программы.

Раздел операторов представляет собой составной оператор, который содержит между служебными словами

begin.......end

Последовательность операторов. Операторы отделяются друг от друга символом ;. Текст программы заканчивается символом точка.

Кроме описаний и операторов Паскаль - программа может содержать комментарии, которые представляют собой произвольную последовательность символов, расположенную между открывающей скобкой комментариев { и закрывающей скобкой комментариев }.

Пример 1

program Primer; {вычисление суммы двух чисел}

var

x,y,s: integer;

begin

WriteLn('Введите через пробел два числа ');

ReadLn(x,y);

s := x + y;

WriteLn('Сумма чисел равна ',s);

end.

Данная программа запрашивает с клавиатуры два числа, находит их сумму и выводит ответ. Теперь сделаем так, чтобы программа сначала очищала экран, выполняла свои действия, а в конце работы позволяла пользователю посмотреть результат, ожидая его нажатия клавиши [3].

Пример 2

program Primer; {вычисление суммы двух чисел}

uses Crt; {подключение модуля, необходимого для процедур

      очистки экрана и задержки}

var

x,y,s: integer;

begin

ClrScr; {очистка экрана}

WriteLn('Введите через пробел два числа ');

ReadLn(x,y);

s := x + y;

WriteLn('Сумма чисел равна ',s);

ReadKey; {ожидание нажатия клавиши}

end.