В таблице Ball хранятся баллы, набранные участниками школьного тура олимпиады по математике (Ball[1] — балл 1 ученика, Ball[2] — балл 2 ученика и т. д.). Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на пяти языках программирования.
| Бейсик | Python |
|---|---|
DIM Ball(10) AS INTEGER DIM k,m AS INTEGER Ball(1) = 42: Ball(2) = 25 Ball(3) = 13: Ball(4) = 18 Ball(5) = 15: Ball(6) = 55 Ball(7) = 48: Ball(8) = 13 Ball(9) = 64: Ball(10) = 45 m = Ball(1) FOR k = 1 TO 10 IF Ball(k) < m THEN m = Ball(k) ENDIF NEXT k PRINT m | Ball = [42, 25, 13, 18, 15, 55, 48, 13, 64, 45] m = Ball[0] for k in range (10): if Ball[k] < m: m = Ball[k] print (m)
|
| Паскаль | Алгоритмический язык |
Var k, m: integer; Ball: array[1..10] of integer; Begin Ball[1]:=42;Ball[2]:=25; Ball[3]:=13;Ball[4]:=18; Ball[5]:=15;Ball[6]:=55; Ball[7]:=48;Ball[8]:=13; Ball[9]:=64;Ball[10]:=45; m := Ball[1]; for k := 1 to 10 do if Ball[k] < m then begin m := Ball[k]; end; writeln(m); End.
| алг нач целтаб Ball[1:10] цел k, m Ball[1] := 42 Ball[2] := 25 Ball[3] := 13 Ball[4] := 18 Ball[5] := 15 Ball[6] := 55 Ball[7] := 48 Ball[8] := 13 Ball[9] := 64 Ball[10] := 45 m := Ball[1] нц для k от 1 до 10 если Ball[k] < m то m := Ball[k] все кц вывод m кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Ball[10] = {42, 25, 13, 18, 15, 55, 48, 13, 64, 45}; int m = Ball[0]; for (int k = 0; k < 10; k++) if (Ball[k] < m) m = Ball[k]; cout << m; return 0; } | |
В таблице Ball хранятся баллы, набранные участниками школьного тура олимпиады по математике (Ball[1] − балл 1 ученика, Ball[2] − балл 2 ученика и т. д.). Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.
| Алгоритмический язык | |
| алг нач целтаб Ball[1:10] цел k, m Ball[1] := 42; Ball[2] := 25 Ball[3] := 13; Ball[4] := 18 Ball[5] := 15; Ball[6] := 55 Ball[7] := 48; Ball[8] := 13 Ball[9] := 64; Ball[10] := 45 m := Ball[1] нц для k от 1 до 10 если Ball[k] > m то m := Ball[k] все кц вывод m кон | |
| Бейсик | Паскаль |
| DIM Ball(10) AS INTEGER DIM k, m AS INTEGER Ball(1) = 42: Ball(2) = 25 Ball(3) = 13: Ball(4) = 18 Ball(5) = 15: Ball(6) = 55 Ball(7) = 48: Ball(8) = 13 Ball(9) = 64: Ball(10) = 45 m = Ball(1) FOR k = 1 TO 10 IF Ball(k) > m THEN m = Ball(k) END IF NEXT k PRINT m END | var k, m, t: integer; Ball: array[1..10] of integer; begin Ball[1] := 42; Ball[2] := 25; Ball[3] := 13; Ball[4] := 18; Ball[5] := 15; Ball[6] := 55; Ball[7] := 48; Ball[8] := 13; Ball[9] := 64; Ball[10] := 45; m := Ball[1]; for k := 1 to 10 do if Ball[k] > m then m := Ball[k]; write(m); end. |
В таблице Ball хранятся отметки по контрольной работе (Ball[1] − отметка 1 ученика, Ball[2] − отметка 2 ученика и т. д.). Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.
| Алгоритмический язык | |
| алг нач целтаб Ball[1:10] цел k, c Ball[1] := 3; Ball[2] := 5 Ball[3] := 3; Ball[4] := 2 Ball[5] := 5; Ball[6] := 5 Ball[7] := 4; Ball[8] := 3 Ball[9] := 3; 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) = 3: Ball(2) = 5 Ball(3) = 3: Ball(4) = 2 Ball(5) = 5: Ball(6) = 5 Ball(7) = 4: Ball(8) = 3 Ball(9) = 3: 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 Ball[1] := 3; Ball[2] := 5; Ball[3] := 3; Ball[4] := 2; Ball[5] := 5; Ball[6] := 5; Ball[7] := 4; Ball[8] := 3; Ball[9] := 3; Ball[10] := 5; c := 0; for k := 1 to 10 do if Ball[k] < 4 then c := c + 1; write(c); end. |
В таблице Ball хранятся баллы, набранные участниками школьного тура олимпиады по математике (Ball[1] − балл 1 ученика, Ball[2] − балл 2 ученика и т. д.). Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.
| Алгоритмический язык | |
| алг нач целтаб Ball[1:10] цел k, m, t Ball[1]:=12; Ball[2]:=25 Ball[3]:=13; Ball[4]:=18 Ball[5]:=35; Ball[6]:=55 Ball[7]:=48; Ball[8]:=33 Ball[9]:=64; Ball[10]:=45 m := Ball[1]; t := 1 нц для k от 1 до 10 если Ball[k] > m то m := Ball[k] t := k все кц вывод t кон | |
| Бейсик | Паскаль |
| DIM Ball(10) AS INTEGER DIM k, m, t AS INTEGER Ball(1)=12: Ball(2)=25 Ball(3)=13: Ball(4)=18 Ball(5)=35: Ball(6)=55 Ball(7)=48: Ball(8)=33 Ball(9)=64: Ball(10)=45 m = Ball(1): t = 1 FOR k = 1 TO 10 IF Ball(k) > m THEN m = Ball(k) t = k END IF NEXT k PRINT t END | var k, m, t: integer; Ball: array[1..10] of integer; begin Ball[1]:=12; Ball[2]:=25; Ball[3]:=13; Ball[4]:=18; Ball[5]:=35; Ball[6]:=55; Ball[7]:=48; Ball[8]:=33; Ball[9]:=64; Ball[10]:=45; m := Ball[1]; t := 1; for k := 1 to 10 do if Ball[k] > m then begin m := Ball[k]; t := k end; write(t); end. |
В таблице Ball хранятся отметки по контрольной работе (Ball[1] − отметка 1 ученика, Ball[2] − отметка 2 ученика и т. д.). Определите, что будет напечатано в результате работы следующего алгоритма, записанного на трех языках программирования.
| Алгоритмический язык | |
| алг нач целтаб 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] > 3 то c := c + 1 все кц вывод c кон | |
| Бейсик | Паскаль |
| 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) > 3 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] := 3; 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] > 3 then c := c + 1; write(c); end. |