помогите найти ошибку

[лена99]

5 задача

var a:real;
x:array[1..255] of real;
i,k:integer;

begin
Write ('Vvedite A: ');
readln (A);
writeln;
i:=1;
k:=1;
Writeln ('Write x[',i,']: ');
readln(x[i]);
repeat
inc (i);
inc (k);
Writeln ('Write x[',i,']: ');
readln(x[i]);
until abs(x[i])+abs(x[i-1])>A;
writeln;
writeln ('Vsego vvedeno: ',k,' chisel');
readln
end.

[Stilet]

А как вас учили сравнивать складывать и вычитать векторы?

[лена99]

мы подобные задачи не разбирали

[Аватар]

И вообще не знаете что такое вектор, как складывать, вычитать и сравнивать их? Бедная девочка.
http://webmath.exponenta.ru/dnu/lc/a...tli1/node3.htm здесь сложение
вычитание - вычитаемое меняет направление на противоположное и сложение
сравнение - по модулю, т.е. сравнение длин

[type_Oleg]

Сообщение от Аватар

.. сравнение - по модулю, т.е. сравнение длин

Не, так ты ее вообще запутаешь. Ей не надо сравнивать длины, как я понял. Надо сравнить только первые координаты ( или первые элементы) :
a1 < b1

[Аватар]

Ей не надо сравнивать длины

Похоже да. Тогда еще проще, длину вектора не нужно высчитывать

[Stilet]

Так, стоп! Это же математический вектор, так?
А о каком векторе идет речь в задании?
Помнится мне в ВУЗе нам тоже давали подобную гадость, но там использовались другие алгоритмы.

мы подобные задачи не разбирали

Ну а в методичке то хоть пример есть?

[Аватар]

Математические, а какие еще бывают?

a={x1;y1}
b={x2;y2}
a+b={x1+x2;y1+y2}
a-b={x1-x2;y1-y2}

[type_Oleg]

В математике вектор - любой массив в виде столбца или строки чисел. То есть с любым количеством элементов.
В физике вектор - массив с количеством элементов 2 ( на плоскости) или 3 ( в пространстве).
А действия с ними - те же самые.

[Аватар]

В физике тоже многомерные бывают. Это только в механике 3-мерные. Но это тоже только математика и не более того