
С уважением ко всем).спасибо!
function Somme(a,b:integer):integer;
begin
Somme:=a+b;// так мы возвращаем результат через функцию. С процедурами так нелья.
end;
var temp:integer;
begin
writeln('Function : ',somme(3,5));
temp:=3+5;
writeln('Without function : ',temp);
readln;
end.
var global:byte;{глобальная переменная. К ней ты имеешь доступ с любой точки программы и на протяжении всего ее существовании}
procedure proc(local:byte);{local существует только во время вызова процедуры, она локальна}
begin
global:=local;
end;
var data:byte;{существует на протяжении всей работы программы, но ты не можешь обращаться к ней с подпрограмм.}
begin
global:=0;
data:=4;
proc(data);
writeln(global);
readln;
end.
М | Bokul, я бы попросил обратить внимание на название раздела и пункт 5 правил... Если у автора вопроса есть непонимание матчасти - это будет продолжаться бесконечно, пускай задает КОНКРЕТНЫЕ вопросы в разделе "Задачи"... |