среда, 13 ноября 2019 г.

Классная работа_9 класс

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



БейсикPython
DIM Dat(10) AS INTEGER
DIM k,m AS INTEGER
Dat(1) = 2: Dat(2) = 5
Dat(3) = 7: Dat(4) = 5
Dat(5) = 4: Dat(6) = 2
Dat(7) = 0: Dat(8) = 2
Dat(9) = 4: Dat(10) = 5
m = 0
FOR k = 1 TO 10
IF Dat(k) > 3 THEN
m = m + 1
ENDIF
NEXT k
PRINT m
Dat = [2, 5, 7, 5, 4, 2, 0, 2, 4, 5]
m = 0
for k in range(10):
    if Dat[k] > 3:
        m = m + 1
print (m)
ПаскальАлгоритмический язык
Var k, m: integer;
Dat: array[1..10] of integer;
Begin
   Dat[1] := 2; Dat[2] := 5;
   Dat[3] := 7; Dat[4] := 5;
   Dat[5] := 4; Dat[6] := 2;
   Dat[7] := 0; Dat[8] := 2;
   Dat[9] := 4; Dat[10] := 5;
   m := 0;
   for k := 1 to 10 do
      if Dat[k] > 3 then
       begin
          m := m + 1;
       end;
   writeln(m);
End.
   алг
   нач
   цел­таб Dat[1:10]
   цел k, m
   Dat[1] := 2
   Dat[2] := 5
   Dat[3] := 7
   Dat[4] := 5
   Dat[5] := 4
   Dat[6] := 2
   Dat[7] := 0
   Dat[8] := 2
   Dat[9] := 4
   Dat[10] := 5
   m := 0
   нц для k от 1 до 10
       если Dat[k] > 3 то
           m := m + 1
       все
   кц
   вывод m
   кон
С++
#include <iostream>
using namespace std;
int main() {
    int Dat[10] = {2, 5, 7, 5, 4, 2, 0, 2, 4, 5};
    int m = 0;
    for (int k = 0; k < 10; k++)
        if (Dat[k] > 3) m = m + 1;
    cout << m;
    return 0;
}

