Question

Помогите дам 50 балов с решением В таблице Dat хранятся данные ежедневных измерений температуры воздуха (Dat[1] – температура в понедельник, Dat[2] – во вторник и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования. Паскаль var Dat: array[1..7] of integer; k, day: integer; begin Dat[1] := 9; Dat[2] := 11; Dat[3] := 10; Dat[4] := 13; Dat[5] := 8; Dat[6] := 5; Dat[7] := 11; day := 0; for k := 1 to 7 do if Dat[k] <= 10 then day := day + 1; writeln(day); end. 54D39c ________________________________________   В таблице Dat хранятся данные ежедневных измерений температуры морской воды (Dat[1] – температура в понедельник, Dat[2] – во вторник и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования. Паскаль var Dat: array[1..7] of integer; k, day: integer; begin Dat[1] := 19; Dat[2] := 21; Dat[3] := 20; Dat[4] := 23; Dat[5] := 24; Dat[6] := 25; Dat[7] := 23; day := Dat[1]; for k := 1 to 7 do if Dat[k] > day then day := Dat[k]; writeln(day); end. c06AeB ________________________________________ В таблице Ani хранятся данные о численности обезьян в зоопарке города Тулы (Ani[1] – число обезьян в 2001 году, Ani[2] – в 2002 и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования. Паскаль var k, m: integer; Ani: array[1..12] of integer; begin Ani[1] := 17; Ani[2] := 17; Ani[3] := 19; Ani[4] := 21; Ani[5] := 23; Ani[6] := 22; Ani[7] := 24; Ani[8] := 16; Ani[9] := 19; Ani[10] := 21; Ani[11] := 17; Ani[12] :=17; m := 0; for k := 1 to 12 do if Ani[k] = 17 then m := m + Ani[k]; writeln(m); end. cB4A04 ________________________________________

Answer 1

1. Здесь в array 7 пунктов, цикл проверяет, если значение меньше или равно 10, и прибавляет к переменной, изначально равной нулю 1:

Dat[1] := 9; // прибавляем 1, итог 1

Dat[2] := 11; // ничего не делаем

Dat[3] := 10; // прибавляем 1, итог 2

Dat[4] := 13; // ничего не делаем

Dat[5] := 8; // прибавляем 1, итог 3

Dat[6] := 5; // прибавляем 1, итог 4

Dat[7] := 11; // ничего не делаем

Ответ: 4

2. Здесь в array 7 пунктов, цикл проверяет, если значение пункта больше того, что сейчас в переменной со стартовым значением первого значения в array, т. е. 19 и записывает его в эту переменную (т. е. ищем наибольшее значение)

Dat[1] := 19;

Dat[2] := 21;

Dat[3] := 20;

Dat[4] := 23;

Dat[5] := 24;

Dat[6] := 25;  // это наибольшее, значит 25

Dat[7] := 23;

Ответ: 25

3. Здесь в array 12 пунктов, мы проверяем, совпадает ли значение с 17, если да, то прибавляем его к нашей нулевой переменной m. Посчитаем кол-во значений 17 и умножим 17 на это значение, это будет ответ

Ani[1] := 17; // 1

Ani[2] := 17;  // 2

Ani[3] := 19;

Ani[4] := 21;

Ani[5] := 23;

Ani[6] := 22;

Ani[7] := 24;

Ani[8] := 16;

Ani[9] := 19;

Ani[10] := 21;

Ani[11] := 17; // 3

Ani[12] :=17; // 4

17 * 4 = 68

Ответ: 68

Answer 2

Давайте рассмотрим каждую программу по отдельности и определим, что будет напечатано в результате их выполнения:

1. Программа на языке Паскаль с таблицей данных о температуре воздуха:

pascalCopy code
var Dat: array[1..7] of integer;
    k, day: integer;
begin
    Dat[1] := 9;
    Dat[2] := 11;
    Dat[3] := 10;
    Dat[4] := 13;
    Dat[5] := 8;
    Dat[6] := 5;
    Dat[7] := 11;
    day := 0;
    for k := 1 to 7 do
        if Dat[k] <= 10 then
            day := day + 1;
    writeln(day);
end.

Ответ: На экран будет выведено число 4.

2. Программа на языке Паскаль с таблицей данных о температуре морской воды:

pascalCopy code
var Dat: array[1..7] of integer;
    k, day: integer;
begin
    Dat[1] := 19;
    Dat[2] := 21;
    Dat[3] := 20;
    Dat[4] := 23;
    Dat[5] := 24;
    Dat[6] := 25;
    Dat[7] := 23;
    day := Dat[1];
    for k := 1 to 7 do
        if Dat[k] > day then
            day := Dat[k];
    writeln(day);
end.

Ответ: На экран будет выведено число 25.

3. Программа на языке Паскаль с таблицей данных о численности обезьян в зоопарке:

pascalCopy code
var k, m: integer;
    Ani: array[1..12] of integer;
begin
    Ani[1] := 17;
    Ani[2] := 17;
    Ani[3] := 19;
    Ani[4] := 21;
    Ani[5] := 23;
    Ani[6] := 22;
    Ani[7] := 24;
    Ani[8] := 16;
    Ani[9] := 19;
    Ani[10] := 21;
    Ani[11] := 17;
    Ani[12] := 17;
    m := 0;
    for k := 1 to 12 do
        if Ani[k] = 17 then
            m := m + Ani[k];
    writeln(m);
end.

Ответ: На экран будет выведено число 51.

Итак, результаты выполнения программ:

1. 4
2. 25
3. 51