SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Oaip
Цитата:| решить надо с помощью unit-ов и процедур |
любая (подчёркиваю ЛЮБАЯ) программа может быть разложена на процедуры, которые, можно выделить в отдельную библиотеку (unit) - даже WriteLn('Hello, world!')
вопрос, конечно, в целесообразности, но технически - никаких проблем!
умеете новые unit создавать и выносить туда процедуры???
Цитата:| Дана последовательность чисел: a1,a2,...,an. |
дык, раз не задано, каким именно образом "дана" последовательность, то выбираешь сам, как тебе удобнее. я бы предложил задать массив:
Код:
const
N = 12; {произвольно - сколько чисел может быть в последовательности максимально}
type
MyArray = array[1..N] of integer;
var
RealNumberInArray : integer;
A: MyArray;
|
Цитата:| Проверить, верно ли, что каждый член этой последовательности больше его номера. |
проверка в отдельной функции
Код:
function IsRealNumbersBiggerIndex(const TestA : MyArray; RealN : integer ) : boolean;
var k : integer;
begin
IsRealNumbersBiggerIndex := false;
for k:=1 to RealN do
if TestA[k]<=k then
Exit; {проверка провалилась - выходим, значение функции будет false}
IsRealNumbersBiggerIndex := true; {всё верно, все числа больше, чем их номера}
end;
|
Надеюсь, что дальше всё понятно?...
|
