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


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

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

 

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

Бейсик

алг
 
нач
 
целтаб Ball[1:10]
  
цел k, c
  Ball[1] := 4; Ball[2] := 5
  Ball[3] := 4; Ball[4] := 4
  Ball[5] := 2; Ball[6] := 5
  Ball[7] := 4; Ball[8] := 3
  Ball[9] := 4;Ball[10] := 5
  c:= 0
 
нц для k от 1 до 10
  
если Ball[k] <> 4 то
     c := c + 1
  
все
 
кц
 
вывод c
кон

DIM Ball(10) AS INTEGER
DIM k, c AS INTEGER
Ball(1) = 4: Ball(2) = 5
Ball(3) = 4: Ball(4) = 4
Ball(5) = 2: Ball(6) = 5
Ball(7) = 4: Ball(8) = 3
Ball(9) = 4: Ball(10) = 5
c = 0
FOR k = 1 TO 10
 IF Ball(k) <> 4 THEN
  c = c + 1
 END IF
NEXT k
PRINT c
END

Паскаль

var k, c: integer;
Ball:array[1..10] of integer;
begin
  c := 0;
  Ball[1] := 4; Ball[2] := 5;
  Ball[3] := 4; Ball[4] := 4;
  Ball[5] := 2; Ball[6] := 5;
  Ball[7] := 4; Ball[8] := 3;
  Ball[9] := 4; Ball[10] := 5;
  for k := 1 to 10 do
    if Ball[k] <> 4 then
       c := c + 1;
  write(c);
end.


 

Решение.

Это задание ещё не решено, приводим решение прототипа.


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

 

БейсикPython

DIM Ball(10) AS INTEGER

DIM k, c AS INTEGER

Ball(1) = 4: Ball(2) = 5

Ball(3) = 3: Ball(4) = 4

Ball(5) = 2: Ball(6) = 5

Ball(7) = 4: Ball(8) = 3

Ball(9) = 4: Ball(10) = 5

c = 0

FOR k = 1 TO 10

IF Ball(k) > 4 THEN

c = c + 1

ENDIF

NEXT k

PRINT c

Ball = [4, 5, 3, 4, 2, 5, 4, 3, 4, 5]

c = 0

for k in range (10):

    if Ball[k] > 4:

        c = c + 1

print (c)

ПаскальАлгоритмический язык

Var k, c: integer;

Ball: array[1..10] of integer;

Begin

   Ball[1]:=4;Ball[2]:=5;

   Ball[3]:=3;Ball[4]:=4;

   Ball[5]:=2;Ball[6]:=5;

   Ball[7]:=4;Ball[8]:=3;

   Ball[9]:=4;Ball[10]:=5;

   c := 0;

   for k := 1 to 10 do

      if Ball[k] > 4 then

       begin

          c := c + 1;

       end;

   writeln(c);

End.

  алг

нач

   целтаб Ball[1:10]

   цел k, c

   Ball[1] := 4

   Ball[2] := 5

   Ball[3] := 3

   Ball[4] := 4

   Ball[5] := 2

   Ball[6] := 5

   Ball[7] := 4

   Ball[8] := 3

   Ball[9] := 4

   Ball[10] := 5

   c := 0

   нц для k от 1 до 10

       если Ball[k] > 4 то

           c := c + 1

       все

   кц

   вывод c

кон

С++

#include <iostream>

using namespace std;

int main() {

    int Ball[10] = {4, 5, 3, 4, 2, 5, 4, 3, 4, 5};

    int c = 0;

    for (int k = 0; k < 10; k++)

        if (Ball[k] > 4) c = c + 1;

    cout << c;

    return 0;

}

 



Программа предназначена для нахождения количества учеников, которые получили за контрольную работу отметку выше 4. Проанализировав входные данные, приходим к выводу, что ответ 3.

 

Ответ: 3.


Аналоги к заданию № 5548: 5736 6451 Все

Прототип задания ·