Задания (стр. 3 )

3) Сумме всех эле­мен­тов мас­си­ва А, мень­ших по­след­не­го эле­мен­та мас­си­ва

4) Ин­дек­су пер­во­го эле­мен­та мас­си­ва А, ко­то­рый мень­ше A[n]

20. За­да­ние 20 № 000. Ниже на 4-х язы­ках за­пи­сан ал­го­ритм. По­лу­чив на вход число x, этот ал­го­ритм пе­ча­та­ет два числа a и b.

Бей­сик	Пас­каль
DIM X, A, B AS INTEGER INPUT X A = 0: B = 1 WHILE X > 0 A = A + 1 B = B * (X MOD 10) X = X \ 10 WEND PRINT A PRINT B	var x, a, b: integer; begin readln(x); a: = 0; b: = 1; while x>0 do begin a : = a + 1; b : = b * (x mod 10); x : = x div 10 end; writeln(a); write(b); end.
Си	Ал­го­рит­ми­че­ский язык
#include<stdio. h> void main() { int x, a, b; scanf("%d", &x); a = 0; b = 1; while (x>0){ a = a + 1; b = b * (x%10); x = x/10; } printf("%d\n%d", a, b); }	алг нач цел x, a, b ввод x a: = 0; b: = 1 нц пока x>0 a : = a + 1 b : = b * mod(x,10) x : = div(x,10) кц вывод a, нс, b кон

Ука­жи­те наи­мень­шее из таких чисел x, при вводе ко­то­рых ал­го­ритм пе­ча­та­ет сна­ча­ла 3, а потом 14.

21. За­да­ние 21 № 000. Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го ал­го­рит­ма:

Var a, b,t, M,R :integer;

Function F(x:integer):integer;

begin

F:=2*(x-9)*(x-9)+12;

end;

BEGIN

a:= -20; b:=20;

M:=a; R:=F(a);

for t:=a to b do begin

if (F(t)< R)then begin

M:=t;

R:=F(t);

end;

end;

write(M);

END.

22. За­да­ние 22 № 000. Ис­пол­ни­тель Б22 пре­об­ра­зу­ет целое число, за­пи­сан­ное на экра­не.

У ис­пол­ни­те­ля три ко­ман­ды, каж­дой ко­ман­де при­сво­ен номер:

1. При­бавь 1

2. При­бавь 2

3. При­бавь преды­ду­щее

Пер­вая ко­ман­да уве­ли­чи­ва­ет число на экра­не на 1, вто­рая уве­ли­чи­ва­ет это число на 2, тре­тья при­бав­ля­ет к числу на экра­не число, мень­шее на 1 (к числу 3 при­бав­ля­ет­ся 2, к числу 11 при­бав­ля­ет­ся 10 и т. д.). Про­грам­ма для ис­пол­ни­те­ля Б22 – это по­сле­до­ва­тель­ность ко­манд.

Сколь­ко су­ще­ству­ет про­грамм, ко­то­рые число 3 пре­об­ра­зу­ют в число 10?

23. За­да­ние 23 № 000. Сколь­ко су­ще­ству­ет раз­лич­ных на­бо­ров зна­че­ний ло­ги­че­ских пе­ре­мен­ных x1, x2, x3, x4, x5, x6, y1, y2, y3, y4, y5, ко­то­рые удо­вле­тво­ря­ют всем пе­ре­чис­лен­ным ниже усло­ви­ям?

(x1 → x2) ∧ (x2 → x3) ∧ (x3 → x4) ∧ (x4 → x5 ) = 1

(y1 → y2) ∧ (y2 → y3) ∧ (y3 → y4) ∧ (y4 → y5 ) = 1

x5 ∨ y1 = 1

В от­ве­те не нужно пе­ре­чис­лять все раз­лич­ные на­бо­ры зна­че­ний пе­ре­мен­ных x1, x2, x3, x4, x5, x6, y1, y2, y3, y4, y5, при ко­то­рых вы­пол­не­на дан­ная си­сте­ма ра­венств. В ка­че­стве от­ве­та вам нужно ука­зать ко­ли­че­ство таких

на­бо­ров.

24. За­да­ние 24 № 000.  Тре­бо­ва­лось на­пи­сать про­грам­му, ко­то­рая вво­дит с кла­ви­а­ту­ры ко­ор­ди­на­ты точки на плос­ко­сти (, — дей­стви­тель­ные числа) и опре­де­ля­ет при­над­леж­ность точки за­штри­хо­ван­ной об­ла­сти, вклю­чая её гра­ни­цы. Про­грам­мист то­ро­пил­ся и на­пи­сал про­грам­му не­пра­виль­но.

