информатика
Математика
Информатика
Английский язык
Немецкий язык
Французcкий язык
Испанский язык
Физика
Химия
Биология
География
Обществознание
Литература
История
сайты - меню - вход - новости




Задания
Версия для печати и копирования в MS Word
Задание 10 № 491

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

 

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

нач

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

цел k, m, day

Dat[1] := 6

Dat[2] := 2

Dat[3] := 5

Dat[4] := 3

Dat[5] := 4

Dat[6] := 4

Dat[7] := 3

Dat[8] := 5

Dat[9] := 2

Dat[10] := 6

day:=1; m := Dat[1]

нц для k от 2 до 10

если Dat[к] < m то

m:= Dat[k]

day := k

все

КЦ

вывод day

КОН

DIM Dat(10) AS INTEGER

Dat[1] = 6

Dat[2] = 2

Dat[3] = 5

Dat[4] = 3

Dat[5] = 4

Dat[6] = 4

Dat[7] = 3

Dat[8] = 5

Dat[9] = 2

Dat[10] = 6

day = 1: m = Dat(1)

FOR k = 2 TO 10

IF Dat(k) < m THEN

m = Dat(k)

day = k

END IF

NEXT k

PRINT day

END

Var k, m, day: integer;

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

Begin

Dat[1] := 6;

Dat[2] := 2;

Dat[3] := 5;

Dat[4] := 3;

Dat[5] := 4;

Dat[6] := 4;

Dat[7] := 3;

Dat[8] := 5;

Dat[9] := 2;

Dat[10] := 6;

day:=1; m := Dat[1];

for k := 2 to 10 do

if Dat[k] < m then

begin

m:= Dat[k];

day := k;

end;

write(day);

End.

Пояснение.

Программа пред­на­зна­че­на для на­хож­де­ния пер­во­го дня, в ко­то­рый с вок­за­ла от­пра­ви­лось ми­ни­маль­ное ко­ли­че­ство поездов. Про­ана­ли­зи­ро­вав вход­ные данные, при­хо­дим к выводу, что ответ 2.

Источник: Типовые эк­за­ме­на­ци­он­ные ва­ри­ан­ты по информатике. Кры­лов С. С., Чур­ки­на Т. Е. — 2013, ва­ри­ант 8.