Одно число одновременно в 2-е переменные.

[Леонид]

Бодрого дня, господа.
Возник такой вопрос - можно ли (и как) число, введенное с клавиатуры присвоить сразу двоим переменным?
Пимер:

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

program proga;
uses crt;
var Ind1,Ind2:integer;
begin
    write('Введи число: ');
//      readln или read ... - как тут быть?
//      или так:
        readln(Ind1);
        Ind2:=Ind1    // ???. Как-то не комильфо получается. Не красиво.
end.


[Дож]

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

program proga;
uses crt;

procedure BeautifulRead(out A, B: Integer);
begin
  Read(A);
  B := A;
end;

var Ind1,Ind2:integer;
begin
    write('Введи число: ');
    BeautifulRead(Ind1, Ind2);
end.


[Лекс Айрин]

А чем именно не комильфо?

Вообще, есть вариант с объявлением

[code]
Var
Ind1:integer;
Ind2:integer absolute Ind1;
/code]
Но это, фактически, использование псевдонима переменной. Так как значения всегда будут одинаковыми.
Вообще, не понял смысл? Если переменные на одном уровне и одного типа, то необходимость присваивания Ind2:=Ind1 сомнительна, если речь не идет о временном хранении, а в этом случае лучше делать присваивание явно.

Добавлено спустя 1 минуту 28 секунд:
Дож,, имхо, в данном случае, твоя прога ничем не отличается от проги ТС.

[Леонид]

Дож. Те же яйца, только в профиль.
Я думал, что можно как-то write(Ind1,Ind2); или еще как-то.
Ладно. Не пожар и не трагедия. Просто хотелось как-то красиво это сделать.

[zub]

Странные у вас тут понятия о красоте.

[Лекс Айрин]

zub, каждый затачивает карандаши по своему. Я, кстати, тоже удивился.

Добавлено спустя 2 минуты 6 секунд:
Леонид, никого данный вопрос просто не заморачивал.

[pupsik]

Я думал, что можно как-то write(Ind1,Ind2);

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

var
  a, b : integer;
begin
  WriteLn('a, b');
  Read(a, b);
  WriteLn('a =', a);
  WriteLn('b =', b);
  ReadLn;     


Или вы что то иное хотели?

[Лекс Айрин]

pupsik, он же явно сказал -- один раз прочитать сразу в две переменные что-то типа a:= b := c; (или a:= b, c)

[tema]

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

program proga;
uses crt;

procedure BeautifulRead(out A, B: Integer);
begin
  Readln(A);
  B := A;
end;

var Ind1,Ind2:integer;
begin
    write('Введи число: ');
    BeautifulRead(Ind1, Ind2);
end.


Это самый чёткий и правильный ответ на вопрос ТС. Именно то, что и запрошено.

[Лекс Айрин]

tema, в контексте темы этот ответ не проходит, так как он просто оборачивает проблемный участок. А с учетом оптимизации процедура может и вообще быть удалена. А если нет, то "за такое бьют больно и сажают надолго" (с).

Правильнее все же было признать, что такого механизма тупо нету.

[pupsik]

ввело в заблуждение: "write(Ind1,Ind2);"...

Тогда у меня вопрос: какой смысл в данной хм... Назначать одно и то же десятке переменных это что за кх..м "удобство"? Какое то новое веяние что ли?

[Леонид]

у меня вопрос: какой смысл в данной хм... Назначать одно и то же десятке переменных это что за кх..м "удобство"? Какое то новое веяние что ли?

Если спросил - значит хотелось. Вообще это был больше теоретический вопрос. А тут такие страсти разгорелись...

Считаю тему закрытой и не достойной обсуждения.

[Лекс Айрин]

Леонид, расслабься. Просто люди (и я в том числе, каюсь) реально не понимают зачем надо, вот и интересуются.

[pupsik]

Если спросил - значит хотелось.

и какова логическая постановка "хотелось"? Смысл плодить переменные и заполнять одним значением? Вот это реально хотелось бы узнать...

[java73]

Может вам еще

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

a,  b := b,  a

или лямбды принести? Или переменные не объявлять заранее? И foreach для любой структуры?
Меня уже тоже тут пообламывали с хотелками. В других темах.