Главная страница
Навигация по странице:

  • Бейсик Паскаль

  • Ответ: 570

  • Ответ: 21

  • 1. умножь на 2 2. вычти 1

  • Ответ: 21212

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

  • Ответ: 45

    		•

    Контрольная работа. Контрольная работа. Задание 1


    Скачать 24.45 Kb.
    НазваниеКонтрольная работа. Задание 1
    Дата17.10.2022
    Размер24.45 Kb.
    Формат файлаdocx
    Имя файлаКонтрольная работа.docx
    ТипКонтрольная работа
    #738691

    ФИО:

    Группа:

    № студенческого:

    Контрольная работа.

    Задание 1.

    В таблице Sea хранятся данные о количестве россиян, отдыхавших на Чёрном море (Sea[1] – число россиян в 2001 году, Sea[2] – в 2002 и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.

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

    алг

    нач

        целтаб Sea[1:12]

        цел k, s

        Sea[1] := 170; Sea[2] := 170

        Sea[3] := 190; Sea[4] := 210

        Sea[5] := 230; Sea[6] := 220

        Sea[7] := 240; Sea[8] := 160

        Sea[9] := 190; Sea[10] := 210

        Sea[11] := 170; Sea[12] := 170

        s := 100

        нц для k от 1 до 12

            если Sea[k] > 220 то

             s := s + Sea[k]

            все

        кц

        вывод s

    кон

    Бейсик
    Паскаль

    DIM Sea(12) AS INTEGER

    DIM k,s AS INTEGER

    Sea(1) = 170: Sea(2) = 170

    Sea(3) = 190: Sea(4) = 210

    Sea(5) = 230: Sea(6) = 220

    Sea(7) = 240: Sea(8) = 160

    Sea(9) = 190: Sea(10) = 210

    Sea(11) = 170: Sea(12) = 170

    s = 100

    FOR k = 1 TO 12

     IF Sea(k) > 220 THEN

      s = s +Sea(k)

     END IF

    NEXT k

    PRINT s

    END
    var k, s: integer;

      Sea: array[1..12] of integer;

    begin

      Sea[1] := 170; Sea[2] := 170;

      Sea[3] := 190; Sea[4] := 210;

      Sea[5] := 230; Sea[6] := 220;

      Sea[7] := 240; Sea[8] := 160;

      Sea[9] := 190; Sea[10] := 210;

      Sea[11] := 170; Sea[12] :=170;

      s := 100;

      for k := 1 to 12 do

        if Sea[k] > 220 then

          s := s + Sea[k];

      writeln(s);

    end.

    Переменные Sea(1), Sea(2), Sea(3), Sea(4), Sea(6), Sea(8), Sea(9), Sea(10), Sea(11), Sea(12) <=220, значит не удовлетворяют условию.

    Переменные Sea(5), Sea(7) >220 удовлетворяют условию, значит s = 100 + 230 + 240= 570;

    Ответ: 570

    Задание 2.

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


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

    алг

    нач

    целтаб Ves[1:14]

    цел i, n

    Ves[1] := 25; Ves[2] := 21

    Ves[3] := 23; Ves[4] := 28

    Ves[5] := 30; Ves[6] := 25

    Ves[7] := 31; Ves[8] := 28

    Ves[9] := 25; Ves[10] := 28

    Ves[11] := 30; Ves[12] := 27

    Ves[13] := 26; Ves[14] := 24

    n := Ves[1]

    нц для i от 1 до 14

    если Ves[i] < n то

    n := Ves[i]

    все

    кц

    вывод n

    кон

    Бейсик
    Паскаль

    DIM Ves(14) AS INTEGER

    DIM i, n AS INTEGER

    Ves(1) = 25: Ves(2) = 21

    Ves(3) = 23: Ves(4) = 28

    Ves(5) = 30: Ves(6) = 25

    Ves(7) = 31: Ves(8) = 28

    Ves(9) = 25: Ves(10) = 28

    Ves(11) = 30: Ves(12) = 27

    Ves(13) = 26: Ves(14) = 24

    n = Ves(1)

    FOR i = 1 TO 14

     IF Ves(i) < n THEN

      n = Ves(i)

     END IF

    NEXT i

    PRINT n

    END
    var

    Ves: array[1..14] of integer;

    i, n: integer;

    begin

    Ves[1] := 25;  Ves[2] := 21;

    Ves[3] := 23; Ves[4] := 28;

    Ves[5] := 30;  Ves[6] := 25;

    Ves[7] := 31; Ves[8] := 28;

    Ves[9] := 25; Ves[10] := 28;

    Ves[11] := 30; Ves[12] := 27;

    Ves[13] := 26; Ves[14] := 24;

    n := Ves[1];

    for i := 1 to 14 do

    if Ves[i] < n then

    n := Ves[i];

    writeln(n);

    end.

    Самая маленькая переменная Ves(2) = 21, в итоге n будет равно 21

    Ответ: 21

    Задание 3.

    У исполнителя Вычислитель две команды, которым присвоены номера:

    1. умножь на 2

    2. вычти 1

    Первая из них увеличивает число на экране в 2 раза, вторая уменьшает его
    на 1.

    Составьте алгоритм получения из числа 9 числа 29, содержащий не более
    5 команд. В ответе запишите только номера команд.

    Если таких алгоритмов более одного, запишите любой из них.

    Расчёт: 9-1 = 8 => 8*2 = 16 => 16-1 = 15 => 15*2 = 30 => 30-1 = 29

    Ответ: 21212

    Задание 4.

    Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.

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

    алг

    нач

    цел  s, k

    s := 0

     нц для k от 5 до 9

      s := s + 9

    кц

    вывод s

    кон
    DIM k, s AS INTEGER

    s = 0

    FOR k = 5 TO 9

      s = s + 9

    NEXT k

    PRINT s

    END
    var s,k: integer;

    begin

     s := 0;

     for k := 5 to 9 do

       s := s + 9;

     writeln(s);

    end.

     

    Расчёт:

    k = 5 и цикл будет повторяться пока k не станет 9. В итоге цикл будет повторятся 5 раз

    s= 0; после завершения цикла s будет равно 45. В результате будет напечатано - 45

    Ответ: 45

    Задание 5.

    Между населёнными пунктами A, B, C, D, E, F построены дороги, протяжённость которых (в километрах) приведена в таблице.

     
    A
    B
    C
    D
    E
    F

    A
     
    1
    5
     
     
    13

    B
    1
     
    2
     
     
     

    C
    5
    2
     
    1
     
     

    D
     
     
    1
     
    2
    5

    E
     
     
     
    2
     
    2

    F
    13
     
     
    5
    2
     

    Определите длину кратчайшего пути между пунктами A и F. Передвигаться можно только по дорогам, указанным в таблице.

    Варианты ответа:

    1) 8

    2) 9

    3) 11

    4) 13

    Путь от A до F:

    A=>B=>C=>D=>E =>F = 8

    Ответ: 8

    написать администратору сайта