Помощь - Поиск - Пользователи - Календарь
Полная версия: процедура, проверяющая возрастание
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
18192123
мне нужно проверить, все ли строки в матрице упорядочены по возрастанию

похоже, я не учла какое-то условие
объясните пожалуйста, какого условия не хватает


program vozr;
uses crt;
const n=3;
type matr=array[1..n,1..n]of integer;
procedure input(var a:matr);
var i,j:1..n;
begin
writeln ('vvedite elementi');
for i:=1 to n do
for j:=1 to n do read (a[i,j]);
end;
procedure check(var a:matr);
var i,j:1..n;
f,check:boolean;
begin
f:=true;
i:=1;
while (i<=n)and(f=true) do
begin
j:=1;
while (j<n)and(a[i,j]<=a[i,j+1]) do
j:=j+1;
end;
check:=f;
writeln (check);
end;
VAR a:matr;
BEGIN
clrscr;
input(a);
check(a);
readkey;
end.





volvo
Смотри, что ты делаешь:

{ идешь по строке, начиная с первого элемента }
j := 1;
{ пока не конец строки и следующий эл-т НЕ меньше предыдущего }
while (j<n) and (a[i,j]<=a[i,j+1]) do
{ увеличивать индекс }
j:=j+1;

{
а вот тут надо проверить, на каком месте цикл закончился.
Если j = n, то значит, сработал контроль выхода за предел строки,
а сама строка является НЕубывающей, иначе - строка НЕ является
неубывающей (в ней был элемент, нарушивший отношение <= )
}
check := (j = n); { <--- Это ты забыла }
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.