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