Общие сведения

Общие сведения. В языке Turbo Pascal подпрограммы реализованы посредством процедур и функций. Процедура - это независимая поименованная часть программы, которую можно вызвать по имени для выполнения определенных действий.

Структура процедуры повторяет структуру программы.

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

Все процедуры и функции языка Turbo Pascal подразделяются на две группы встроенные и определенные пользователем.

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

Процедуры. Описание процедуры включает заголовок имя и тело процедуры. Заголовок состоит из зарезервированного слова PROCEDURE, идентификатора имени процедуры и необязательного заключенного в круглые скобки списка формальных параметров с указанием типа каждого параметра. Имя процедуры - идентификатор, уникальный в пределах программы.

Тело процедуры представляет собой локальный блок, по структуре аналогичный программе. Описания меток, констант, типов и т. д. действительны только в пределах данной процедуры. В теле процедуры можно использовать любые глобальные константы и переменные. PROCEDURE имя Формальные параметры CONST TYPE VAR BEGIN операторы END В качестве примера опишем процедуру, которая прерывает выполнение программы и выдает соответствующее сообщение об ошибке PROCEDURE AbortMsg string BEGIN WritelnОшибка , Msg Halt1 END Сохраним данный пример в файле ABORT.PAS для дальнейшего использования в примере ниже по тексту.

Процедура не может выполниться сама, ее необходимо вызвать по имени и указать фактические параметры того же типа, что и формальные. Количество и тип формальных параметров равны количеству и типу фактических параметров. В качестве примера приведем фрагмент программы, в котором используется описанная выше процедура Abort PROGRAM DemoProc Подсчет суммы десяти введенных целых положительных чисел, если будет введено отрицательное число, прервать выполнение CONST Limit 10 ограничение на количество вводимых чисел VAR Count, Item, Sum integer I ABORT.PAS включение в текст файла ABORT.PAS BEGIN Count 0 Sum 0 WHILE Count Limit DO BEGIN условие выполнение цикла Count Count1 WriteВведите , Count, -ое целое число ReadlnItem IF Item 0 THEN вызов процедуры Abortвведено отрицательное число Sum SumItem END WritelnСумма введенных чисел равна , Sum END. Параметры обеспечивают механизм замены, который позволяет выполнять процедуру с различными строковыми сообщениями.

Если процедура возвращает в программу какие-то значения, соответствующие переменные должны быть описаны как параметры-переменные с использованием слова VAR. Функции.

Функция, определенная пользователем, состоит из заголовка и тела функции. Заголовок содержит зарезервированное слово FUNCTION, идентификатор имя функции, заключенный в круглые скобки, необязательный список формальных параметров и тип возвращаемого функцией значения.

Тело функции представляет собой локальный блок, по структуре аналогичный программе FUNCTION имя Формальные параметры тип результата CONST TYPE VAR BEGIN операторы END В разделе операторов должен находиться по крайней мере один оператор, присваивающий имени функции значение. В точку вызова возвращается результат последнего присваивания. Обращение к функции осуществляется по имени с указанием списка аргументов, если таковые имеются.

Каждый аргумент должен соответствовать формальным параметрам, указанным в заголовке, и иметь тот же тип. В качестве примера приведем функцию возведения в степень PROGRAM DemoPower VAR Zreal FUNCTION PowerX,Yreal real BEGIN Power ExpY LnX END BEGIN Z5.31 возведение значения Z в 4-ю степень WritePowerZ,4.0 END. 3. Задача 1 3.1 Постановка задачи Написать и отладить программу, которая вычисляет значение функции yfх, при заданном с клавиатуры значении х, или выдает сообщение, что функция неопределенна 3.2 Блок-схема алгоритма задачи 3.3 Текст программы на языке Паскаль Задача 1. Program z1 uses crt var x, yreal Begin clrscr writeВведите х readlnx if x 0 then ysqrx-5x6 else if sqrx-5x6 0 then y1sqrx-5x6 else begin writelnПри х, x52, функция fx не определена. readln halt end writelnОтвет yf, x52 y52 readln End. 3.4 Контрольные примеры Введите х 2 При х 2.00 функция fx не определена.

