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




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

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

 

БейсикPython

DIM Dat(10) AS INTEGER

DIM k, m, day 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

m = Dat(1); day = 1

FOR k = 2 TO 10

IF Dat(k) < m THEN

m = Dat(k)

day = k

ENDIF

NEXT k

PRINT day

Dat = [6, 2, 5, 3, 4, 4, 3, 5, 2, 6]

m = Dat[0]

day = 1

for k in range(1, 10):

    if Dat[k] < m:

        m = Dat[k]

        day = k + 1

print (day)

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

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;

   m := Dat[1];

   day := 1;

   for k := 2 to 10 do

      if Dat[k] < m then

       begin

          m := Dat[k];

          day := k;

       end;

   writeln(day);

End.

   алг

   нач

   цел­таб 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

   m := Dat[1]

   day := 1

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

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

           m := Dat[k]

           day := k

       все

   кц

   вывод day

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[10] = {6, 2, 5, 3, 4, 4, 3, 5, 2, 6};

    int m = Dat[0];

    int day = 1;

    for (int k = 1; k < 10; k++)

        if (Dat[k] < m) {

            m = Dat[k];

            day = k + 1;

        }

    cout << day;

    return 0;

}

 

Пояснение.

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