Пас­каль	Бей­сик	Си
var x, y: real; begin readln(x, y); if x*x+y*y>=4 then if x>= –2 then if y<= –x then write('при­над­ле­жит') else write('не при­над­ле­жит') end.	INPUT x, y IF x*x+y*y>=4 THEN IF x>= –2 THEN IF y<= –x THEN PRINT "при­над­ле­жит" ELSE PRINT "не при­над­ле­жит" ENDIF ENDIF ENDIF END	void main() { float x, y; scanf("%f %f",&x,&y); if (x*x+y*y>=4) if (x>= –2) if (y<= –x) printf("при­над­ле­жит"); else printf("не при­над­ле­жит"); }

По­сле­до­ва­тель­но вы­пол­ни­те сле­ду­ю­щее.

1. Пе­ре­ри­суй­те и за­пол­ни­те таб­ли­цу, ко­то­рая по­ка­зы­ва­ет, как ра­бо­та­ет про­грам­ма при ар­гу­мен­тах, при­над­ле­жа­щих раз­лич­ным об­ла­стям (A, B, C, D, E, F, G и H).

Точки, ле­жа­щие на гра­ни­цах об­ла­стей, от­дель­но не рас­смат­ри­вать. В столб­цах усло­вий ука­жи­те "да", если усло­вие вы­пол­нит­ся, "нет", если усло­вие не вы­пол­нит­ся, "—" (про­черк), если усло­вие не будет про­ве­рять­ся, "не изв.", если про­грам­ма ведет себя по-раз­но­му для раз­ных зна­че­ний, при­над­ле­жа­щих дан­ной об­ла­сти. В столб­це "Про­грам­ма вы­ве­дет" ука­жи­те, что про­грам­ма вы­ве­дет на экран. Если про­грам­ма ни­че­го не вы­во­дит, на­пи­ши­те "—" (про­черк). Если для раз­ных зна­че­ний, при­над­ле­жа­щих об­ла­сти, будут вы­ве­де­ны раз­ные тек­сты, на­пи­ши­те "не изв". В по­след­нем столб­це ука­жи­те "да" или "нет".

2. Ука­жи­те, как нужно до­ра­бо­тать про­грам­му, чтобы не было слу­ча­ев ее не­пра­виль­ной ра­бо­ты. (Это можно сде­лать не­сколь­ки­ми спо­со­ба­ми, до­ста­точ­но ука­зать любой спо­соб до­ра­бот­ки ис­ход­ной про­грам­мы.)

Об­ласть	Усло­вие 1 (x*x+y*y>=4)	Усло­вие 2 (x>= –2)	Усло­вие 3 (y<= –x)	Про­грам­ма вы­ве­дет	Об­ласть об­ра­ба­ты­ва­ет­ся верно
A
В
С
D
Е
F
G
Н

25. За­да­ние 25 № 000. Дан мас­сив, со­дер­жа­щий 70 целых чисел. Опи­ши­те на одном из язы­ков про­грам­ми­ро­ва­ния эф­фек­тив­ный ал­го­ритм, поз­во­ля­ю­щий найти и вы­ве­сти наи­боль­шую раз­ность двух чисел, со­дер­жа­щих­ся в мас­си­ве. Ис­ход­ные дан­ные объ­яв­ле­ны так, как по­ка­за­но ниже. За­пре­ща­ет­ся ис­поль­зо­вать пе­ре­мен­ные, не опи­сан­ные ниже, но раз­ре­ша­ет­ся ис­поль­зо­вать часть из опи­сан­ных пе­ре­мен­ных.

Пас­каль	Ал­го­рит­ми­че­ский язык
const N=70; var a: array [1..N] of integer; i, j, x, y: integer; begin for i := 1 to N do readln(a[i]); … end.	алг нач цел N=70 цел­таб a[1:N] цел i, j, x, y нц для i от 1 до N ввод a[i] кц ... кон
Бей­сик	Си
N=70 DIM A(N) AS INTEGER DIM I, J, X, Y AS INTEGER FOR I = 1 TO N INPUT A(I) NEXT I … END	#include <stdio. h> #define N 70 void main(void){ long a[N]; long i, j, x, y; for (i=0; i < N; i++) scanf("%d", &a[i]); … }

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