Практикум по основам программирования. Язык Паскаль

Це л ь з а д а н и я

1.Ознакомление с возможностью выполнения опера­ ции исключения элементов из списка.

2.Закрепление навыков использования переменных ссылочных типов данных.

П о с т а н о в к а з а д а ч и Составить список учебной группы, содержащий не

менее 15 учащихся. Указать для каждою учащегося оценки, полученные на последних четырех экзаменах.. Разработать программу, которая вводит с терминала данные о каждом учащемся, заносит эту информацию в однонаправленный список. Обработать список соглас­ но конкретному варианту.

С о д е р ж а н и е о т ч е т а

1.Постановка задачи.

2.Список группы учащихся с оценками.

3.Текст программы и результаты ее выполнения.

4.Выводы.

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

приведенной ниже программой. Программа ИСКЛ вво­ дит данные о каждом учащемся, строит список, а за­ тем удаляет из списка элементы, относящиеся к неус­ певающим учащимся.

PROGRAM ИСКЛ(INPUT.OUTPUT)j TYPE ДАННЫЕ-RECORD

ФИО!PACKED ARRAYC1..7] OF CHAR; ОЦЕНКИ!ARRAYC1..43 OF INTEGER

END| ССЫЛКА-ТЗАПИСЬ; ЗАПИСЬ-RECORD

CCiССЫЛКА|

YiДАННЫЕ

END;

VAR HAH(SIfS2iССЫЛКА; NfI,JtINTEGER; BEGIN

WRITELN('ВВОДИ КОЛИЧЕСТВО ФАМИЛИИ В СПИСКЕ'); READLN(N)|

NEW(Si); HAHt-Sl;

FOR Ix—1 TO N DO

BEGIN

SIT.CCI—NIL|

WRITELN( ВВОДИ ФАМИЛИИ ИЗ 7 БУКВ И ОЦЕНКИ’)| FOR J«-l ТО 7 DO READ (SIT-Y. ФИОСЛ) ;

FOR Ji-1 TO 4 DO READ(SIT* Y.ОЦЕНКИСJI)| READLN; S2i-81| NEW(S1)|

IF ION THEN S2T.CCI-S1 ELSE DISPOSE(SI)

END; (• ЗАКОНЧЕНО ФОРМИРОВАНИЙ СПИСКА *)

IF PC- A* THEN BEGIN («ДОБАВЛЕНИЕ В КОНЕЦ СПИСКА БУКВЫ А*) ТЕК« —НАЧ|

WHILE TEKT.WONIL DO TEKi-TEKt.W; NEW(PR)| TEKf.Wt —PR|

PRT.Wi-NIL| PRt.Sl-'A* END

ELSE BEGIN (* УДАЛЕНИЕ ИЗ СПИСКА ВСЕХ БУКВ А») ТЕК* —НАЧ|

WHILE TEKONIL DO BEGIN

IF TEKT.S-A* THEN PRt.W:-TEKT.W ELSE PRi-ТЕК|

ТЕК»-TEKT.W END

END|

(* печать измененной строки *> ТЕК» —НАЧ|

WRITELN<* ИЗМЕНЕННАЯ СТРОКА *>| WHILE TEKONIL DO

BEGIN WRITE(TEKT.S)| ТЕК*-TEKT.W END} WRITELN

END.

П р о т о к о л р а б о т ы п р о г р а м м ы ОБРАБ:

= > ROLDAAA1234ATXAAA ИЗМЕНЕННАЯ СТРОКА ROLD1234TX

В а р и а н т ы з а д а н и я

1.Удалить первые два символа строки.

2.Удалить последние три символа строки.

3.Удалить все буквы К.

4.Удвоить все символы *.

5.Добавить в конец строки слово END.

6.Поменять местами первый и последний символы строки.

7.Поменять местами первый и второй символы стро­

ки.

8.Поменять местами последний и предпоследний символы строки.

9. Подсчитать в строке число букв А и В, и если букв А больше, чем букв В, то удалить в строке все символы В.

10. Подсчитать число символов в строке, и если чйсло нечетное, то удалить символ, стоящий посередине строки.

Г Л А В А 9

ПРОЦЕДУРЫ И ФУНКЦИИ

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

Структура процедур и функций аналогична структуре полной программы на языке ПАСКАЛЬ. В процедурах и функциях могут быть описаны собственные метки, кон­ станты, типы, собственные переменные и даже собст­ венные процедуры и функции. Внутренние описания дол­ жны следовать в том же порядке, что и разделы основ­ ной программы.

9.1. ОПИСАНИЕ ПРОЦЕДУРЫ. ОПЕРАТОР ПРОЦЕДУРЫ

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

Общая форма записи заголовка процедуры:

PRO CED U RE <имя>(<список формальных параметров>);

Список формальных параметров может включать в себя параметры-значения, параметры-переменные (перед ними должно стоять служебное слово VAR), па­ раметры-процедуры (перед ними должно стоять слу­ жебное слово PROCEDURE) и параметры-функции (пе­ ред ними должно стоять служебное слово FUNCTION). После заголовка процедуры следуют разделы в том же порядке, что и в программе.

Вызов и выполнение процедуры осуществляются при помощи оператора процедуры:

<имя процедуры>(< список фактических пара­ метров >);

Между формальными и фактическими параметра­ ми должно быть полное соответствие, т. е. формаль­ ных и фактических параметров должно быть одинако­ вое количество; порядок следования фактических и формальных параметров должен быть один и тот же; тип каждого фактического параметра должен совпадать с типом соответствующего ему формального параметра.

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

Например, ниже приведена программа, которая в первой вводимой с терминала строке подсчитывает ко­ личество точек, а во второй - количество букв ’А\ Под­ счет символов реализован в процедуре ПОДСЧЕТ.

PROGRAM ПОД (INPUT ,OUTPUT); CONST ТОЧКА= *.

VAR SsINTEGER;

PROCEDURE ПОДСЧЕТ(СИМ:CHAR; VAR КОЛ:INTEGER); VAR C:CHAR;

BEGIN КОЛ:=0; WRITELN<'ВВОДИ СТРОКУ«>*>; REPEAT READ(C);

IF С=СИМ THEN КОЛ:=КОЛ+1 UNTIL EOLN

END;

BEGIN READLN;

ПОДСЧЕТ <ТОЧКА,S); WRITELN('КОЛИЧЕСТВО ТОЧЕК=',S:3);

