program main;
type
vector= array [1..18] of integer;
var
k:byte;
....
function posled(var M: vector):boolean;
var
bl:boolean;
i: byte;
begin
bl:=true;
if bl=true then
begin
for i:=1 to k do
if m<m[i+1] then bl:=false;
end;
posled:=bl
end;
Борахлит функция
Вот функция выполнявшие это условие "у каждого вектора, компоненты которого не образуют неубывающей последовательности "
Короче когда вожу '987' выдает true все правильно, но когда вожу 98-7 то выдает false. Почему?
Код:
Подозреваю что в К неправильное значение.
Если там длинна заполненой части то на последней итерацыи проверяет также незаполненый елемент. А там скорее всего 0
Вот и получается что 0 > -7. Крути цыкл до К-1
Если там длинна заполненой части то на последней итерацыи проверяет также незаполненый елемент. А там скорее всего 0
Вот и получается что 0 > -7. Крути цыкл до К-1
Большое спасибо всем...