Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Контрольная работа по теме "Циклы на языке Паскаль" для 11 класса

Контрольная работа по теме "Циклы на языке Паскаль" для 11 класса

Международный конкурс по математике «Поверь в себя»

для учеников 1-11 классов и дошкольников с ЛЮБЫМ уровнем знаний

Задания конкурса по математике «Поверь в себя» разработаны таким образом, чтобы каждый ученик вне зависимости от уровня подготовки смог проявить себя.

К ОПЛАТЕ ЗА ОДНОГО УЧЕНИКА: ВСЕГО 28 РУБ.

Конкурс проходит полностью дистанционно. Это значит, что ребенок сам решает задания, сидя за своим домашним компьютером (по желанию учителя дети могут решать задания и организованно в компьютерном классе).

Подробнее о конкурсе - https://urokimatematiki.ru/


Идёт приём заявок на самые массовые международные олимпиады проекта "Инфоурок"

Для учителей мы подготовили самые привлекательные условия в русскоязычном интернете:

1. Бесплатные наградные документы с указанием данных образовательной Лицензии и Свидeтельства СМИ;
2. Призовой фонд 1.500.000 рублей для самых активных учителей;
3. До 100 рублей за одного ученика остаётся у учителя (при орг.взносе 150 рублей);
4. Бесплатные путёвки в Турцию (на двоих, всё включено) - розыгрыш среди активных учителей;
5. Бесплатная подписка на месяц на видеоуроки от "Инфоурок" - активным учителям;
6. Благодарность учителю будет выслана на адрес руководителя школы.

Подайте заявку на олимпиаду сейчас - https://infourok.ru/konkurs

  • Информатика

Поделитесь материалом с коллегами:

Контрольная работа по информатике на тему «Циклы на языке Паскаль»

1. Заполнить пропуски в программе, которая выводит четные числа в диапазоне от 20 до 30


Program Primer;

Var x: -------;

Begin

X:=---------;

While x< ------- do ________

Writeln (x);

X : = X + _________;

_________;

End.


2. Заполнить пропуски в программе, которая выводит четные числа в диапазоне от 10 до 20


Program Primer;

Var x: integer;

Begin

For x: = _______ to _______ do ________

If x mod _____ = _______ then write (_____,”);

End;

End.


3. Высчитай, сколько раз выполняется тело цикла и найди ответ


a) For x: = 10 downto 5 do

Write (‘*’)

Б) ) For x: = 1 downto 10 do

Write (‘*’)


В) ) For x: = 5 to 5 do

Write (‘*’)

Г) For x: = 6 to 3 do

Write (‘*’)


Д) ) For x: = 3 downto 3 do

Write (‘*’)

Е) For x: = 1 to 7 do

Write (‘*’)


4. Расставь на свои места команды и операторы так, чтобы получилась программа, которая выводит на экран числа в диапазоне от 20 до 50


1) End.

2) Write (I,‘’);

3) For x: = 20 to 50 do

4) Begin

5) Program Primer;

6) Var I : integer;


5. Найди ошибки в программе

Program Primer;

Var x,y : integer;

Begin

X=0;


While x >= 3.1 do begin

Y:= sin(x);

Writeln(x,y);

X:=x+0.1;

End;

End.

6. Составьте таблицу значений функции y = 4x2 – 5x – 10 на отрезке [-9; 9]  с шагом   b = 3. ( всеми тремя способами, но для цикла для взять интервал от -2 до 2 с шагом 1)

7. 6. Какая программа выдаст ошибку выполнения? (предполагается, что числа s, f, a лежат в интервале от -1000 до 1000, а≠0)

(b)
Var s, f, a: integer;
BeginS:=f+a;
End.

(c)
Var s, f, a: integer;
BeginS:=f-a;
End.

(d)
Var s, f, a: integer;
BeginS:=f*a;
End.

7. Установи соответствие

:=1; while x<10 do begin

Writeln (x)

Тело цикла будет выполняться бесконечно

Х:=1; while 0

Появится сообщение об ошибке

Х:=1; while x<0 do begin

Writeln (x);

X:=x-1;

End

Тело цикла будет выполнено 1 раз

Х:=1; while x<5 do begin

Writeln (x);

X:=x+1;

End

Тело цикла не выполнится ни разу

Х:=1; while x=1 do begin

Writeln (x);

X:=x+1;

End












Самые низкие цены на курсы профессиональной переподготовки и повышения квалификации!

Предлагаем учителям воспользоваться 50% скидкой при обучении по программам профессиональной переподготовки.

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

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

Начало обучения ближайших групп: 18 января и 25 января. Оплата возможна в беспроцентную рассрочку (20% в начале обучения и 80% в конце обучения)!

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



Автор
Дата добавления 31.10.2016
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров129
Номер материала ДБ-306054
Получить свидетельство о публикации

УЖЕ ЧЕРЕЗ 10 МИНУТ ВЫ МОЖЕТЕ ПОЛУЧИТЬ ДИПЛОМ

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

Если Вы учитель или воспитатель, то можете прямо сейчас получить документ, подтверждающий Ваши профессиональные компетенции. Выдаваемые дипломы и сертификаты помогут Вам наполнить собственное портфолио и успешно пройти аттестацию.

Список всех тестов можно посмотреть тут - https://infourok.ru/tests

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

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