[boxep]

Дан файл чисел проверить записаны ли числа в порядке возрастания?

вот код, только не знаю верно ли написан алгоритм?

var pos:Tstudent;
begin
seek(F,0);
while not eof(F) do
read (f,pos);
if pos.age+1 > pos.age then
showmessage('Yes')
else
showmessage('No');

[mak-karpov]

1.А какой тип поля Age?
Если integer - то алгоритм неправильный, поскольку n+1 всегла больше n

2. Программа выдаст результат только для последней записи, поскольку поле слова do нет программных скобок (begin...end)

[boxep]

Сообщение от mak-karpov

1.А какой тип поля Age?
Если integer - то алгоритм неправильный, поскольку n+1 всегла больше n

2. Программа выдаст результат только для последней записи, поскольку поле слова do нет программных скобок (begin...end)

Да, integer, а как тогда их сравнить следующий и настоящий? Что то не врубаюсь?

[mak-karpov]

ну запоминай в какой-нибудь переменной
например так

Код:

var c : Integer;
      b : boolean;
      pos : TStudent;
begin
seek(F,0);
c := 0;
b := true;
while not eof(F) do begin
   read (f,pos);
   if pos.Age <= c then b := false;
   c := pos.Age;
end;
if b then //Правильно
     else //Неправильно 

[boxep]

Сообщение от mak-karpov

ну запоминай в какой-нибудь переменной
например так

Код:

var c : Integer;
      b : boolean;
      pos : TStudent;
begin
seek(F,0);
c := 0;
b := true;
while not eof(F) do begin
   read (f,pos);
   if pos.Age <= c then b := false;
   c := pos.Age;
end;
if b then //Правильно
     else //Неправильно 

А это получается в "с" мы сохраняем предыдущее значение pos.Age и сравниваем. Блин оказывается так просто, а я не додумался
Спасибо Вам огромное!