|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Правильно ли что в файле числа записаны в порядке возростания...
Дан файл чисел проверить записаны ли числа в порядке возрастания?
вот код, только не знаю верно ли написан алгоритм? Цитата:
|
#2
|
||||
|
||||
1.А какой тип поля Age?
Если integer - то алгоритм неправильный, поскольку n+1 всегла больше n 2. Программа выдаст результат только для последней записи, поскольку поле слова do нет программных скобок (begin...end) Кнопка "+" - весы в правом верхнем углу сообщения... Последний раз редактировалось mak-karpov, 02.07.2009 в 20:31. |
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
ну запоминай в какой-нибудь переменной
например так Код:
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 //Неправильно Кнопка "+" - весы в правом верхнем углу сообщения... |
#5
|
|||
|
|||
Цитата:
Спасибо Вам огромное! |