Информатика. Петрова М.В. - 62 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

62
Продолжение приложения В
Degree(a,n,s); {обращение к процедуре}
Writeln('Результат',s);
Readln;
End.
Процедура вызывается как оператор, состоящий из имени процедуры.
В круглых скобках записываются фактические параметры. В нашем
примере формальные параметры
x, y и st принимают значения фактических
параметров
a, n и s соответственно. После заверешения работы процедуры
переменные
a и n сохранят те же значения, что и при вызове, а s получит новое
значение.
Описание функции
Заголовок функции состоит из слова Function, за которым указывается имя
функции, затем в круглых скобках записывается список формальных
параметров, далее ставится двоеточие и указывется тип результата функции.
В теле функции обязательно должен быть хотя бы один оператор
присваивания, в левой части которого стоит имя функции,
а в правой – ее
значение. Иначе значение функции не будет определено.
Таким образом, общий вид описания функции следующий:
Function Имя [(список формальныъ параметров)]:тип результата
Описательная часть
Begin
Тело функции, в котором обязательно должно быть присваивание
Имя_функции:=значение;
End;
Пример:
Написать функцию, подсчитывающую количество цифр натурального
числа. Используя ее, определить, в каком из двух данных чисел больше цифр.
Решение: Надо выделять последнюю цифру числа до тех пор, пока число
не станет равным нулю. При этом каждый раз счетчик увеличивается на 1
(начальное значение счетчика - 0).
Function
Quant(x:longint):byte;
Var k:byte;
Begin
k:=0;
While x<>0 Do
begin
Inc(k);
x:=x div 10;
end;
Quant:=k;
End;

Страницы