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

UptoLike

ВУЗ: 

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

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

Рубрика: 

63
Продолжение приложения В
В заголовке функции указано ее имя –
Quant. Функции передается только
один параметр – целое число, количество цифр которого надо найти.
Результат – тоже целое число. В разделе переменных описана переменная
k – счетчик цифр. В теле функции с помощью цикла while и выполняются
указанные выше действия (увеличивается значение счетчика и удаляется
последняя цифра). Заметим, что память для переменной
k , которая является
локальной, выделяется только тогда, когда начинает свою работу функция.
После завершения работы функции эта часть памяти освобождается, и значение
k будет не определено.
Program
Example_2;
Var n1, n2:longint;
k1, k2:byte;
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;
Begin
Writeln('введите два числа');
Readln(n1,n2);
k1:=Quant(n1); {количество цифр первого числа}
k2:= Quant(n2): {количество цифр второго числа}
if k1=k2 Then Writeln ('одинаковое количество цифр')
Else If k1>k2 Then Writeln ('в первом числе цифр больше')
Else Writeln ('во втором числе цифр больше');
Readln;
End.
Функция – это самостоятельная часть программы, имеющая собственные
переменные, которым отводится отдельное место в памяти ЭВМ. Этим
объясняется тот факт, что переменные с одинаковыми именами, используемые
в функции и в основной программе, являются разными. При выполнении
программы машина «не путает» имена этих переменных, так как области их
действия не совпадают. Это
особенно важно при написании больших программ.

Страницы