Мастера DELPHI, Delphi programming community Рейтинг@Mail.ru Титульная страница Поиск, карта сайта Написать письмо 
| Новости |
Новости сайта
Поиск |
Поиск по лучшим сайтам о Delphi
FAQ |
Огромная база часто задаваемых вопросов и, конечно же, ответы к ним ;)
Статьи |
Подборка статей на самые разные темы. Все о DELPHI
Книги |
Новинки книжного рынка
Новости VCL
Обзор свежих компонент со всего мира, по-русски!
|
| Форумы
Здесь вы можете задать свой вопрос и наверняка получите ответ
| ЧАТ |
Место для общения :)
Орешник |
Коллекция курьезных вопросов из форумов
KOL и MCK |
KOL и MCK - Компактные программы на Delphi
Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / rsdn.org

 
Чтобы не потерять эту дискуссию, сделайте закладку « предыдущая ветвь | форум | следующая ветвь »
Страницы: 1 2

Что выдаст функция


Pavia ©   (31.05.17 22:35

Какой результат у вас? 20 или 30?

var
 t1,t2:Integer;
function foo(var a,b:Integer):Integer;
begin
a:=10;
b:=20;
a:=a+10;
b:=a;
Result:=b;
end;
begin
t2:=foo(t1,t1);
WriteLn(t2);
end.


ПС. Интересуют разные компиляторы и их версии в том числе питон и Си диез.


Игорь Шевченко ©   (31.05.17 23:12[1]


> в том числе питон и Си диез.


Ошибка компиляции.


Dimka Maslov ©   (31.05.17 23:26[2]

С какой радости может быть 20?


DayGaykin ©   (31.05.17 23:43[3]

Тоже самое, если сделать

var
 t1: Integer;
 t2: Integer absolute t1;


dmk ©   (31.05.17 23:55[4]

У меня 30.
Delphi XE6 Prof. Win64.


Vons ©   (01.06.17 02:21[5]

Поддерживаю, из-за var будет 30, а как может быть по другому? Если по значению, то будет 20.

Вроде очевидно, что во всех языках. Если там поддерживается передача по ссылке, то будет 30. Если не поддерживается, то пример транслировать нельзя и скорее всего будет 20. В чем смысл вопроса?


Pavia ©   (01.06.17 06:15[6]

В том что var это не должен быть передачью по ссылке. Это должно быть передача по значению с возвратом результата.


Inovet ©   (01.06.17 06:38[7]

> [6] Pavia ©   (01.06.17 06:15)
> Это должно быть передача по значению с возвратом результата

Это как?


Pavia ©   (01.06.17 07:36[8]

Всмысле как? То как описывал Вирт. Он специально отказался от передачи по ссылке и по указателю. Введя понятия var и const. И мне обсолютно не прнятно почему  Delphi не следует стандарту.


Юрий Зотов ©   (01.06.17 08:26[9]

>  Pavia ©   (01.06.17 06:15) [6]

> var это не должен быть передачью по ссылке. Это должно быть
> передача по значению с возвратом результата.


Допустим, что так. Но тогда сразу возникают вопросы:
- по какому адресу надо этот результат разместить?
- как вызывающая сторона узнает этот адрес?


Inovet ©   (01.06.17 08:38[10]

> [8] Pavia ©   (01.06.17 07:36)
> То как описывал Вирт.

Напомни точную цитату, я наверное и не читал Вирта, но как уже сказал ЮЗ, фактически компилятор должен генерировать 2 параметра - один для значения, второй для возврата, что нарушает саму идею о возможности модификации передаваемого параметра в вызываемой функции.


Юрий Зотов ©   (01.06.17 08:49[11]

> Pavia ©   (01.06.17 07:36) [8]

> ... Вирт ... специально отказался от передачи по ссылке и по указателю.
>  Введя понятия var и const.


Насколько помню, при передаче параметров в Паскале Вирт ни от чего не отказывался и атрибут const для параметров не вводил. Этот атрибут появился только в Delphi, причем даже и не в ранних версиях. А у Вирта - как у Вирта, все просто и четко:

- есть var - передается адрес;
- нет var - передается значение.


Pavia ©   (01.06.17 09:00[12]


> Допустим, что так. Но тогда сразу возникают вопросы:- по
> какому адресу надо этот результат разместить?- как вызывающая
> сторона узнает этот адрес?

Для результата функции с типом record они это сделали.
Если функция возвращает запись. То в стеке формируется переменная под эту запись. В параметры функции добавляется ещё одно поле с указателем на это переменную. По выходу из функции вызывающая сторона копирует данные из временной переменной в ту которой должна присвоить по коду.

Для var можно поступить так же. Для оптимизации всёже будем использовать ссылки. Если в функцию передаются разные переменные они передаются по ссылке. Если одна переменная передаётся 2 и более раз. Для них заводятся локальные переменные по числу дублей минус оригинал. Размножаем исходную переменную. И вызываем функцию как обычно.
Только вначале теневые копии, а в конце оригинальная переменная.
Тогда выходные данные сразу попадут в оригинальную переменную без лишнего копирования. На изменения будет влиять крайний правый параметр.

Можно и без ссылок. Значения записываются во стековый фрейм. Фрейм имеет размеры по размер всех параметров. Затем вызываем функция. По выходу из фрейма обратно пересылаются в нужные переменные. При таком подходи получается что за освобождение и выделение памяти отвечает вызывающая сторона.

Важно, что в результате алгоритм-функции будет предсказуем. Изменение b не будет приводить к изменению переменной a.

Насколько слышал в Питоне как-то это же реализовано. По крайней мере переменные не ведут себя подобно запутанным-фотонам.


Kerk ©   (01.06.17 09:17[13]


> Если одна переменная передаётся 2 и более раз. Для них заводятся
> локальные переменные по числу дублей минус оригинал. Размножаем
> исходную переменную. И вызываем функцию как обычно.

Ну допустим. А что тогда должен вывести на консоль такой код:
var
 t1:Integer;

function foo(var a,b:Integer):Integer;
begin
 a:=10;
 b:=20;
end;

begin
 foo(t1,t1);
 WriteLn(t1);
end.


Юрий Зотов ©   (01.06.17 09:47[14]

> переменные не ведут себя подобно запутанным-фотонам

Есть var - передается адрес;
Нет var - передается значение.

Где тут путаница?


Юрий Зотов ©   (01.06.17 09:53[15]

> Kerk ©   (01.06.17 09:17) [13]

> что тогда должен вывести на консоль такой код


Такой код должен вывести: "Аффтар, убей сибя ап стену".
:o)


Игорь Шевченко ©   (01.06.17 10:35[16]

Юрий Зотов ©   (01.06.17 09:53) [15]

"Еще не хотелось бы видеть открытого коверканья русского языка, использования уличного сленга. Это конечно не наказуемо, но помните, что Ваши слова будут читать люди, которые с ними могут быть незнакомы, или они им просто неприятны.
"

Мне - просто неприятно


Pavia ©   (01.06.17 13:25[17]


> Kerk ©   (01.06.17 09:17) [13]

Я уже написал. Крайнее правое (var a,b:Integer). То бишь значение b.
Это логичнее, чем передавать по ссылке. И наводить путаницу.


Kerk ©   (01.06.17 17:40[18]


> Pavia ©   (01.06.17 13:25) [17]
>
>
> > Kerk ©   (01.06.17 09:17) [13]
>
> Я уже написал. Крайнее правое (var a,b:Integer). То бишь
> значение b.
> Это логичнее, чем передавать по ссылке. И наводить путаницу.

Ну вот вообще ни разу не логичнее


Тимохов Дима ©   (02.06.17 14:15[19]

Ну 30 должно быть, очевидно же?

С этими var'ами много чудес. Особенно с неявными.
Ниже код.
Без теста, кто скажет, Button1 и Button2 полностью ли идентичны?


type
  TPerson = record
     FIO: String;
     Age: Integer;
     // Потенциально могут добавляться члены.
  end;

function InitPerson(const FIO: String; Age: Integer): TPerson;
begin
  // Дабы не оставить возможные новые члены
  // не инициализированными инициализируем нулям.
  FillChar(Result, SizeOf(Result), 0);
  Result.FIO := FIO;
  Result.Age := Age;
end;

procedure TForm_Tests.Button1Click(Sender: TObject);
var
  Person: TPerson;
  Persons: array of TPerson;
begin
  SetLength(Persons, 3);

  Person := InitPerson('И.И. Иванов', 40);
  Persons[0] := Person;

  Person := InitPerson('И.И. Сидоров', 42);
  Persons[1] := Person;

  Person := InitPerson('И.И. Петров', 45);
  Persons[2] := Person;
end;

procedure TForm_Tests.Button2Click(Sender: TObject);
var
  Persons: array of TPerson;
begin
  SetLength(Persons, 3);
  Persons[0] := InitPerson('И.И. Иванов', 40);
  Persons[1] := InitPerson('И.И. Сидоров', 42);
  Persons[2] := InitPerson('И.И. Петров', 45);
end;


Страницы: 1 2 версия для печати

Написать ответ

Ваше имя (регистрация  E-mail 







Разрешается использование тегов форматирования текста:
<b>жирный</b> <i>наклонный</i> <u>подчеркнутый</u>,
а для выделения текста программ, используйте <code> ... </code>
и не забывайте закрывать теги! </b></i></u></code> :)


Наверх

  Рейтинг@Mail.ru     Титульная страница Поиск, карта сайта Написать письмо