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


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

Дан мас­сив, со­дер­жа­щий 2014 ве­ще­ствен­ных чисел. На­пи­ши­те на одном из язы­ков про­грам­ми­ро­ва­ния про­грам­му, на­хо­дя­щую в этом мас­си­ве два со­сед­них эле­мен­та, зна­че­ния ко­то­рых на­и­ме­нее близ­ки, то есть аб­со­лют­ная ве­ли­чи­на их раз­но­сти мак­си­маль­на. Если таких пар не­сколь­ко, можно взять любую из них. Про­грам­ма долж­на вы­ве­сти най­ден­ные эле­мен­ты. Ис­ход­ные дан­ные объ­яв­ле­ны так, как по­ка­за­но ниже. За­пре­ща­ет­ся ис­поль­зо­вать пе­ре­мен­ные, не опи­сан­ные ниже, но раз­ре­ша­ет­ся не ис­поль­зо­вать часть из опи­сан­ных.

 

Бей­сикПас­каль

N=2014

DIM A(N) AS SINGLE

DIM D, R AS SINGLE

DIM I, J, K AS INTEGER

FOR I = 1 TO N

INPUT A(I)

NEXT I

END

const

N=2014;

var

a: array [1..N] of real;

d, r: real;

i, j, k: integer;

begin

for i:=1 to N do

readln(a[i]);

end.

Си++Ал­го­рит­ми­че­ский язык

#include <iostream>

using namespace std;

#include <math.h>

#define N 2014

int main(){

float a[N];

float d, r;

int i, j, k;

for (i=0; i < N; i++)

cin >> a[i];

}

алг

нач

цел N=2014

ве­щтаб a[1:N]

вещ d, r;

цел i, j, k

нц для i от 1 до N

ввод a[i]

кц

кон

Python

# до­пус­ка­ет­ся также

# ис­поль­зо­вать две

# це­ло­чис­лен­ные пе­ре­мен­ные j, k

# и ве­ще­ствен­ные d, r

a = []

n = 2014

for i in range(0, n):

    a.append(int(input()))

...

 

В ка­че­стве от­ве­та Вам не­об­хо­ди­мо при­ве­сти фраг­мент про­грам­мы, ко­то­рый дол­жен на­хо­дить­ся на месте мно­го­то­чия. Вы мо­же­те за­пи­сать ре­ше­ние также на дру­гом языке про­грам­ми­ро­ва­ния (ука­жи­те на­зва­ние и ис­поль­зу­е­мую вер­сию языка про­грам­ми­ро­ва­ния, на­при­мер Free Pascal 2.4). В этом слу­чае вы долж­ны ис­поль­зо­вать те же самые ис­ход­ные дан­ные и пе­ре­мен­ные, какие были пред­ло­же­ны в усло­вии.

Ре­ше­ние.

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

 

При­мер фраг­мен­та про­грам­мы на Пас­ка­ле

r:=abs(a[2]-a[1]);

k:=1;

for i:=2 to N-1 do begin

d:=abs(a[i+1]-a[i]);

if d>r then begin

r:=d;

k:=i;

end;

end;

writeln(a[k], ' ', a[k+1]);

 

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

 

При­мер про­грам­мы на Си

r=0;

j=0; k=1;

for (i=0; i d=fabs(a[i+1]-a[i]);

if (d>r) {

r=d;

j=i; k=i+1;

}

}

printf("%f %f\n", a[j], a[k]);

 

Можно хра­нить не ин­дек­сы, а зна­че­ния эле­мен­тов. Но по­сколь­ку раз­ре­ше­но ис­поль­зо­ва­ние толь­ко двух ве­ще­ствен­ных пе­ре­мен­ных, в этом слу­чае не удаст­ся за­по­ми­нать раз­но­сти, их придётся каж­дый раз вы­чис­лять за­но­во.

 

При­мер про­грам­мы на Ал­го­рит­ми­че­ском языке

d:=a[1]; r:=a[2]

нц для i от 2 до N-1

если abs(a[i+1]-a{i]) > abs(r-d) то

d:=a[i]

r:=a[i+1]

все

кц

вывод d, " ", r

 

До­пус­ка­ют­ся и дру­гие спо­со­бы ре­ше­ния, если они со­от­вет­ству­ют ука­зан­ным в усло­вии огра­ни­че­ни­ям и при­во­дят к пра­виль­но­му от­ве­ту.