сложные циклы. обработка массивов, новые последовательности Опции

[злой тапОК]

Даны 2 последовательности чисел а1, а2, ... , an и b1, b2, ... , bn . Сформулировать новые последовательности, элементы которых вычисляются по следующему правилу :

ai = ai + bi,
bi = ai - bi,
i = 1, 2, ..., n.

[klem4]

Предположительно так:

for i := 1 to n do begin
  a[i] := a[i] + b[i];
  b[i] := a[i] - 2 * b[i];
end;

[злой тапОК]

ну тагда почему

b[i] := a[i] - 2 * b[i];

а не

b[i] := a[i] - b[i];

???

[klem4]

смотри

a[i] = 5; // a[i] + b[i] = 9;
b[i] = 4; // a[i] - b[i] = 1;

a[i] := a[i] + b[i] == 9;
b[i] := a[i] - b[i] == 5; // неувязочка вышла ....

b[i] := a[i] - 2 * b[i] = 9 - 2 * 4 = 9 - 8 = 1; // все OK

[злой тапОК]

вроде ясна, спс

[volvo]

А если ...

for i := 1 to n do begin
  Avalue := a[i]; Bvalue := b[i];
  a[i] := Avalue + Bvalue;
  b[i] := Avalue - Bvalue;
end;

?

[злой тапОК]

ммм мы ещё

Avalue := a[i]; Bvalue := b[i];


не прахадили (вроде)

============================
а так я понял, что писал klem4, фсё спс

Сообщение отредактировано: злой тапОК - 5.12.2006 2:22

[volvo]

Чего вы "не прахадили"? Присваивание значений переменным? Как же ты вообще программы пишешь?

[klem4]

Дык volvo, я так сначала хотел, но зачем 2 лишние переменные