информатика
сайты - меню - вход - новости




Каталог заданий
Назад в каталог
Вернуться к списку прототипов этой категории
Версия для печати и копирования в MS Word
1
Задание 0 № 5785

В таблице Dat хранятся данные измерений роста учеников 4 класса в сантиметрах. (Dat[1] − рост первого ученика, Dat[2] − второго и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования.

 

Алгоритмический язык

алг

нач

целтаб Dat[1:10]

цел  k, n, d

Dat[1] := 120; Dat[2] := 130

Dat[3] := 110; Dat[4] := 150

Dat[5] := 120;  Dat[6] := 150

Dat[7] := 110; Dat[8] := 140

Dat[9] := 135; Dat[10] := 150

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) = 120: Dat(2) = 130

Dat(3) = 110: Dat(4) = 150

Dat(5) = 120: Dat(6) = 150

Dat(7) = 110: Dat(8) = 140

Dat(9) = 135: Dat(10) = 150

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

END

var k, n, d: integer;

Dat: array[1..10] of integer;

begin

Dat[1] := 120;  Dat[2] := 130;

Dat[3] := 110; Dat[4] := 150;

Dat[5] := 120;  Dat[6] := 150;

Dat[7] := 110; Dat[8] := 140;

Dat[9] := 135; Dat[10] := 150;

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.


 

 


Аналоги к заданию № 4949: 6373 Все

Прототип задания ·