WRITELN(S)

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- создаем описание процедуры SIM для обработки строки;

- вводим строку S и определяем ее;

- вызываем процедуру SIM;

- завершаем работу программы.

Переменные:

в процедуре SIM:

S - вводимая строка(глобальная переменная);

I - вспомогательная переменная цикла (локальная переменная);

STR - вспомогательная строка (локальная переменная);

в основной программе:

S - вводимая строка(глобальная переменная);

L - длина строки (глобальная переменная).

 

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

FUNCTION<ИМЯl ФУНКЦИИ> (<СПИСОК ФОРМАЛЬНЫХ ПАРАМЕТРОВ>): ТИП;

Кроме того, в теле функции необходимо присвоить ее имени ка­кое-либо значение, совпадающее по типу с описанием функции.

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

PROGRAM PG9_4;

VAR I, J: INTEGER;

FUNCTION MIN(I, J: INTEGER): INTEGER;

BEGIN

IF I <;JTHEN MIN:= I

ELSE MIN:= J

END;

BEGIN

WRITELN('BBEДИTE ДВА ЦЕЛЫХ ЧИСЛА');

READLN(I, J);

WRITELN('MIN = ', MIN(I, J))

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- создаем описание функции MIN;

- вводим два целых числа I и J;

- вызываем функцию MIN и определяем наименьшее число;

- завершаем работу программы.

Переменные:

в функции MIN:

I, J - два целых числа (глобальные переменные);

в основной программе:

I, J - два целых числа (глобальные переменные).

 

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