Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ сложные циклы. обработка массивов

Автор: злой тапОК 5.12.2006 1:28

Даны 2 последовательности чисел а1, а2, ... , an и b1, b2, ... , bn . Сформулировать новые последовательности, элементы которых вычисляются по следующему правилу :
blink.gif
ai = ai + bi,
bi = ai - bi,
i = 1, 2, ..., n.
mega_chok.gif

Автор: klem4 5.12.2006 2:06

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


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


unsure.gif

Автор: злой тапОК 5.12.2006 2:11

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

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

а не

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

??? blink.gif

Автор: klem4 5.12.2006 2:15

смотри


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

Автор: злой тапОК 5.12.2006 2:17

good.gif вроде ясна, спс

Автор: volvo 5.12.2006 2:20

А если ...

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

?

Автор: злой тапОК 5.12.2006 2:21

ммм мы ещё

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


не прахадили (вроде)
dry.gif
============================
а так я понял, что писал klem4, фсё спс

Автор: volvo 5.12.2006 2:26

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

Автор: klem4 5.12.2006 2:26

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