Информатика (Циклический алгоритм обработки массива чисел, записанный на алгоритмическом языке)
В таблице Dat хранятся данные измерений роста учеников 4 класса в сантиметрах. (Dat[1] — рост первого ученика, Dat[2] — второго и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на пяти языках программирования.
| Бейсик | Python |
|---|---|
DIM Dat(10) AS INTEGER DIM k, n, d AS INTEGER Dat(1) = 140: Dat(2) = 130 Dat(3) = 135: Dat(4) = 150 Dat(5) = 120: Dat(6) = 150 Dat(7) = 110: Dat(8) = 140 Dat(9) = 150: Dat(10) = 135 d = Dat(1); n = 1 FOR k = 2 TO 10 IF Dat(k) >= d THEN d = Dat(k) n = k ENDIF NEXT k PRINT n |
Dat = [140, 130, 135, 150, 120, 150, 110, 140, 150, 135] d = Dat[0] n = 1 for k in range(1,10): if Dat[k] >= d: d = Dat[k] n = k + 1 print (n) |
| Паскаль | Алгоритмический язык |
Var k, n, d: integer; Dat: array[1..10] of integer; Begin Dat[1]:=140; Dat[2]:=130; Dat[3]:=135; Dat[4]:=150; Dat[5]:=120; Dat[6]:=150; Dat[7]:=110; Dat[8]:=140; Dat[9]:=150; Dat[10]:=135; d := Dat[1]; n := 1; for k := 2 to 10 do if Dat[k] >= d then begin d := Dat[k]; n := k; end; writeln(n); End. |
алг нач целтаб Dat[1:10] цел k, n, d Dat[1] := 140 Dat[2] := 130 Dat[3] := 135 Dat[4] := 150 Dat[5] := 120 Dat[6] := 150 Dat[7] := 110 Dat[8] := 140 Dat[9] := 150 Dat[10] := 135 d := Dat[1] n := 1 нц для k от 2 до 10 если Dat[k] >= d то d := Dat[k] n := k все кц вывод n кон |
| С++ | |
#include <iostream> using namespacestd; int main() { int Dat[10] = {140, 130, 135, 150, 120, 150, 110, 140, 150, 135}; int d = Dat[0]; int n = 1; for (int k = 1; k < 10; k++) if (Dat[k] >= d) { d = Dat[k]; n = k + 1; } cout << n; return 0; } |
|