В таблице 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.
Ответ: 3
