IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> Процедура
сообщение
Сообщение #1


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


имеется программа, надо определить что будет напечатано.
Uses crt;
var
a,b,c,d:integer;
procedure P(var b:integer; c:integer);
var d:integer;
begin
a:=5;
b:=6;
c:=7;
d:=8;
writeln(a,b,c,d)
end;
begin
a:=1;
b:=2;
c:=3;
d:=4;
P(a,b);
writeln(a,b,c,d);
readkey
end.

Ответ такой:
6678
6234
не могу понять почему 6678 и 6234, насчет 234 как-то вроде понятно, а вто 66 и 6 никак
и какие переменные здесь формальные, а какие параметры?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






Цитата
Думаю, речь идет о передаче параметров "по адресу" (var).
Кстати, есть еще так называемая "передача по константной ссылке" (через Const). Вот это - вообще незаменимый способ передаци объектов, которые не должны изменяться внутри водпрограммы (Хотя все-таки есть способ изменить и переданные по Const параметры, но это опять же требует дополнительных усилий, и свидетельствует только о непреодолимой тяге программиста к созданию себе же самому проблем).

Ну, к примеру, есть у меня процедура печати массива... А массив описан как

const
bufSize = 2048;
type
bufType = array[1 .. bufSize] of byte;

{ ну, вот сразу и сама процедура: }
procedure print_arr(var f: text; arr: arrType);
begin
for i := 1 to bufSize do write(f, arr[i]:4);
writeln(f);
end;

Что получаем? Ничего особенного: за гарантию того, что массив, переданный в процедуру как arr, в вызывающей программе останется неизменным - заплатили отъеданием 2К из стека (поскольку параметр "по значению" передается через стек), а стек не резиновый, там всего 16К по умолчанию.

Можно, конечно, передать его по ссылке, и сэкономить тем самым 2К стека:
procedure print_arr(var f: text; var arr: arrType);

Здесь возникает другая проблема: ну ладно здесь, все видно, никаких попыток изменения массива arr нет. Будет процедура раз в 5 длиннее - можно и не заметить попытки изменения. Поэтому все-таки я бы рекомендовал передачу через Const, когда надо гарантировать неизменность данных; тогда и стек экономится (в процедуру передается не весь массив, а ссылка на него), и при малейшей попытке (случайной, разумеется) изменить содержимое массива компилятор покажет, где именно это происходит и откажется компилировать программу дальше...
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Client   Процедура   12.11.2007 11:04
volvo   Это называется побочный эффект, и за такой код над…   12.11.2007 13:16
Client   спасибо за такой полный ответ но вопросов становит…   12.11.2007 21:02
volvo   Нет... Здесь B - локальный параметр переменная, ко…   12.11.2007 21:24
Client   еще вопросы будут-срошу Большое спасибо!!…   12.11.2007 21:52
Client   а как-нибудь можно в процедуре изменить глобальную…   17.11.2007 0:32
TarasBer   а как-нибудь можно в процедуре изменить глобальну…   17.11.2007 0:58
volvo   Я этого не сказал. Я сказал, что локальная перемен…   17.11.2007 1:02
TarasBer   [b]Добавлено через 1 мин. [b]TarasBer - дезинфо…   18.11.2007 18:35
Client   а это как? А еще препод сегодня сказал, что надо …   4.12.2007 23:18
Lapp   а это как?Вообще-то, лучше делать так, как написал…   5.12.2007 9:21
Client   Способ volvo лучше и я не спорю. Не помешает узнат…   5.12.2007 11:33
Lapp   там в цикле используется глобальная переменная, ра…   5.12.2007 12:03
volvo   Кстати, есть еще так называемая "передача по …   5.12.2007 14:35
Client   Спасибо! И откуда вы все это знаете? :wacko:   5.12.2007 23:09
volvo   "И опыт, сын ошибок трудных..." (С) А.С.…   5.12.2007 23:19


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 11.05.2024 12:45
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name