Введите х 5 Ответ yf 5.00 0.17 Введите х -2 Ответ yf-2.0020.00 4. Задача 2 4.1 Постановка задачи Написать и отладить программу, которая вычисляет значение матричного выражения, или выдает сообщение о невозможности его выполнения, при задании с клавиатуры значениях размерностей и элементов матриц АM,N BL,M C N,L АС4В 4.2 Блок-схема алгоритма задачи 4.3 Текст программы на языке Паскаль Задача 2. Program z2 uses crt var M,N,L,i, j,kinteger A,B,C,D,E,Yarray1 10,1 10 of real Begin clrscr writelnВычисление матричного выражения YL,MAM,NCN,L4BL,M Ввод размерностей матриц. writeВведите размерность матриц - значения M,N,L 10 readlnM,N,L if M 10 or N 10 or L 10 or M 1 or N 1 or L 1 then begin writelnВведены некорректные данные. 1 M,N,L 10 readln halt end if M L then begin writelnПри заданных значениях M, N, L вычислить выражение writelnAM,NCN,L4BL,M невозможно, т.к.складываются writelnтолько матрицы одинаковых размеров. writelnВведите одинаковые значения для M и L. readln halt end Ввод элементов матриц. writelnВведите построчно элементы матрицы A,M N, for i1 to M do for j1 to N do readAi, j writelnВведите построчно элементы матрицы B,L M, for i1 to L do for j1 to M do readBi, j writelnВведите построчно элементы матрицы C,N L, for i1 to N do for j1 to L do readCi, j writelnОтвет Вычисление произведения матриц DM,LAM,NCN,L for i1 to M do for j1 to L do begin Di, j0 for k1 to N do Di, jDi, jAi, kCk, j end Вычисление умножения матрицы на число ЕL,M4BL,M for i1 to L do for j1 to M do Ei, j4Bi, j Вычисление сложения матриц YL,MDM,LЕL,M for i1 to L do begin for j1 to M do begin Yi, jDi, jEi, j writeYi, j92 end writeln end readln End. 4.4 Контрольные примеры Вычисление матричного выражения YL,MAM,NCN,L4BL,M Введите размерность матриц - значения M, N, L 10 5 4 6 При заданных значениях M, N, L вычислить выражение AM,NCN,L4BL,M невозможно, т.к. складываются только матрицы одинаковых размеров.

Введите одинаковые значения для M и L. Вычисление матричного выражения YL,MAM,NCN,L4BL,M Введите размерность матриц - значения M, N, L 10 4 3 4 Введите построчно элементы матрицы A4,3 3 2 4 1 5 2 4 2 1 6 3 2 Введите построчно элементы матрицы B4,4 5 2 7 1 3 5 2 8 9 2 9 3 1 4 7 2 Введите построчно элементы матрицы C3,4 5 2 1 7 2 4 2 8 2 1 6 5 Ответ 47.00 26.00 59.00 61.00 31.00 44.00 31.00 89.00 62.00 25.00 50.00 61.00 44.00 42.00 52.00 84.00 5. Задача 3 5.1 Постановка задачи Разработать программы a ввода данных с клавиатуры и формирования текстового файла b чтения текстового файла с диска и вывода его на экран в виде таблицы.

Данные для формирования файла. ФКС-2 0,01 10 -8 ч10 -9 АМД-94 1 10 -6ч 10-5 РСК-94 10 10-7 ч10 -6 5.2 Блок-схема алгоритма задачи а Запись данных в файл Fn имя файла. а Чтение данных из файл и их вывод на экран. 5.3 Текст программы на языке Паскаль Задача 3. Program z3a uses crt var ftext n, iinteger fn, s1,s2string rreal Begin clrscr writelnФормирование текстового файла с данными, введенными с клавиатуры. writeВведите имя файла readlnfn assignf, fn rewritef writeВведите количество строк readlnn writelnВведите данные for i1 to n do begin writeНазвание readlns1 writeЧисленное значение readlnr writeДиапазон readlns2 writelnf, s115,r152,s215 end closef writelnДанные успешно записаны в файл, fn readln End. Задача 3б. Program z3b uses crt var ftext s, fnstring rreal Begin clrscr writelnЧтение данных из текстового файла и их вывод на экран. writeВведите имя файла readlnfn assignf, fn resetf writelnДанные из файла, fn while not eoff do begin readlnf, s writelns end closef readln End. 5.4