Объясните новичку.

[Paster Fob]

informat,Здравствуйте.Запустил я вашу программку,ввёл цифру 9,пять раз подряд,вот что получилось:10,9,10,9,11.Теперь поясняю,формальный параметр а имеет ссылку на переменную х1,т.к перед а есть слово var.В теле процедуры выполняется действие a:=a+1=>9+1=10,результат возвращается через ссылку на переменную,поэтому в х1 попадает число 10.Формальный параметр b,не имеет ссылку на переменную,внутри процедуры будет подсчитано что 9+1=10,но результат из процедуры в главную программу не возвращается,поэтому в переменной х2 остаётся число 9.Формальный параметр с идентичен параметру а,а b идентичен d.Поэтому х3=10,а х4=9 соответственно.х5 как и все другие изначально равна 9,формальные параметры e и f имеют ссылку на одну и ту же переменную.е соответствует х5,в результате работы процедуры (е:=е+1=>9+1=10) через ссылку на переменную в x5 попадает 10.фактический параметр х5 используется дважды.Формальный параметр f соответствует х5,а т.к.х5 теперь равна 10,то в процедуре посчитается f:=f+1,т.е. 10+1=11.
Надеюсь что всё правильно написал и ничего не попутал.

Ещё пару задачек подкиньте...

[Oleg_D]

Хорошая задачка и ответ на 5+

[Maxizar]

Ещё пару задачек подкиньте...

Ну тогда вот:
Задача:
Даны два целых числа a и b. Если a делится на b (без остатка) или b делится на a (без остатка), то вывести 1, иначе - любое другое число. Условные операторы и операторы циклов не использовать.

[informat]

Ответ, действительно хороший, обстоятельный, но только на 5-.
Поясню.

informat
...
формальные параметры e и f имеют ссылку на одну и ту же переменную.е соответствует х5,в результате работы процедуры (е:=е+1=>9+1=10) через ссылку на переменную в x5 попадает 10.фактический параметр х5 используется дважды.Формальный параметр f соответствует х5,а т.к.х5 теперь равна 10,то в процедуре посчитается f:=f+1,т.е. 10+1=11.
...

Получается, что программа как бы "возвращается" за каждым параметром.
По вашему, если описать процедуру:

Код: Выделить всё

procedure Plus_2(var a, b: integer;  c: integer; var d: integer);
  begin
    a:=a+1; b:=b+1; d:=c
  end;


x5:=1;
то после вызова
Plus_2(X5, X5, X5+1, Y)
Y примет значение 4.

А на самом деле 2.

Добавлено спустя 5 минут 6 секунд:
Задачку. Пожалуйста.

Не запуская нужно сказать что выдаст эта программа.

Код: Выделить всё

program Proc_3;
var
  x5,Y : integer;

procedure Plus_3(var a, b: integer;  var c: integer);
begin
    a:=a+1;
    b:=b+1;
    c:=a;
end;

begin
  x5:=1;
  Plus_3(X5, X5, Y);
  writeln(Y);
end.

Проверьте запуском.

[Paster Fob]

Ответ, действительно хороший, обстоятельный, но только на 5-.
Поясню.

informat
...
формальные параметры e и f имеют ссылку на одну и ту же переменную.е соответствует х5,в результате работы процедуры (е:=е+1=>9+1=10) через ссылку на переменную в x5 попадает 10.фактический параметр х5 используется дважды.Формальный параметр f соответствует х5,а т.к.х5 теперь равна 10,то в процедуре посчитается f:=f+1,т.е. 10+1=11.
...

Получается, что программа как бы "возвращается" за каждым параметром.
По вашему, если описать процедуру:

Код: Выделить всё

procedure Plus_2(var a, b: integer;  c: integer; var d: integer);
  begin
    a:=a+1; b:=b+1; d:=c
  end;


x5:=1;
то после вызова
Plus_2(X5, X5, X5+1, Y)
Y примет значение 4.

А на самом деле 2.

Почему это 4?перед с нет слова var,следовательно результат не возвращается,Х5=1,Х5+1=2,с=2,d=c,d=>Y.Получается 2.

Добавлено спустя 15 минут 8 секунд:

Не запуская нужно сказать что выдаст эта программа.

Код: Выделить всё

program Proc_3;
var
  x5,Y : integer;

procedure Plus_3(var a, b: integer;  var c: integer);
begin
    a:=a+1;
    b:=b+1;
    c:=a;
end;

begin
  x5:=1;
  Plus_3(X5, X5, Y);
  writeln(Y);
end.

Проверьте запуском.

Я посчитал,что будет 2,на самом деле 3,ни как не пойму в чём прикол?

[Maxizar]

Вот запутали поцана, зачем....
Paster Fob смотри, когда параметр передается как Var, Это значит, что ты передаешь в подпрограмму не переменную! (тут остановились и подумали)
Еще разок:

Код: Выделить всё

Procedure P1(var a:Integer);


////
var A1:Integer;
begin
A1:=12;
P1(A1);
end;


Вот в процедуру P1, пришла не цифра 12... а аддрес памяти (Оперативной Памяти) в которой записано число 12.
По этому имея функцию:

Код: Выделить всё

procedure Plus_3(var a, b: integer;  var c: integer);
begin
    a:=a+1;
    b:=b+1;
    c:=a;
end;

Мы передаем параметры(переменны) а, b, с не как цифры, а как аддреса ячеек ОЗУ в которых эти самые числа(переменные) записаны.
Теперь еще разок но за один присест.
Предположим что:
x5 - в ОЗУ лежит по аддресу 120.
чего нибудь еще - в ОЗУ лежит по аддресу 124.
Y - в ОЗУ лежит по аддресу 128.

