|
Вопрос # 1 208/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты! Помогите, пожалуйста ответить на ряд вопросов:
Процедуры и функции - передача параметров;коллизия обозначений;побочные эффекты; стек исполнения.
Заранее спасибо.
 |
Вопрос задала: s_ksuha (статус: Посетитель)
Вопрос отправлен: 18 декабря 2007, 20:50
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 12 января 2008, 00:21; участников в обсуждении: 1.
|
Drozdov D.V. (статус: 4-ый класс), 12 января 2008, 00:21 [#1]:
program new;
{процедура с параметроми}
procedure clog(a:integer; b:integer);
var
c:integer;
begin
c:=a+b;
writeln('Сумма равна: ',c);
writeln('Нажмите Enter ');
readln;
end;
begin
clog(1,2);
end.
-------------------
для вызова процедуры достаточно указать её имя в нужном месте.
незабыв параметры clog(1,2);
-------------------
program new;
var
res:integer;
{процедура с параметроми}
function clog(a:integer; b:integer);
var
c:integer;
begin
c:=a+b;
writeln('Сумма равна: ',c);
writeln('Нажмите Enter ');
readln;
end;
begin
res:=clog(1,2);{вызов функции}
end.
----------------
Когда и что решать вам но при одном вычеслении можно ифункцию,
а при множестве процедуру.
процедура может быть и без параметров
пример:
-----------------
procedure cod;
begin
writeln(' _____________________________');
textcolor(2);
writeln('> ');
end;
-----------------
то вызов
program new;
{процедура с параметроми}
procedure clog;
begin
writeln(' _____________________________');
textcolor(2);
writeln('> ');
end;
begin
clog;
end.
--------------
обЪявления переменных
program new;
var
x:integer;{глобальная видна и может быть использована во всех процедурах и функциях}
{процедура с параметроми}
procedure clog(a:integer; b:integer);
var
c:integer;{внутри процедуры}
begin
c:=a+b;
writeln('Сумма равна: ',c);
writeln('Нажмите Enter ');
readln;
end;
begin
clog(1,2);
end.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