2. В таблице Work хранятся данные о количестве заказов, принятых фирмой «Конфетти» с первого по 15 декабря. (Work[1] − число заказов, принятых 1 декабря, Work[2] − 2 декабря и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования:



БейсикPython
DIM Work(15) AS INTEGER
DIM k,m AS INTEGER
Work(1) = 5: Work(2) = 4
Work(3) = 5: Work(4) = 7
Work(5) = 6: Work(6) = 12
Work(7) = 7: Work(8) = 3
Work(9) = 9: Work(10) = 7
Work(11) = 0: Work(12) = 9
Work(13) = 1: Work(14) = 0
Work(15) = 8
m = 0
FOR k = 1 TO 15
IF Work(k) > 6 THEN
m = m + 1
ENDIF
NEXT k
PRINT m
Work = [5, 4, 5, 7, 6, 12, 7, 3, 9, 7, 0, 9, 1, 0, 8]
m = 0
for k in range(15):
    if Work[k] > 6:
        m = m + 1
print (m)
ПаскальАлгоритмический язык
Var k, m: integer;
Work: array[1..15] of integer;
Begin
 Work[1]:=5; Work[2]:=4;
 Work[3]:=5; Work[4]:=7;
 Work[5]:=6; Work[6]:=12;
 Work[7]:=7; Work[8]:=3;
 Work[9]:=9; Work[10]:=7;
 Work[11]:=0; Work[12]:=9;
 Work[13]:=1; Work[14]:=0;
 Work[15]:=8;
 m := 0;
 for k := 1 to 15 do
    if Work[k] > 6 then
     begin
        m := m + 1;
     end;
writeln(m);
End.
   алг
   нач
   цел­таб Work[1:15]
   цел k, m
   Work[1] := 5
   Work[2] := 4
   Work[3] := 5
   Work[4] := 7
   Work[5] := 6
   Work[6] := 12
   Work[7] := 7
   Work[8] := 3
   Work[9] := 9
   Work[10] := 7
   Work[11] := 0
   Work[12] := 9
   Work[13] := 1
   Work[14] := 0
   Work[15] := 8
   m := 0
   нц для k от 1 до 15
       если Work[k] > 6 то
           m := m + 1
       все
   кц
   вывод m
   кон
С++
#include <iostream>
using namespace std;
int main() {
    int Work[15] = {5, 4, 5, 7, 6, 12, 7, 3, 9, 7, 0, 9, 1, 0, 8};
    int m = 0;
    for (int k = 0; k < 15; k++)
        if (Work[k] > 6) m = m + 1;
    cout << m;
    return 0;
}

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



БейсикPython
DIM Pos(7) AS INTEGER
DIM k, m, day AS INTEGER
Pos(1) = 17: Pos(2) = 19
Pos(3) = 20: Pos(4) = 18
Pos(5) = 16: Pos(6) = 20
Pos(7) = 16
day = 1
m = Pos(1)
FOR k = 2 TO 7
IF Pos(k) < m THEN
m = Pos(k)
day = k
ENDIF
NEXT k
PRINT day
Pos = [17, 19, 20, 18, 16, 20, 16]
day = 1
m = Pos[0]
for k in range(1, 7):
    if Pos[k] < m:
        m = Pos[k]
        day = k + 1
print (day)
ПаскальАлгоритмический язык
Var k, m, day: integer;
Pos: array[1..7] of integer;
Begin
   Pos[1] := 17; Pos[2] := 19;
   Pos[3] := 20; Pos[4] := 18;
   Pos[5] := 16; Pos[6] := 20;
   Pos[7] := 16;
   day := 1;
   m := Pos[1];
   for k := 2 to 7 do
      if Pos[k] < m then
       begin
         m := Pos[k];
         day := k;
       end;
   writeln(day);
End.
   алг
   нач
   цел­таб Pos[1:7]
   цел k, m, day
   Pos[1] := 17
   Pos[2] := 19
   Pos[3] := 20
   Pos[4] := 18
   Pos[5] := 16
   Pos[6] := 20
   Pos[7] := 16
   day := 1
   m := Pos[1]
   нц для k от 2 до 7
       если Pos[k] < m то
           m := Pos[k]
           day := k
       все
   кц
   вывод day
   кон
С++
#include <iostream>
using namespace std;
int main() {
    int Pos[7] = {17, 19, 20, 18, 16, 20, 16};
    int day = 1;
    int m = Pos[0];
    for (int k = 1; k < 7; k++)
        if (Pos[k] < m) {
            day = k + 1;
            m = Pos[k];
        }
    cout << day;
    return 0;
}

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



БейсикPython
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) < 25 THEN
m = m + 1
ENDIF
NEXT k
PRINT m
Dat = [20, 25, 19, 25, 26, 22, 24, 28, 26, 21, 27]
m = 0
for k in range(11):
    if Dat[k] < 25:
        m = m + 1
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] < 25 then
       begin
          m := m + 1;
       end;
   writeln(m);
End.
   алг
   нач
   цел­таб Dat[1:11]
   цел k, 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
   нц для k от 1 до 11
       если Dat[k] < 25 то
           m := m + 1
       все
   кц
   вывод m
   кон
С++
#include <iostream>
using namespace std;
int main() {
    int Dat[11] = {20, 25, 19, 25, 26, 22, 24, 28, 26, 21, 27};
    int m = 0;
    for (int k = 0; k < 11; k++)
        if (Dat[k] < 25) {
            m = m + 1;
        }
    cout << m;
    return 0;
}

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



БейсикPython
DIM Sea(12) AS INTEGER
DIM 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)
ENDIF
NEXT k
PRINT s
Sea = [170, 170, 190, 210, 230, 220, 240, 160, 190, 210, 170, 170]
s = 100
for k in range(12):
    if Sea[k] > 220:
        s = s + Sea[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.
   алг
   нач
   цел­таб 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
   нц для k от 1 до 12
       если Sea[k] > 220 то
           s := s + Sea[k]
       все
   кц
   вывод s
   кон
С++
#include <iostream>
using namespace std;
int main() {
    int Sea[12] = {170, 170, 190, 210, 230, 220, 240, 160, 190, 210, 170, 170};
    int s = 100;
    for (int k = 0; k < 12; k++)
        if (Sea[k] > 220) s = s + Sea[k];
    cout << s;
    return 0;
}

on

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

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

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