|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Задача: Несколько школьников выстроились в шеренгу. Для каждого школьника известен
Несколько школьников выстроились в шеренгу. Для каждого школьника известен день (число) его рождения. Требуется:
Определить, является ли последовательность, образован¬ная заданными числами упорядоченной по убыванию; |
#2
|
|||
|
|||
ну и в чем проблема?
Только определись - как считать/сравнивать день рождения - с учетом месяца или нет. Вот простейшая функция для случая, когда месяц НЕ учитывается: Код:
function IsSequenceDec(A : Array Of Integer) : Boolean; var begin Result := True; For I := Low(A)+1 To High(A) Do Begin Result := A[i] < A[I-1]; If Not Result Then Break; End; end; |
#3
|
|||
|
|||
есть код на паскале,который нужно переделать в делфи
Код:
var n,i,a,b,k:integer; begin repeat write('Количество школьников n>1 n='); readln(n); until n>1; writeln('Введите рост школьников'); readln(a); k:=0; for i:=2 to n do begin readln(b); if b>a then k:=1; a:=b; end; if k=0 then write('Рост упорядочен по убыванию') else write('Рост не упорядочен по убыванию') end. Последний раз редактировалось Admin, 16.12.2016 в 22:00. |
#4
|
|||
|
|||
Ну, во первых, у тебя день рождения, а не рост (не принципиально).
Во вротых, а тебе консолька нужна? В третьих, а точно массив не нужен? |