четверг, 19 октября 2017 г.

9 класс_ Массивы

Вариант № 3078457

1. Задание 10 № 50
В таб­ли­це Dat хра­нят­ся дан­ные из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за 10 дней в гра­ду­сах (Dat[1] — дан­ные за пер­вый день, Dat[2] — за вто­рой и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический языкБейсикПаскаль
алгнач
целтаб Dat[1:10]
цел к, m
Dat[1] := 12
Dat[2] := 15
Dat[3] := 17
Dat[4] := 15
Dat[5] := 14
Dat[6] := 12
Dat[7] := 10
Dat[8] := 13
Dat[9] := 14
Dat[10] := 15
m := 20
нц для к от 1 до 10
если Dat[k] < m то
m : = Dat[k]
все
КЦ
вывод m
КОН
DIM Dat(10) AS INTEGER
DIM k,m AS INTEGER
Dat(1) = 12: Dat(2) = 15
Dat(3) = 17: Dat(4) = 15
Dat(5) = 14: Dat(6) = 12
Dat(7) = 10: Dat(8) = 13
Dat(9) = 14: Dat(10) = 15
m = 20
FOR k := 1 TO 10
IF Dat(k) < m THEN
m = Dat[k]
ENDIF
NEXT k
PRINT m
Var k, m: integer;
Dat: array[1...10] of integer;
Begin
Dat[1] := 12; Dat[2] := 15;
Dat[3] := 17; Dat[4] := 15;
Dat[5] := 14; Dat[6] := 12;
Dat[7] := 10; Dat[8] := 13;
Dat[9] := 14; Dat[10] := 15;
m := 20;
for k := 1 to 10 do
if Dat[k] < m then
begin
m := Dat[k]
end;
writeln(m);
End.
2. Задание 10 № 471
В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве поездов, от­прав­ля­ю­щих­ся с цен­траль­но­го вок­за­ла го­ро­да на юг в пер­вой де­ка­де июля (Dat[1] — ко­ли­че­ство по­ез­дов пер­во­го числа, Dat[2] — ко­ли­че­ство по­ез­дов вто­ро­го числа и т. д.). Определите, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го алгоритма, за­пи­сан­но­го на трёх ал­го­рит­ми­че­ских языках.

Алгоритмический языкБейсикПаскаль
алгнач
целтаб Dat[1:10]
цел k, m, day
Dat[1] := 2
Dat[2] := 6
Dat[3] := 3
Dat[4] := 5
Dat[5] := 4
Dat[6] := 4
Dat[7] := 5
Dat[8] := 3
Dat[9] := 6
Dat[10] := 2
day:=1; m := Dat[1]
нц для k от 2 до 10
если Dat[к] > m то
m:= Dat[k]
day := k
все
КЦ
вывод day
КОН
DIM Dat(10) AS INTEGER
Dat[1] = 2
Dat[2] = 6
Dat[3] = 3
Dat[4] = 5
Dat[5] = 4
Dat[6] = 4
Dat[7] = 5
Dat[8] = 3
Dat[9] = 6
Dat[10] = 2
day = 1: m = Dat(1)
FOR k = 2 TO 10
IF Dat(k) > m THEN
m = Dat(k)
day = k
END IF
NEXT k
PRINT day
END
Var k, m, day: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 2;
Dat[2] := 6;
Dat[3] := 3;
Dat[4] := 5;
Dat[5] := 4;
Dat[6] := 4;
Dat[7] := 5;
Dat[8] := 3;
Dat[9] := 6;
Dat[10] := 2;
day:=1; m := Dat[1];
for k := 2 to 10 do
if Dat[k] > m then
begin
m:= Dat[k];
day := k;
end;
write(day);
End.
3. Задание 10 № 1164
В таб­ли­це Dat хра­нят­ся дан­ные из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за 10 дней в гра­ду­сах (Dat[1] — дан­ные за пер­вый день, Dat[2] — за вто­рой и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический языкБейсикПаскаль
алг
нач
целтаб Dat[1:10]
цел k, m
Dat[1] := 12
Dat[2] := 15
Dat[3] := 17
Dat[4] := 15
Dat[5] := 14
Dat[6] := 12
Dat[7] := 10
Dat[8] := 13
Dat[9] := 14
Dat[10] := 15
m := 20
нц для k от 1 до 10
если Dat[k] < m то
m := Dat[k]
все
кц
вывод m
кон
DIM Dat(10) AS INTEGER
DIM k,m AS INTEGER
Dat(1) = 12: Dat(2) = 15
Dat(3) = 17: Dat(4) = 15
Dat(5) = 14: Dat(6) = 12
Dat(7) = 10: Dat(8) = 13
Dat(9) = 14:Dat(10) = 15
m = 20
FOR k = 1 TO 10
IF Dat(k) < m THEN
m = Dat(k)
ENDIF
NEXT k
PRINT m
Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 12; Dat[2] := 15;
Dat[3] := 17; Dat[4] := 15;
Dat[5] := 14; Dat[6] := 12;
Dat[7] := 10; Dat[8] := 13;
Dat[9] := 14; Dat[10] := 15;
m := 20;
for k := 1 to 10 do
if Dat[k] < m then
begin
m := Dat[k]
end;
writeln(m);
End.
4. Задание 10 № 230
В таб­ли­це Dat пред­став­ле­ны дан­ные о ко­ли­че­стве голосов, по­дан­ных за 10 ис­пол­ни­те­лей на­род­ных песен (Dat[1] — ко­ли­че­ство голосов, по­дан­ных за пер­во­го исполнителя, Dat[2] — за вто­ро­го и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический языкБейсикПаскаль
алгнач
целтаб Dat[1:10]
цел к, m
Dat[1] := 16
Dat[2] := 20
Dat[3] := 20
Dat[4] := 41
Dat[5] := 14
Dat[6] := 21
Dat[7] := 28
Dat[8] := 12
Dat[9] := 15
Dat[10] := 35
m := 0
нц для к от 1 до 10
если Dat[к] < 25 то
m : = m+1
все
КЦ
вывод m
КОН
DIM Dat(10) AS INTEGER
DIM k,m AS INTEGER
Dat(1) = 16: Dat(2) = 20
Dat(3) = 20: Dat(4) = 41
Dat(5) = 14: Dat(6) = 21
Dat(7) = 28: Dat(8) = 12
Dat(9) = 15: Dat(10) = 35
m = 0
FOR k := 1 TO 10
IF Dat(k) < 25 THEN
m =m+1
ENDIF
NEXT k
PRINT m
Var k, m: integer;
Dat: array[1...10] of integer;
Begin
Dat[1] := 16; Dat[2] := 20;
Dat[3] := 20; Dat[4] := 41;
Dat[5] := 14; Dat[6] := 21;
Dat[7] := 28; Dat[8] := 12;
Dat[9] := 15; Dat[10] := 35;
m := 0;
for k := 1 to 10 do
if Dat[k] < 25 then
begin
m := m+1
end;
writeln(m);
End.
5. Задание 10 № 651
В таб­ли­це Sea хра­нят­ся дан­ные о ко­ли­че­стве россиян, от­ды­хав­ших на Чёрном море (Sea[1] — число рос­си­ян в 2001 году, Sea[2] — в 2002 и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования:

Алгоритмический языкБейсикПаскаль
алгнач
целтаб Sea [1:12]
цел k, s
Sea[1]:= 170; Sea[2]:= 170;
Sea[3]:= 190; Sea[4]:= 210;
Sea[5]:= 230; Sea[6]:= 220;
Sea[7]:= 240; Sea[8]:= 160;
Sea[9]:= 190; Sea[10]:= 210;
Sea[11]:= 170; Sea[12]:= 170;
s := 100
нц для к от 1 до 12
если Sea[k] > 220 то
s : = s+Sea[k]
все
КЦ
вывод s
КОН
DIS Sea(11) AS INTEGER
DIS k,s AS INTEGER
Sea(1):= 170: Sea(2):= 170
Sea(3):= 190: Sea(4):= 210
Sea(5):= 230: Sea(6):= 220
Sea(7):= 240: Sea(8):= 160
Sea(9):= 190: Sea(10):= 210
Sea(11):= 170: Sea(12):= 170
s = 100
FOR k = 1 TO 12
IF Sea(k) > 220 THEN
s : = s+Sea(k)
END IF
NEXT k
PRINT s
Var k, s: integer;
Sea: array[1..12] of integer;
Begin
Sea[1]:= 170; Sea[2]:= 170;
Sea[3]:= 190; Sea[4]:= 210;
Sea[5]:= 230; Sea[6]:= 220;
Sea[7]:= 240; Sea[8]:= 160;
Sea[9]:= 190; Sea[10]:= 210;
Sea[11]:= 170; Sea[12]:= 170;
s := 100;
For k := 1 to 12 Do
If Sea[k] > 220 Then
Begin
s := s + Sea[k];
End;
Writeln(s);
End.
6. Задание 10 № 949
Садовник, ра­бо­тая в оран­же­рее бо­та­ни­че­ско­го сада, за­пи­сы­вал в таб­ли­цу Flow ко­ли­че­ство видов растений, цве­ту­щих в те­ку­щем месяце. (Flow[1] — ко­ли­че­ство цве­ту­щих рас­те­ний в январе, Flow[2] – в фев­ра­ле и т. д.).
Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический языкБейсикПаскаль
алг
нач
цел­таб Flow[1:12]
цел k, m
Flow[1] := 25; Flow[2] := 33
Flow[3] := 45; Flow[4] := 56
Flow[5] := 78; Flow[6] := 112
Flow[7] := 120;Flow[8] := 133
Flow[9] := 97; Flow[10] := 77
Flow[11] := 59;Flow[12] := 34
m := 35
нц для k от 1 до 12
если Flow[k] > 100 то
m := m + 1
все
кц
вывод m
кон
DIM Flow(12) AS INTEGER
DIM k,m AS INTEGER
Flow(1)= 25: Flow(2)= 33
Flow(3)= 45: Flow(4) = 56
Flow(5)= 78: Flow(6)= 112
Flow(7)= 120: Flow(8)= 133
Flow(9)= 97: Flow(10)= 77
Flow(11)= 59: Flow(12)= 34
m = 35
FOR k = 1 TO 12
IF Flow(k) > 100 THEN
m = m + 1
END IF
NEXT k
PRINT m
Var k, m: integer;
Flow: array[1..12] of integer;
Begin
Flow[1] := 25; Flow[2] := 33;
Flow[3] := 45; Flow[4] := 56;
Flow[5] := 78; Flow[6] := 112;
Flow[7] := 120; Flow[8] := 133;
Flow[9] := 97; Flow[10] := 77;
Flow[11] := 59; Flow[12] := 34;
m := 35;
For k := 1 to 12 Do
If Flow[k] > 100 Then
Begin
m := m + 1;
End;
Writeln(m);
End.
7. Задание 10 № 691
В таб­ли­це Ves хра­нят­ся дан­ные о весе в ки­ло­грам­мах по груп­пе уча­щих­ся спор­тив­ной школы (Ves[1] — вес пер­во­го учащегося, Ves[2] — вес вто­ро­го уча­ще­го­ся и т. д.). Определите, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го алгоритма, за­пи­сан­но­го на трёх ал­го­рит­ми­че­ских языках:

Алгоритмический языкБейсикПаскаль
алгнач
целтаб Ves [1:14]
цел i, n
Ves[1]:= 25; Ves[2]:= 21;
Ves[3]:= 23; Ves[4]:= 28;
Ves[5]:= 30; Ves[6]:= 25;
Ves[7]:= 31; Ves[8]:= 28;
Ves[9]:= 25; Ves[10]:= 28;
Ves[11]:= 30; Ves[12]:= 27;
Ves[13]:= 26; Ves[14]:= 24;
n := 0
нц для i от 1 до 14
если Ves[i] > 26 то
n : = n + 1
все
КЦ
вывод n
КОН
DIS Ves(14) AS INTEGER
DIS i,n AS INTEGER
Ves(1)= 25: Ves(2)= 21
Ves(3)= 23: Ves(4)= 28
Ves(5)= 30: Ves(6)= 25
Ves(7)= 31: Ves(8)= 28
Ves(9)= 25: Ves(10)= 28
Ves(11)= 30: Ves(12)= 27
Ves(13)= 26: Ves(14)= 24
n = 0
FOR i = 1 TO 14
IF Ves(i) > 26 THEN
n : = n + 1
END IF
NEXT i
PRINT n
Var i, n: integer;
Ves: array[1..14] of integer;
Begin
Ves[1]:= 25; Ves[2]:= 21;
Ves[3]:= 23; Ves[4]:= 28;
Ves[5]:= 30; Ves[6]:= 25;
Ves[7]:= 31; Ves[8]:= 28;
Ves[9]:= 25; Ves[10]:= 28;
Ves[11]:= 30; Ves[12]:= 27;
Ves[13]:= 26; Ves[14]:= 24;
n := 0;
For i := 1 to 14 Do
If Ves[i] > 26 Then
Begin
n : = n + 1;
End;
Writeln(n);
End.
8. Задание 10 № 711
В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве уче­ни­ков в клас­сах (Dat[1] — ко­ли­че­ство уче­ни­ков в пер­вом классе, Dat[2] — во вто­ром и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический языкБейсикПаскаль
алгнач
целтаб Dat[1:10]
цел k, m
Dat[1] := 16
Dat[2] := 20
Dat[3] := 20
Dat[4] := 41
Dat[5] := 14
Dat[6] := 21
Dat[7] := 28
Dat[8] := 12
Dat[9] := 15
Dat[10] := 35
m := 0
нц для k от 1 до 10
если Dat[k]>m то
m := Dat[k]
все
кц
вывод m
кон
DIM Dat(10) AS INTEGER
DIM k,m AS INTEGER
Dat(1) = 16: Dat(2) = 20
Dat(3) = 20: Dat(4) = 41
Dat(5) = 14: Dat(6) = 21
Dat(7) = 28: Dat(8) = 12
Dat(9) = 15:Dat(10) = 35
m = 0
FOR k = 1 TO 10
IF Dat(k)>m THEN
m = Dat(k)
ENDIF
NEXT k
PRINT m
Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 16; Dat[2] := 20;
Dat[3] := 20; Dat[4] := 41;
Dat[5] := 14; Dat[6] := 21;
Dat[7] := 28; Dat[8] := 12;
Dat[9] := 15; Dat[10] := 35;
m := 0;
for k := 1 to 10 do
if Dat[k]>m then
begin
m := Dat[k]
end;
writeln(m);
End.
9. Задание 10 № 491
В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве поездов, от­прав­ля­ю­щих­ся с цен­траль­но­го вок­за­ла го­ро­да на юг в пер­вой де­ка­де июля (Dat[1] — ко­ли­че­ство по­ез­дов пер­во­го числа, Dat[2] — ко­ли­че­ство по­ез­дов вто­ро­го числа и т. д.). Определите, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го алгоритма, за­пи­сан­но­го на трёх ал­го­рит­ми­че­ских языках.

Алгоритмический языкБейсикПаскаль
алгнач
целтаб Dat[1:10]
цел k, m, day
Dat[1] := 6
Dat[2] := 2
Dat[3] := 5
Dat[4] := 3
Dat[5] := 4
Dat[6] := 4
Dat[7] := 3
Dat[8] := 5
Dat[9] := 2
Dat[10] := 6
day:=1; m := Dat[1]
нц для k от 2 до 10
если Dat[к] < m то
m:= Dat[k]
day := k
все
КЦ
вывод day
КОН
DIM Dat(10) AS INTEGER
Dat[1] = 6
Dat[2] = 2
Dat[3] = 5
Dat[4] = 3
Dat[5] = 4
Dat[6] = 4
Dat[7] = 3
Dat[8] = 5
Dat[9] = 2
Dat[10] = 6
day = 1: m = Dat(1)
FOR k = 2 TO 10
IF Dat(k) < m THEN
m = Dat(k)
day = k
END IF
NEXT k
PRINT day
END
Var k, m, day: integer;
Dat: array[1...10] of integer;
Begin
Dat[1] := 6;
Dat[2] := 2;
Dat[3] := 5;
Dat[4] := 3;
Dat[5] := 4;
Dat[6] := 4;
Dat[7] := 3;
Dat[8] := 5;
Dat[9] := 2;
Dat[10] := 6;
day:=1; m := Dat[1];
for k := 2 to 10 do
if Dat[k] < m then
begin
m:= Dat[k];
day := k;
end;
write(day);
End.
10. Задание 10 № 270
В таб­ли­це Dat пред­став­ле­ны дан­ные о ко­ли­че­стве голосов, по­дан­ных за 10 ис­пол­ни­те­лей на­род­ных песен (Dat[1] — ко­ли­че­ство голосов, по­дан­ных за пер­во­го исполнителя, Dat[2] — за вто­ро­го и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический языкБейсикПаскаль
алгнач
целтаб Dat[1:10]
цел к, m
Dat[1] := 16
Dat[2] := 20
Dat[3] := 20
Dat[4] := 41
Dat[5] := 14
Dat[6] := 21
Dat[7] := 28
Dat[8] := 12
Dat[9] := 15
Dat[10] := 35
m := 0
нц для к от 1 до 10
если Dat[к] > m то
m : = Dat[к]
все
КЦ
вывод m
КОН
DIM Dat(10) AS INTEGER
DIM k,m AS INTEGER
Dat(1) = 16: Dat(2) = 20
Dat(3) = 20: Dat(4) = 41
Dat(5) = 14: Dat(6) = 21
Dat(7) = 28: Dat(8) = 12
Dat(9) = 15: Dat(10) = 35
m = 0
FOR k := 1 TO 10
IF Dat(k) > m THEN
m =Dat[k]
ENDIF
NEXT k
PRINT m
Var k, m: integer;
Dat: array[1...10] of integer;
Begin
Dat[1] := 16; Dat[2] := 20;
Dat[3] := 20; Dat[4] := 41;
Dat[5] := 14; Dat[6] := 21;
Dat[7] := 28; Dat[8] := 12;
Dat[9] := 15; Dat[10] := 35;
m := 0;
for k := 1 to 10 do
if Dat[k] > m then
begin
m := Dat[k]
end;
writeln(m);
End.

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

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