СДАМ ГИА: РЕШУ ЕГЭ
Образовательный портал для подготовки к экзаменам
Информатика
≡ информатика
сайты - меню - вход - новости


Задания
Версия для печати и копирования в MS Word
Задание 25 № 3647

Опи­ши­те на рус­ском языке или одном из язы­ков про­грам­ми­ро­ва­ния ал­го­ритм под­сче­та мак­си­маль­но­го ко­ли­че­ства под­ряд иду­щих эле­мен­тов, каж­дый из ко­то­рых боль­ше преды­ду­ще­го, в це­ло­чис­лен­ном мас­си­ве длины 30.

Ре­ше­ние.

При­мер пра­виль­но­го опи­са­ния ал­го­рит­ма на рус­ском языке.

За­во­дим пе­ре­мен­ную Maxlncr для хра­не­ния мак­си­маль­но­го ко­ли­че­ства под­ряд иду­щих в по­ряд­ке воз­рас­та­ния эле­мен­тов и счет­чик Numlncr для хра­не­ния числа эле­мен­тов в по­след­ней груп­пе воз­рас­та­ю­щих эле­мен­тов. Про­смат­ри­вая эле­мен­ты мас­си­ва, срав­ни­ва­ем оче­ред­ной эле­мент со сле­ду­ю­щим за ним. Если оче­ред­ной эле­мент мас­си­ва ока­зы­ва­ет­ся не мень­ше сле­ду­ю­ще­го, то срав­ни­ва­ем те­ку­щее зна­че­ние счет­чи­ка со зна­че­ни­ем пе­ре­мен­ной Maxlncr; если он боль­ше, то за­ме­ня­ем зна­че­ние пе­ре­мен­ной Maxlncr зна­че­ни­ем счет­чи­ка, при этом зна­че­ние Numlncr об­ну­ля­ет­ся. Так по­вто­ря­ем до конца мас­си­ва. В конце ра­бо­ты нужно еще раз срав­нить зна­че­ние счет­чи­ка со зна­че­ни­ем пе­ре­мен­ной Maxlncr и пе­ре­опре­де­лить ее, если счет­чик боль­ше.

При­мер пра­виль­ной и эф­фек­тив­ной про­грам­мы (на ос­но­ве ал­го­рит­ма, ис­поль­зу­ю­ще­го од­но­крат­ный про­ход по мас­си­ву):

 

ПРО­ГРАМ­МА НА ПАС­КА­ЛЕПРО­ГРАМ­МА НА БЕЙ­СИ­КЕ
Const N = 30;

Var A: array [1..N] of integer;

maxlncr, numlncr, i:integer;

Begin

maxlncr:=0;

numlncr:=0;

For i:= 1 to N-1 do

Begin

If a[i] < a[i+1] then

numlncr:=numlncr+1;

Else

Begin

If numlncr>maxlncr then

Maxlncr:=numlncr;

numlncr:=0;

End;

End;

If numlncr>maxlncr then maxlncr:=numlncr;

Writeln(maxlncr);

End.

N = 30

DIM i, Maxlncr, Numlncr, a(N) AS

INTEGER

Maxlncr=0

Numlncr=0

FOR i = 1 TO N-l

IF a(i)NumIncr=NumIncr+l

ELSE

IF NumIncr>MaxIncr THEN

MaxIncr=NumIncr

ENDIF

Numlncr=0

ENDIF'

NEXT i

IF NumIncr>MaxIncr THEN

MaxIncr=NumIncr

ENDIF

PRINT Maxlncr

END