В таблице Ball хранятся отметки по контрольной работе (Ball[1] − отметка 1 ученика, Ball[2] − отметка 2 ученика и т. д.). Определите, что будет напечатано в результате работы следующего алгоритма, записанного на трех языках программирования.
| Алгоритмический язык | Бейсик |
| алг | DIM Ball(10) AS INTEGER |
| Паскаль | |
| var k, c: integer; | |
Решение.
Это задание ещё не решено, приводим решение прототипа.
В таблице 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.