среда, 3 июня 2009 г.

Re: Pascal

и тут еще одну надо я ее написал, но не полностью подскажите:

Дана последовательность из 100 целых чисел,определить кол-во чисел в наиболее длинной последовательности.Из подряд идущих чилел.

Порассуждаем.

0) не забываем заполнить массив значениями - прежде чем работать с ним...

например случайными числами от 0 до 100

var
A: array [0..99] of integer
i: integer;
begin
for i:=0 to 99 do A[i] := random(100)

1) как определить идут ли числа последовательно?
если значение текущего элемента массива - 1 равно предыдущему элементу массива - тогда можно считать что числа идут последовательно и увеличить счётчик

if A[i]-1 = A[i-1] then ...

2) иначе надо проанализировать принимал ли наш счётчит большее значение чем полученное - если нет то присвоить ему новое значение - для этого мы определим новую переменную max_counter
var    max_counter: integer;
begin    counter := 1;    max_counter := 1;    ...
   if counter > max_counter then max_counter := counter


4) ну и готовый пример скачиваем тут

Комментариев нет:

Отправить комментарий