• В таблице Dat хранятся данные о количестве сделанных заданий учениками (Dat[1] заданий сделал первый ученик, Dat[2] – второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
    Алгоритмический язык
    Бейсик
    Паскаль
    алг
    нач
    целтаб Dat[1:10]
    цел к, s
    Dat[1] := 7
    Dat[2] := 9
    Dat[3] := 10
    Dat[4] := 5
    Dat[5] := 6
    Dat[6] := 7
    Dat[7] := 9
    Dat[8] := 8
    Dat[9] := 6
    Dat[10] := 9
    s: = 0
    нц для к от 1 до 10
    s:= s + Dat[k]
    все
    КЦ
    вывод s
    КОН
    DIM Dat(10) AS INTEGER
    DIM k,m,n AS INTEGER
    Dat[1] = 7
    Dat[2] = 9
    Dat[3] = 10
    Dat[4] = 5
    Dat[5] = 6
    Dat[6] = 7
    Dat[7] = 9
    Dat[8] = 8
    Dat[9] = 6
    Dat[10] = 9
    s = 0
    FOR k := 1 TO 10
    IF Dat(k) < m THEN
    s:= s + Dat[k]
    ENDIF
    NEXT k
    PRINT s
    Var k, m, n: integer;
    Dat: array[1...10] of integer;
    Begin
    Dat[1] := 7;
    Dat[2] := 9;
    Dat[3] := 10;
    Dat[4] := 5;
    Dat[5] := 6;
    Dat[6] := 7;
    Dat[7] := 9;
    Dat[8] := 8;
    Dat[9] := 6;
    Dat[10] := 9;
    s: = 0;
    for k := 1 to 10 do
    s:= s + Dat[k];
    writeln(s);
    End.

Ответы 5

  • спасибо
  • Пожалуйста.
  • Пользуйтель кнопочкой "Спасибо".
  • 1.начцелтаб Dat[1:10]цел к, sDat[1] := 7Dat[2] := 9Dat[3] := 10Dat[4] := 5Dat[5] := 6Dat[6] := 7Dat[7] := 9Dat[8] := 8Dat[9] := 6Dat[10] := 9s: = 0нц для к от 1 до 10s:= s + Dat[k]всеКЦвывод sКОНВ программе будет вычислена сумма элементов массива:s = 7+9+10+5+6+7+9+8+6+9 = 762.DIM Dat(10) AS INTEGERDIM k,m,n AS INTEGERDat[1] = 7Dat[2] = 9Dat[3] = 10Dat[4] = 5Dat[5] = 6Dat[6] = 7Dat[7] = 9Dat[8] = 8Dat[9] = 6Dat[10] = 9s = 0FOR k := 1 TO 10IF Dat(k) < m THENs:= s + Dat[k]ENDIFNEXT kPRINT sВ программе не задано значение переменной m. Если считать, что m=0, то в программе вычисляется сумма отрицательных элементов массива, т.е. s=03.Var k, m, n: integer;Dat: array[1...10] of integer;BeginDat[1] := 7;Dat[2] := 9;Dat[3] := 10;Dat[4] := 5;Dat[5] := 6;Dat[6] := 7;Dat[7] := 9;Dat[8] := 8;Dat[9] := 6;Dat[10] := 9;s: = 0;for k := 1 to 10 dos:= s + Dat[k];writeln(s);End.В программе будет вычислена сумма элементов массива:s = 7+9+10+5+6+7+9+8+6+9 = 76
  • Программа находит сумму значений всех элементов, т.е.7+9+10+5+6+7+9+8+6+9 = 76.По условию приведен текст программы на трех языках, т.е. подразумевается, что он одинаков. Однако программа на Бейсике отличается: в ней есть условный оператор, поэтому этот вариант программы не рассматривался, как ошибочный.
    • Автор:

      laurel
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years