Контрольная работа по теме: «Цикл с предусловием»

МУНИЦИПАЛЬНОЕ АВТОНОМНОЕ ОБЩЕОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ «СРЕДНЯЯ ОБЩЕОБРАЗОВАТЕЛЬНАЯ ШКОЛА № 112 Г. ЧЕЛЯБИНСКА»


Выполнила учитель информатики и ИКТ
первой категории Юсупова Евгения Викторовна
г.Челябинск, 2014
Контрольная работа по теме «Оператор цикла с предусловием» Вариант 1
1. Чему будет равно значение переменной n после выполнения инструкций:
n:=0;
while n<5 do
n:=n+1;
2. Что будет выводиться на экран во время выполнения инструкций:
n:=1;
while n<=10 do
begin
x:=n*n;
wtiteln(n,’ ’,x);
n:=n+1;
end;
3. Игра «Угадай число» заканчивается, если количество попыток достигло 10. Напишите условие завершения игры
c:=0; //число попыток
while условие do
begin
write (Ваш вариант’);
readln(m);
c:=c+1;
end;
4. Определить значение переменной s после выполнения операторов:
а) s:=0;
i:=0;
while i<5 do
begin
i:=i+1
end;
s:=s+1/i;

5. Найти ошибки в следующем фрагменте программы:
a) p:=0;
while i do
begin
p:=p*i;
end;
б) s:=0;
while s<10 do
begin
s:=s+i;
i:=i+k;
end;
6. Даны N вещественных чисел. Найти среднее арифметическое отрицательных чисел.
7. Вычислить произведение первых 5 четных чисел.

Контрольная работа по теме «Оператор цикла с предусловием» Вариант 2
1. Чему будет равно значение переменной n после выполнения инструкций:
n:=0;
while n<5 do
n:=n+1;
2. Что будет выводиться на экран во время выполнения инструкций:
n:=1;
while n<=10 do
begin
x:=n*n;
wtiteln(n,’ ’,x);
n:=n+1;
end;
3. Игра «Угадай число» заканчивается, если количество попыток достигло 10. Напишите условие завершения игры
c:=0; //число попыток
while условие do
begin
write (Ваш вариант’);
readln(m);
c:=c+1;
end;
4. Определить значение переменной s после выполнения операторов:
а) s:=0;
i:=0;
while i<5 do
begin
i:=i+1
end;
s:=s+1/i;

5. Найти ошибки в следующем фрагменте программы:
a) p:=0;
while i do
begin
p:=p*i;
end;
б) s:=0;
while s<10 do
begin
s:=s+i;
i:=i+k;
end;
6. Даны N вещественных чисел. Найти среднее арифметическое положительных чисел.
7. Вычислить произведение первых 5 нечетных чисел.

б) s:=0;
i:=0;
while i<5 do
begin
i:=i+1
s:=s+1/i;
end;


б) s:=0;
i:=0;
while i<5 do
begin
i:=i+1
s:=s+1/i;
end;





Приложенные файлы

  • doc KRchikl
    Размер файла: 36 kB Загрузок: 16