kopilkaurokov.ru - сайт для учителей

Создайте Ваш сайт учителя Курсы ПК и ППК Видеоуроки Олимпиады Вебинары для учителей

Проверочная работа на тему "Массивы в Паскаль"

Нажмите, чтобы узнать подробности

Проверочная работа на тему "Массивы в Паскаль"

Вы уже знаете о суперспособностях современного учителя?
Тратить минимум сил на подготовку и проведение уроков.
Быстро и объективно проверять знания учащихся.
Сделать изучение нового материала максимально понятным.
Избавить себя от подбора заданий и их проверки после уроков.
Наладить дисциплину на своих уроках.
Получить возможность работать творчески.

Просмотр содержимого документа
«Проверочная работа на тему "Массивы в Паскаль"»

Проверочная работа

Циклический алгоритм обработки массива чисел, записанный на алгоритмическом языке

1 вариант


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

Паскаль

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

Var k, m, day: integer;

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

Begin

   Dat[1] := 7; Dat[2] := 9;

   Dat[3] := 10; Dat[4] := 8;

   Dat[5] := 6; Dat[6] := 7;

   Dat[7] := 6;

   day := 1;

   m := Dat[1];

   for k := 2 to 7 do

      if Dat[k] then

       begin

          day := k;

          m := Dat[k];

       end;

   writeln(day);

End.

   алг

   нач

   цел­таб Dat[1:7]

   цел k, m, day

   Dat[1] := 7

   Dat[2] := 9

   Dat[3] := 10

   Dat[4] := 8

   Dat[5] := 6

   Dat[6] := 7

   Dat[7] := 6

   day := 1

   m := Dat[1]

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

       если Dat[k] то

           day := k

           m := Dat[k]

       все

   кц

   вывод day

   кон


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

 

Паскаль

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

Var k, c: integer;

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

Begin

   Ball[1]:=4;Ball[2]:=5;

   Ball[3]:=3;Ball[4]:=4;

   Ball[5]:=2;Ball[6]:=5;

   Ball[7]:=4;Ball[8]:=3;

   Ball[9]:=4;Ball[10]:=5;

   c := 0;

   for k := 1 to 10 do

      if Ball[k] 4 then

       begin

          c := c + 1;

       end;

   writeln(c);

End.

  алг

нач

   цел­таб Ball[1:10]

   цел k, c

   Ball[1] := 4

   Ball[2] := 5

   Ball[3] := 3

   Ball[4] := 4

   Ball[5] := 2

   Ball[6] := 5

   Ball[7] := 4

   Ball[8] := 3

   Ball[9] := 4

   Ball[10] := 5

   c := 0

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

       если Ball[k] 4 то

           c := c + 1

       все

   кц

   вывод c

кон

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

 

Паскаль

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

Var k, m: integer;

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

Begin

   Dat[1] := 2; Dat[2] := 5;

   Dat[3] := 7; Dat[4] := 5;

   Dat[5] := 4; Dat[6] := 2;

   Dat[7] := 0; Dat[8] := 2;

   Dat[9] := 4; Dat[10] := 5;

   m := 0;

   for k := 1 to 10 do

      if Dat[k] 3 then

       begin

          m := m + 1;

       end;

   writeln(m);

End.

   алг

   нач

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

   цел k, m

   Dat[1] := 2

   Dat[2] := 5

   Dat[3] := 7

   Dat[4] := 5

   Dat[5] := 4

   Dat[6] := 2

   Dat[7] := 0

   Dat[8] := 2

   Dat[9] := 4

   Dat[10] := 5

   m := 0

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

       если Dat[k] 3 то

           m := m + 1

       все

   кц

   вывод m

   кон





Проверочная работа

Циклический алгоритм обработки массива чисел, записанный на алгоритмическом языке

2 вариант

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

Паскаль

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

Var k, day: integer;

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

Begin

   Dat[1] := 9; Dat[2] := 11;

   Dat[3] := 10; Dat[4] := 13;

   Dat[5] := 8; Dat[6] := 5;

   Dat[7] := 11;

   day := 0;

   for k := 1 to 7 do

      if Dat[k] then

       begin

          day := day + 1;

       end;

   writeln(day);

End.

   алг

   нач

   цел­таб Dat[1:7]

   цел k, day

   Dat[1] := 9

   Dat[2] := 11

   Dat[3] := 10

   Dat[4] := 13

   Dat[5] := 8

   Dat[6] := 5

   Dat[7] := 11

   day := 0

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

       если Dat[k] то

           day := day + 1

       все

   кц

   вывод day

   кон


2. В таблице A хранятся данные о количестве призеров олимпиады по программированию по 9-ти округам Москвы. Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на пяти языках программирования.

 

Паскаль

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

Var k, score: integer;

A: array[1..9] of integer;

Begin

   A[1]:=9;A[2]:=11;

   A[3]:=7;A[4]:=12;

   A[5]:=13;A[6]:=5;

   A[7]:=9;A[8]:=3;

   A[9]:=4;

   score := 0;

   for k := 1 to 9 do

      if A[k] then

       begin

          score := score + A[k];

       end;

   writeln(score);

End.

  алг

  нач

   цел­таб A[1:9]

   цел k, score

   A[1] := 9

   A[2] := 11

   A[3] := 7

   A[4] := 12

   A[5] := 13

   A[6] := 5

   A[7] := 9

   A[8] := 3

   A[9] := 4

   score := 0

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

       если A[k] то

           score := score + A[k]

       все

   кц

   вывод score

кон

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

 

Паскаль

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

Var k, m, day: integer;

A: array[1..6] of integer;

Begin

   A[1]:=3;A[2]:=1;

   A[3]:=4;A[4]:=2;

   A[5]:=4;A[6]:=2;

   day := 1;

   m := A[1];

   for k := 2 to 6 do

      if A[k] = m then

       begin

          m := A[k];

          day := k;

       end;

   writeln(day);

End.

  алг

  нач

   цел­таб A[1:6]

   цел k, m, day

   A[1] := 3

   A[2] := 1

   A[3] := 4

   A[4] := 2

   A[5] := 4

   A[6] := 2

   day := 1

   m := A[1]

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

       если A[k] = m то

           m := A[k]

           day := k

       все

   кц

   вывод day

кон




Получите в подарок сайт учителя

Предмет: Информатика

Категория: Прочее

Целевая аудитория: 9 класс

Скачать
Проверочная работа на тему "Массивы в Паскаль"

Автор: Екатерина Валерьевна Хисамова

Дата: 19.10.2022

Номер свидетельства: 615372


Получите в подарок сайт учителя

Видеоуроки для учителей

Курсы для учителей

ПОЛУЧИТЕ СВИДЕТЕЛЬСТВО МГНОВЕННО

Добавить свою работу

* Свидетельство о публикации выдается БЕСПЛАТНО, СРАЗУ же после добавления Вами Вашей работы на сайт

Удобный поиск материалов для учителей

Ваш личный кабинет
Проверка свидетельства