В таблице Dat хранятся данные измерений роста учеников 4 класса в сантиметрах. (Dat[1] – рост первого ученика, Dat[2] – второго и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанног...
В таблице Dat хранятся данные измерений роста учеников 4 класса
в сантиметрах. (Dat[1] – рост первого ученика, Dat[2] – второго и т. д.).
Определите, что будет напечатано в результате выполнения следующего
алгоритма, записанного на трёх языках программирования.
Алгоритмический язык Бейсик
алг
нач
целтаб 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
n := 1; d := Dat[1]
нц для k от 2 до 10
если Dat[k] >= d то
d := Dat[k]; n := k
все
кц
вывод n
кон
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
n = 1: d = Dat(1)
FOR k = 2 TO 10
IF Dat(k) >= d THEN
d = Dat(k)
n = k
END IF
NEXT k
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;
n := 1; d := Dat[1];
for k := 2 to 10 do
if Dat[k] >= d then
begin
d := Dat[k]; n := k
end;
write(n);
end.
Ответ: ___________________________.
Гость
Ответ(ы) на вопрос:
Гостьт.к. нам сказано, что Dat[k] >= d, то нам нужно найти наибольшее значение Dat[k] но т.к. там несколько одинаковых наиб. и n := k, то записать нужно номер последнего наиб. Dat.
Ответ: 9
Не нашли ответ?
Похожие вопросы