ПОДСЧЕТ(*A ',S); WRITELN('КОЛИЧЕСТВО БУКВ=A ',S:3)

END.

Процедура ПОДСЧЕТ имеет два формальных па­ раметра: СИМ - входной параметр (параметр-значение) определяет символ, который подсчитывается в строке, и КОЛ - выходной параметр (параметр-переменная), через который передается в основную программу коли­ чество подсчитанных символов. Для того чтобы ре­ зультат работы процедуры ПОДСЧЕТ был доступен в про1рамме, он передается по ссылке.

Фактический параметр, соответствующий формаль­ ному параметру СИМ, при первом вызове процедуры задается именем константы, определенной в основной программе, а при втором вызове-в явном виде. Обе формы задания правильны, так как в качестве факти­ ческого параметра, передаваемого по значению, может использоваться произвольное выражение соответствую­ щего типа.

Процедуры возвращают результат в основную про­ грамму не только при помощи параметров-перемен­ ных, но и непосредственно изменяя глобальные пере- 'менные. Переменные, описанные в основной програм­ ме, являются глобальными по отношению к внутрен­ ним процедурам и функциям. Переменные, описанные внутри процедур и функций, называются локальными.

Они порождаются при каждом входе в процедуру и уничтожаются при выходе из этой процедуры, т. е. ло­ кальные переменные существуют только при выполне­ нии процедуры и недоступны в основной программе. Например, переменная С символьного типа, описанная в процедуре ПОДСЧЕТ, является локальной, а пере­ менная S целого типа, описанная в основной програм­ ме, является глобальной.

Изменим процедуру ПОДСЧЕТ таким образом, чтобы она передавала результат своей работы через глобальную переменную S.

PROGRAM ПОД1(INPUT,OUTPUT);

CONST ТОЧКА= *

VAR S:INTEGER;

PROCEDURE ПОДСЧЕТ(СИМ sCHAR);

VAR C:CHAR;

BEGIN S:=0; MRITELN('ВВОДИ СТРОКУ=>);

REPEAT READ(C>;

IF С=СИМ THEN Ss =S+1

UNTIL EOLN

END;

BEGIN READLN; ПОДСЧЕТ(ТОЧКА);

MRITELN <'КОЛИЧЕСТВО ТОЧЕК= ,5:3); ПОДСЧЕТ('A *);

MRITELN( КОЛИЧЕСТВО БУКВ A=',S:3)

END.

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

Этот оператор и определяет значение, вырабатываемое

функцией.

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

9.3.'ВОПРОСЫ И УПРАЖНЕНИЯ

1.Для чего предназначены процедуры?

2.Что включает в себя заголовок процедуры?

3.Чем отличаются формальные и фактические пара­ метры?

4.Чем отличаются локальные и глобальные перемен­ ные?

5.Для чего предназначены функции?

6.Что включает в себя заголовок функции?

7.Какая разница между процедурой и функцией?

8*. Написать функцию поиска максимального элемен­ та одномерного массива, содержащего не более N ве­ щественных чисел.

9*. Написать процедуру упорядочения по невозраста­ нию массива, содержащего не более N вещественных чисел.

10. Можно ли для упорядочения массива (п. 9) вместо процедуры использовать функцию?

11*. Известно, что в разделах типов и переменных за­ даны:

Написать функцию, которая по номеру N опреде­ ляет соответствующее название дня недели.

12*. Написать функцию, которая по заданному призна­ ку обеспечивает поиск либо большего, либо меньшего из двух заданных целых чисел.

13*. Найти ошибки в следующей программе. Объяс­

нить, какие правила языка ПАСКАЛЬ при этом нару­ шены: