Информатика (Циклический алгоритм обработки массива чисел, записанный на алгоритмическом языке)


1
2
3
4
5
6
7
8
9
10
  • 1
  • 2

Вопрос 10

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