Тобишь мы в процедуру Plus_3() передали эти аддреса.

Код: Выделить всё

  x5:=1;
  Plus_3(X5, X5, Y);
  writeln(Y);

что значит по строкам:

Код: Выделить всё

x5:=1;

в переменную х5 записали число 1. Но ведь где хранится это чило? правильно в памяти, а в какой памяти? правильно в ОЗУ, а где именно хранится переменная x5, ну мы (просто) предположили, что по аддресу 120. Тобишь мы Записали в ОЗУ по адресу 120 число равное 1.

Код: Выделить всё

Plus_3(X5, X5, Y);

Мы передаем (как уже было сказано выше) не переменны и числа, а адреса.
тобишь войдя в процедуру:

Код: Выделить всё

procedure Plus_3(var a, b: integer;  var c: integer);
begin
    a:=a+1;
    b:=b+1;
    c:=a;
end;

Мы по аддресу переменной (мы передали переменную x5) тобишь

a= адресу переменной x5 и этот адрес =120.
b= адресу переменной x5 и этот адрес =120.
c= адресу переменной Y и этот адрес =128

До этого у нас X5 = 1.
После

Код: Выделить всё

a:=a+1;

уже х5=2. Почему.. потому что мы сказали, взять из ячейки записанное туда число и прибавить к нему 1 и записать опять в эту же ячейку (ячейку с адресом 120)
после

Код: Выделить всё

b:=b+1;

3. так как b=адресу переменной x5, а по адресу (120) уже записано число 2. тобишь после +1 будет уже 3

Код: Выделить всё

c:=a;

Ты говоришь что переменная С должна быть равна числу которое лежит по адресу переменной b, а по этому адресу у нас лежит переменная какая? прально x5 а что записано по аддресу в котором лежит переменная x5, число 3.. Что и требовалось доказать.

[Oleg_D]

Вот запутали поцана, зачем....

И запутали еще больше
По сути Вы правы, но парень до адресов не добрался еще.

Код: Выделить всё

program Proc_3;
var  x5,Y : integer;

procedure Plus_3(var a, b: integer;  var c: integer);
begin
    a:=a+1;    b:=b+1;    c:=a;
end;

begin
  x5:=1;
  Plus_3(X5, X5, Y);
  writeln(Y);
end.

Попробую проще объяснить. Дело в том, что согласно вызову Plus_3(X5, X5, Y) параметры процедуры A и B ссылаются на одну и ту же переменную X5. После операторов a:=a+1; b:=b+1; она становится равной 3, а затем копируется в переменную Y оператором c:=a.
Поблагодарим автора за эти полезные примерчики!

[informat]

Вот запутали поцана, зачем....

И запутали еще больше
По сути Вы правы, но парень до адресов не добрался еще.
Попробую проще объяснить. Дело в том, что согласно вызову Plus_3(X5, X5, Y) параметры процедуры A и B ссылаются на одну и ту же переменную X5. После операторов a:=a+1; b:=b+1; она становится равной 3, а затем копируется в переменную Y оператором c:=a.
Поблагодарим автора за эти полезные примерчики!

Спасибо.

Самое простое объяснение, которое я знаю, такое.
Переменные - это названия участка памяти. В последнем примере a, b и x5 - разные названия одного итого же участка памяти.
Это всё объясняет. А название в программе, в машинных кодах становится указателем на эту память (адресом).

[Maxizar]

да я наверное пересторался....

Paster Fob но это Вас не освобождает от моей задачи....
И ребята чур не подсказывать, пускай поломает голову над задачкой.

[Oleg_D]

Ну тогда вот:
Задача:
Даны два целых числа a и b. Если a делится на b (без остатка) или b делится на a (без остатка), то вывести 1, иначе - любое другое число. Условные операторы и операторы циклов не использовать.

Вы про эту задачку? Ну так она вроде не по теме передачи параметров в процедуры. Вы тогда сами намекните парнишке, из какой это оперы. А мы помолчим, конечно

[Maxizar]

Вы про эту задачку? Ну так она вроде не по теме передачи параметров в процедуры. Вы тогда сами намекните парнишке, из какой это оперы. А мы помолчим, конечно

Да про эту задачку.

Paster Fob - эта задачка на целые числа, нужно ухитрится решить эту задачу без использования условных операторов и различного рода циклов. Как это сделать: Ну вы должны одними операторами исхитрится так, чтоб все работало.... Но это уже подсказка при чем очень большая ... Так как вы дошли до подпрограмм, значит вы простые типы уже изучили. А целое число - это простой тип....

Задачка очень занимательная и очень поучительная, при этом она реально заставляет задуматься....

[Oleg_D]

Так как вы дошли до подпрограмм, значит вы простые типы уже изучили. А целое число - это простой тип....

Paster Fob, если Вы работаете по книге Песни о Паскале, то ищите нужные для задачи сведения в главах 32 и 33 - типы данных и их преобразования.
Впрочем, если не сможете решить эту задачку, не слишком огорчайтесь, - далеко не всякий "профи", зарабатывающий программированием, способен на такие трюки. Все приходит со временем.

[Paster Fob]

Я и не растраиваюсь.Что учусь по вашей книге,вы и так прекрасно знаете.Сейчас принялся за главу 24.Что бы решить задачку от Maxizar,нужно ещё немного подучиться,пока я не знаю как это сделать.Но в скором времени постараюсь,а вы не подсказывайте.

[minoshi]

Но в скором времени постараюсь,а вы не подсказывайте.

Искренне и от всей души : "Рекспект!"

[Brainenjii]

Oleg_D: не знаю, считается ли это подсказкой, но если судить по книге - то к 24 главе Maxizar'овскую задачку решить вполне себе можно ^_^