Лабораторная работа 21. Работа с символьными переменными -1

Задание 1

Скопируйте в Ваш каталог файл obrstr5.pas из каталога PAS_TXT. Запустите среду Turbo Pascal.

Задание 2

Составьте программу замены одного фрагмента строки другим.

Модифицируйте программу так, чтобы происходила замена только слова на слово (так, чтобы, заменяя, например, слово "полковник" на "генерал", не получить нового звания "подгенерал"). Считайте, что слова разделяются пробелами.

При проверке работы программы обратите особое внимание на слова, стоящие в начале и в конце строки.

Задание 3

Напишите программу, подсчитывающую количество слов во введенной фразе, если:

а) между словами стоит один пробел;

б) между словами может стоять произвольное число пробелов;

в) между словами стоит один произвольный разделитель (пробел, ",", ".", "!", "?", ";", "-");

г) между словами стоит произвольный разделитель и произвольное число пробелов.

Задание 4

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

а) целое число;

б) строка, содержащая цифры и буквы (например, 123абв);

в) дробное число (например, 12.34).

Что изменится, если изменить описание переменной i (указать, например, Real вместо Integer)?

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

Задание 5*

Составьте программу, обеспечивающую ввод строки с простейшим арифметическим выражением вида

а1 <оп> а2 <оп> а3 ... <оп> аN,

где а1...aN - целые числа,

<оп> - знак операции сложения (+) или вычитания (-).

• Продемонстрируйте преподавателю выполненные задания.

Задание 6

Выйдите из среды Turbo Pascal. Удалите из Вашего каталога файл obrstr5.pas.

Лабораторная работа 22. Работа с символьными переменными - 2

Задание 1

В файле slova.pas хранится программа выделения и печати всех слов из введенной фразы, разделенных произвольным разделителем. Сравните ее с той, которую вы написали для решения этой задачи на предыдущей лабораторной работе. Не содержится ли здесь новая для вас идея?

Задание 2

Модифицируйте программу так, чтобы печатались только:

а) слова, начинающиеся на букву "л";

б) слова, заканчивающиеся на букву "ь";

в) слова, содержащие букву "а";

г) слова длиной не менее пяти букв;

д) самое длинное слово.

Задание 3*

Подсчитайте, сколько пятерок потребуется, чтобы записать все числа от 1 до 999.

Лабораторная работа 23. Процедуры - 1

1. Теория

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

Любая процедура начинается с заголовка, который, в отличие от заголовка основной программы, в процедуре является обязательным. Заголовок состоит из зарезервированного слова Procedure, за которым следует имя процедуры, а далее в круглых скобках - список формальных параметров:

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

За заголовком могут идти такие же разделы, что и в основной программе (описание констант, типов, переменных, процедур и т.д.). В отличие от основной программы процедура завершается не точкой, а точкой с запятой.

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

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

<имя> : <тип>;

• параметры-переменные. Эти параметры могут быть использованы внутри процедуры как обычные переменные¹⁵ и, главное, возвращают эти новые значения в вызывающую программу. Поэтому их используют для получения результатов работы процедуры и называют выходными. В заголовке процедуры такие параметры описываются с помощью слова Var:

Var <имя> : <тип>;

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

Например, пусть мы имеем процедуру, которая вычисляет значение заданного числа в заданной степени и имеет заголовок:

Procedure ST(A:real; N:integer; Var Rez:real);

здесь A - заданное число; N - степень числа; REZ - значение N-й степени числа А, тогда ее вызов может выглядеть следующим образом:

ST(25.56, 7, Result);

Значение параметра Result будет передано в основную программу.