вторник, 11 апреля 2017 г.

СР_9 класс

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

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алгалг
нач
цел­таб App[1:12]
цел k, m
App[1] := 100; App[2] := 128
App[3] := 80; App[4] := 99
App[5] := 120; App[6] := 69
App[7] := 55; App[8] := 115
App[9] := 84; App[10] := 111
App[11] := 59; App[12] := 100
m := 0
нц для k от 1 до 12
если App[k] > 100 то
m := m + 1
все
кц
m := m + 10
вывод m
кон
DIM App(12) AS INTEGER
DIM k,m AS INTEGER
App(1)= 100: App(2)= 128
App(3)= 80: App(4) = 99
App(5)= 120: App(6)= 69
App(7)= 55: App(8)= 115
App(9)= 84: App(10)= 111
App(11)= 59: App(12)= 100
m = 0
FOR k = 1 TO 12
IF App(k) > 100 THEN
m = m + 1
END IF
NEXT k
m = m + 10
PRINT m
Var k, m: integer;
App: array[1..12] of integer;
Begin
App[1] := 100; App[2] := 128;
App[3] := 80; App[4] := 99;
App[5] := 120; App[6] := 69;
App[7] := 55; App[8] := 115;
App[9] := 84; App[10] := 111;
App[11] := 59; App[12] := 100;
m := 0;
For k := 1 to 12 Do
If App[k] > 100 Then
Begin
m := m + 1;
End;
m : = m + 10;
Writeln(m);
End.
2. В таб­ли­це 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.
3. Из­вест­ная авиа­ком­па­ния за­но­си­ла дан­ные о ко­ли­че­стве уте­рян­но­го ба­га­жа за год в таб­ли­цу Lose. Всего были за­не­се­ны дан­ные за по­след­ние 10 лет ра­бо­ты ком­па­нии (Lose[1] — ко­ли­че­ство уте­рян­но­го ба­га­жа за пер­вый год ра­бо­ты, Lose[2] — за вто­рой год и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алг
нач
цел­таб Lose[1:10]
цел t, m
Lose[1] := 1; Lose[2] := 5
Lose[3] := 3; Lose[4] := 6
Lose[5] := 7; Lose[6] := 12
Lose[7] := 1; Lose[8] := 3
Lose[9] := 3; Lose[10] := 1
m := 0
нц для t от 1 до 10
если Lose[t] > 3 то
m := m + Lose[t]
все
кц
вывод m
кон
DIM Lose(10) AS INTEGER
DIM t,m AS INTEGER
Lose(1) = 1: Lose(2) = 5
Lose(3) = 3: Lose(4) = 6
Lose(5) = 7: Lose(6) = 12
Lose(7) = 1: Lose(8) = 3
Lose(9) = 3: Lose(10) = 1
m = 0
FOR t = 1 TO 10
IF Lose(t) > 3 THEN
m = m + Lose(t)
END IF
NEXT k
PRINT m
Var t, m: integer;
Lose: array[1..10] of integer;
Begin
Lose[1] := 1; Lose[2] := 5;
Lose[3] := 3; Lose[4] := 6;
Lose[5] := 7; Lose[6] := 12;
Lose[7] := 1; Lose[8] := 3;
Lose[9] := 3; Lose[10] := 1;
m := 0;
For t := 1 to 10 Do
If Lose[t] > 3 Then
Begin
m := m + Lose[t];
End;
Writeln(m);
End.
4. В таб­ли­це 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 := 0
нц для к от 1 до 10
если Dat[к]=15 то
m : = m+1
все
КЦ
вывод 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 = 0
FOR k = 1 TO 10
IF Dat(k)=15 THEN
m = m+1
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 := 0;
for k := 1 to 10 do
if Dat[k] = 15 then
begin
m := m+1;
end;
writeln(m);
End.
5. Вла­де­лец круп­но­го яб­ло­не­во­го сада в те­че­ние 12 лет за­пи­сы­вал в таб­ли­цу App ко­ли­че­ство со­бран­но­го уро­жая. (App[1] — ко­ли­че­ство тонн яблок, со­бран­ных за пер­вый год, App[2] — за вто­рой и т. д.). Опре­де­ли­те, какое
число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алг
алг
нач
цел­таб App[1:12]
цел k, m
App[1] := 100; App[2] := 128
App[3] := 80; App[4] := 99
App[5] := 120; App[6] := 69
App[7] := 55; App[8] := 115
App[9] := 84; App[10] := 111
App[11] := 59; App[12] := 100
m := 0
нц для k от 1 до 12
если App[k] < 80 то
m := m + 1
все
кц
m := m + 20
вывод m
кон
DIM App(12) AS INTEGER
DIM k,m AS INTEGER
App(1) = 100: App(2)= 128
App(3) = 80: App(4) = 99
App(5) = 120: App(6)= 69
App(7) = 55: App(8)= 115
App(9) = 84: App(10)= 111
App(11)= 59: App(12)= 100
m = 0
FOR k = 1 TO 12
IF App(k) < 80 THEN
m = m + 1
END IF
NEXT k
m = m + 20
PRINT m
Var k, m: integer;
App: array[1..12] of integer;
Begin
App[1] := 100; App[2] := 128;
App[3] := 80; App[4] := 99;
App[5] := 120; App[6] := 69;
App[7] := 55; App[8] := 115;
App[9] := 84; App[10] := 111;
App[11] := 59; App[12] := 100;
m := 0;
For k := 1 to 12 Do
If App[k] < 80 Then
Begin
m := m + 1;
End;
m : = m + 20;
Writeln(m);
End.
6. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве сде­лан­ных уче­ни­ка­ми за­да­ний (Dat[1] за­да­ний сде­лал пер­вый уче­ник, Dat[2] — вто­рой и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

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

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алгнач
цел­таб Dat[1:11]
цел к, m
Dat[1] := 20
Dat[2] := 25
Dat[3] := 19
Dat[4] := 25
Dat[5] := 26
Dat[6] := 22
Dat[7] := 24
Dat[8] := 28
Dat[9] := 26
Dat[10] := 21
Dat[11] := 27
m := 0
нц для к от 1 до 11
если Dat[к] > 22 то
m : = m+1
все
КЦ
вывод m
КОН
DIM Dat(11) AS INTEGER
DIM k,m AS INTEGER
Dat[1] = 20
Dat[2] = 25
Dat[3] = 19
Dat[4] = 25
Dat[5] = 26
Dat[6] = 22
Dat[7] = 24
Dat[8] = 28
Dat[9] = 26
Dat[10] = 21
Dat[11] = 27
m = 0
FOR k := 1 TO 11
IF Dat(k) > 22 THEN
m =m+1
ENDIF
NEXT k
PRINT m
Var k, m: integer;
Dat: array[1...11] of integer;
Begin
Dat[1] := 20;
Dat[2] := 25;
Dat[3] := 19;
Dat[4] := 25;
Dat[5] := 26;
Dat[6] := 22;
Dat[7] := 24;
Dat[8] := 28;
Dat[9] := 26;
Dat[10] := 21;
Dat[11] := 27;
m := 0
for k := 1 to 11 do
if Dat[k] > 22 then
begin
m := m+1;
end;
writeln(m);
End.
8. В таб­ли­це 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 := 0
нц для к от 1 до 10
если Dat[к] > 12 то
m : = m + 1
все
КЦ
вывод 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 = 0
FOR k := 1 TO 10
IF Dat(k) > 12 THEN
m = m + 1
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 := 0;
for k := 1 to 10 do
if Dat[k] > 12 then
begin
m := m + 1
end;
writeln(m);
End.
9. В таб­ли­це 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.
10. Школь­ник делал ла­бо­ра­тор­ную ра­бо­ту по фи­зи­ке, в ходе ко­то­рой из­ме­рил 10 раз силу тока и за­пи­сал по­ка­за­ния ам­пер­мет­ра в таб­ли­цу Tok (Tok[1] — ре­зуль­тат пер­во­го из­ме­ре­ния, Tok[2] — вто­ро­го и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский языкБей­сикПас­каль
алгнач
цел­таб Tok[1:10]
цел k, m
Tok[1] := 10; Tok[2] := 14
Tok[3] := 15; Tok[4] := 4
Tok[5] := 12; Tok[6] := 6
Tok[7] := 3; Tok[8] := 5
Tok[9] := 5; Tok[10] := 10
m := 22
нц для k от 1 до 10
если Tok[k] > 10 то
m := m - 1
все
кц
вывод m
кон
DIM Tok(10) AS INTEGER
DIM k,m AS INTEGER
Tok(1)= 10: Tok(2)= 14
Tok(3)= 15: Tok(4) = 4
Tok(5)= 12: Tok(6)= 6
Tok(7)= 3: Tok(8)= 5
Tok(9)= 5: Tok(10)= 10
m = 22
FOR k = 1 TO 10
IF Tok(k) > 10 THEN
m = m - 1
END IF
NEXT k
PRINT m
Var k, m: integer;
Tok: array[1..10] of integer;
Begin
Tok[1] := 10; Tok[2] := 14;
Tok[3] := 15; Tok[4] := 4;
Tok[5] := 12; Tok[6] := 6;
Tok[7] := 3; Tok[8] := 5;
Tok[9] := 5; Tok[10] := 10;
m := 22;
For k := 1 to 10 Do
If Tok[k] > 10 Then
Begin
m := m - 1;
End;
Writeln(m);
End.
on

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

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

Подписаться на: Комментарии к сообщению (Atom)