Инфоурок / Информатика / Другие методич. материалы / Контрольная работа по информтике 9 кл. по теме: "Программирование на языке Pascal"
Обращаем Ваше внимание, что в соответствии с Федеральным законом N 273-ФЗ «Об образовании в Российской Федерации» в организациях, осуществляющих образовательную деятельность, организовывается обучение и воспитание обучающихся с ОВЗ как совместно с другими обучающимися, так и в отдельных классах или группах.

Педагогическая деятельность в соответствии с новым ФГОС требует от учителя наличия системы специальных знаний в области анатомии, физиологии, специальной психологии, дефектологии и социальной работы.

Только сейчас Вы можете пройти дистанционное обучение прямо на сайте "Инфоурок" со скидкой 40% по курсу повышения квалификации "Организация работы с обучающимися с ограниченными возможностями здоровья (ОВЗ) в соответствии с ФГОС" (72 часа). По окончании курса Вы получите печатное удостоверение о повышении квалификации установленного образца (доставка удостоверения бесплатна).

Автор курса: Логинова Наталья Геннадьевна, кандидат педагогических наук, учитель высшей категории. Начало обучения новой группы: 27 сентября.

Подать заявку на этот курс    Смотреть список всех 224 курсов со скидкой 40%

Контрольная работа по информтике 9 кл. по теме: "Программирование на языке Pascal"

библиотека
материалов

Вариант 1

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

    Var k, m, day: integer;

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

    Begin

     Pos[1] := 17;  Pos[2] := 19;  Pos[3] := 20; Pos[4] := 18; Pos[5] := 16;   Pos[6] := 20;  Pos[7] := 16; 

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

     for k:=2 to 7 do

       if  Pos[k] < m then

         begin

           m := Pos[k];

           day := k

         end;

     write(day);

    End.

  2. Запишите значение переменной s, полученное в результате работы следующей программы.

    Var s,k: integer;

    Begin

    s := 0;

    for k := 6 to 12 do

    s := s + 5;

    writeln(s);

    End.

  3. Дан массив из 30 элементов. Составьте программу нахождения суммы положительных элементов. Элементы вводятся с помощью генератора случайных чисел.



Вариант 2

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

Var k, m: integer;

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

Begin

Dat[1] := 4; Dat[2] := 5; Dat[3] := 4; Dat[4] := 3; Dat[5] := 2; Dat[6] := 3; Dat[7] := 4; Dat[8] := 5;

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

m := 0;

for k := 1 to 10 do

if Dat[k] < 4 then m := m + Dat[k];

writeln(m);

End.

  1. Запишите значение переменной s, полученное в результате работы следующей программы.

Var s,k: integer;

Begin

 s := 0;

 for k := 7 to 11 do

   s := s+11;

 writeln(s);

End.

  1. Дан массив из 20 элементов. Составьте программу нахождения произведения отрицательных элементов. Элементы вводятся с помощью генератора случайных чисел.


Вариант 3

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

Var k, m, t: integer;

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

Begin

Ball[1]:=42; Ball[2]:=25; Ball[3]:=13; Ball[4]:=18; Ball[5]:=15; Ball[6]:=55; Ball[7]:=48; Ball[8]:=13; Ball[9]:=64; Ball[10]:=45;

m := Ball[1];

for k := 1 to 10 do

if Ball[k] < m then m := Ball[k];

write(m);

End.

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

Var s,k: integer;

Begin

s := 0;

for k := 15 to 19 do

s := s+8;

writeln(s);

End.

  1. Дан массив из 25 элементов. Составьте программу нахождения суммы отрицательных элементов. Элементы вводятся с помощью генератора случайных чисел.



4 вариант

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

Var k, m: integer;

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

Begin

Dat[1] := 12; Dat[2] := 15; Dat[3] := 17; Dat[4] := 15; Dat[5] := 14; Dat[6] := 12; Dat[7] := 10;

Dat[8] := 13; Dat[9] := 14; Dat[10] := 15;

m := 20;

for k := 1 to 10 do

if Dat[k]

begin

m := Dat[k]

end;

writeln(m);

End.

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

Var s,k: integer;

Begin

s:=1;

for k:=1 to 5 do

s:=s * k;

write(s);

End.

  1. Дан массив из 15 элементов. Составьте программу нахождения произведения положительных элементов. Элементы вводятся с помощью генератора случайных чисел.



Самые низкие цены на курсы переподготовки

Специально для учителей, воспитателей и других работников системы образования действуют 50% скидки при обучении на курсах профессиональной переподготовки.

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок", но в дипломе форма обучения не указывается.

Начало обучения ближайшей группы: 27 сентября. Оплата возможна в беспроцентную рассрочку (10% в начале обучения и 90% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru

Общая информация

Номер материала: ДВ-139390

Похожие материалы

2017 год объявлен годом экологии и особо охраняемых природных территорий в Российской Федерации. Министерство образования и науки рекомендует в 2017/2018 учебном году включать в программы воспитания и социализации образовательные события, приуроченные к году экологии.

Учителям 1-11 классов и воспитателям дошкольных ОУ вместе с ребятами рекомендуем принять участие в международном конкурсе «Законы экологии», приуроченном к году экологии. Участники конкурса проверят свои знания правил поведения на природе, узнают интересные факты о животных и растениях, занесённых в Красную книгу России. Все ученики будут награждены красочными наградными материалами, а учителя получат бесплатные свидетельства о подготовке участников и призёров международного конкурса.

Конкурс "Законы экологии"