Как сделать, чтобы процедура ввернула число?

[DenNik2006]

вот такой вопрос: чем отличается реализация эта

Сообщение от ZuBy

procedure MyProcedure(const a, b: byte; out c: byte);
begin
  c := a+b;
end;

от этой

procedure MyProcedure(const a, b: byte; var c: byte);
begin
  c := a+b;
end;

[chertovich]

Сообщение от DenNik2006

вот такой вопрос: чем отличается реализация эта


от этой

procedure MyProcedure(const a, b: byte; var c: byte);
begin
  c := a+b;
end;

Если я не ошибаюсь, при var можно передавать переменную для обработки подпрограммой и возможностью её изменения, а out - только выведения резлультата. Хотя я как-то по привычки использую var, но лучше разбивать код на более мелкие части, чтобы код был прост и понятен

[ZuBy]

DenNik2006, в данном примере разницы нет.
а вообще out автоматически очищается при входе в процедуру, это удобно например при получении из процедуры данных записи (record)

[Stilet]

смотрим на вопрос несколько шире,

Согласен. Накидали разнообразия )

[chertovich]

Сообщение от ZuBy

DenNik2006, в данном примере разницы нет.
а вообще out автоматически очищается при входе в процедуру, это удобно например при получении из процедуры данных записи (record)

Врядли она очищается, а если и да, то заполняется 0 и все.
На счет разницы, возможно есть небольшое преимущество в производительности, ведь не нужно передавать лишний параметр, всего лишь выделить для него память

[ZuBy]

Сообщение от chertovich

Врядли она очищается, а если и да, то заполняется 0 и все.

ну ведь очищается, я же не говорил что она уничтожается
это аналогично FillChar

[p51x]

И какой идиот считает, что процедура возвращает значение через ВАР?

Тогда функция возвращает несколько значений... Если для вас нет разницы между вернуть значение и изменить параметр, то причем тут процедура?

http://en.wikipedia.org/wiki/Side_ef...mputer_science)

[chertovich]

Сообщение от p51x

И какой идиот считает, что процедура возвращает значение через ВАР?

Тогда функция возвращает несколько значений... Если для вас нет разницы между вернуть значение и изменить параметр, то причем тут процедура?

http://en.wikipedia.org/wiki/Side_ef...mputer_science)

1. Не стоит никого оскорблять)
2. Изучай делфи: http://www.snkey.net/books/delphi/ch1-6.html

Использование параметров

Параметры в процедурах и функциях могут применяться не только по своему прямому предназначению - для передачи данных подпрограмме, но так же могут быть использованы для возвращения значений. Подобное их использование может быть вызвано, например, необходимостью получить более одного значения на выходе функции. Синтаксис объявления параметров в таком случае несколько отличается от стандартного - перед именем параметра следует использовать ключевое слово var:
procedure Circle (square: real; var radius, length: real);

Данная процедура принимает "на обработку" одно значение - площадь (square), а возвращает через свои параметры два - радиус (radius) и длину окружности (length). Практическая ее реализация может выглядеть таким образом:
procedure Circle (square: real; var radius, length: real);
begin
radius := sqrt(square / pi); // функция pi возвращает значение числа ?
length := pi * radius * 2;
end;

Теперь, чтобы воспользоваться этой функцией, следует объявить в программе 2 переменные, которые будут переданы в качестве аргументов этой процедуре и получат результаты. Их имена не важны, важно лишь, чтобы они были такого же, или совместимого типа, т.е. вещественные, например:
var r,l: real;
...
Circle(100,r,l);

После вызова функции Circle, переменные r и l получат значения радиуса и длины окружности. Остается их вывести при помощи writeln. Исходный код программы приведен в листинге 6.3.

Листинг 6.3. Процедура с параметрами
program params;
{$APPTYPE CONSOLE}
procedure Circle (square: real; var radius, length: real);
begin
//функция sqrt извлекает корень, а функция pi возвращает значение числа ?
radius := sqrt(square / pi);
length := pi * radius * 2;
end;
var
r,l: real;
begin
Circle(100,r,l);
writeln(r);
writeln(l);
readln;
end.

[hon]

Спасибо всем!

[ZuBy]

Сообщение от hon

Спасибо всем!

тонкий намек, тема Закрыта)