В таблице 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