7


  • Учителю
  • Проверочная работа по теме Одномерные массивы

Проверочная работа по теме Одномерные массивы

Автор публикации:
Дата публикации:
Краткое описание:
предварительный просмотр материала

</ Вариант № 1

program z1;

var

m:array[1. . 100] of real;

n, c: integer;

p:real;

begin

n:=15;

for c: =1 to n do

begin

m[c]:=random(6);

write(m[c]:4);

end;

writeln;

p:=1;

for c:=1 to n do

if m[c]<>0 then p:=p*m[c];

writeln(р);

end.







Вариант № 2

program z2 ;

var

b: array[1..50] of real;

k,i:integer;

c:real;

begin

k:=12;

for i: =1 to k do

begin

b[i]:=random(21)-10;

write(b[i]:4);

end;

writeln;

c:=0;

for i:=1 to k do

if (b[i]>0) and (i mod 2 =0) then

c:=c+b[i];

writeln(c);

end.





Вариант № 3

program z3;

var

c:array[1. . 20] of integer;

n, d, m, k: integer;

begin

d:=17;

for k: =1 to d do

begin

c[k]:=random(41)+15;

write(c[k]:4);

end;

writeln;

m:=c[1]; n:=1;

for k:=2 to d do

if c[k]>m then

m:=c[k];

writeln(m);

end.





Вариант № 4

program z4;

var

c:array[1. . 40] of integer;

n, d, m, j: integer;

begin

j:=17;

for d: =1 to j do

begin

c[d]:=random(61)+20;

write(c[d]:4);

end;

writeln;

m:=c[1]; n:=1;

for d:=2 to j do

if c[d]< m then

n:= d;

writeln(n);

end.









Вариант № 5

program z5;

var

m:array[1. . 80] of real;

n, c, p: integer;

begin

n:=7;

for c: =1 to n do

begin

m[c]:=random(31)-20;

write(m[c]:4);

end;

writeln;

p:=0;

for c:=1 to n do

if m[c]<0 then p:=p+1;

writeln(р);

end.









Вариант № 6

program z6 ;

var

b: array[1..10] of real;

k,i,c:integer;

begin

k:=8;

for i: =1 to k do

begin

b[i]:=random(61)-30;

write(b[i]:4);

end;

writeln;

c:=0;

for i:=1 to k do

if (b[i] mod 2=0) and (i mod 2 =0)

then

c:=c+1;

writeln(c);

end.





Вариант № 7

program z7;

var

c:array[1. . 20] of integer;

d, m, k: integer;

begin

d:=17;

for k: =1 to d do

begin

c[k]:=random(41)-15;

write(c[k]:4);

end;

writeln;

m:= 0;

for k:=1 to d do

if c[k] mod 5=0 then

m:=m+c[k];

writeln(m);

end.





Вариант № 8

program z8;

var

c:array[1. . 20] of integer;

n, d, m: integer;

begin

m:=15;

for d: =1 to m do

begin

c[d]:=random(21)-5;

write(c[d]:4);

end;

writeln;

n:=1;

for d:=1 to m do

if c[d] mod 2<>0 then

n:=n*c[d];

writeln(n);

end.





Цель работы: проверка усвоения основных понятий по теме «Одномерные массивы».



Вопросы:

  1. Определить имя массива

  2. Указать тип элементов массива.

  3. Запишите максимальное возможное количество элементов в массиве.

  4. Какой переменной обозначены индексы элементов массива.

  5. Количество элементов в данном массиве.

  6. Как обозначается текущий элемент массива.

  7. Есть ли отрицательные элементы в данном массиве.

  8. Запишите промежуток чисел, из которого выбираются элементы массива случайным образом.

  9. Определить тип переменной, в которой сохраняется результат.

  10. Что вычисляет данная программа.





Критерии оценивания:



«3» - 6-7 верных ответов

«4» - 8-9 верных ответов

«5» - 10 верных ответов





Учащимся раздаются индивидуальные карточки с программой и вопросы (можно вывести на экран). Предварительно для самоподготовки выдан через Дневник.ру тренажер learningapps.org/display?v=p10058qta01.



Ответы<>0

Сумма положительных элементов с четными номерами

Максимальный элемент

Номер минимального элемента

Количество отрицательных элементов

Количнство четных элементов с четными номерами

Сумма элементов кратные 5

Произведение нечетных элементов





 
 
X

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

После этого кнопка ЗАГРУЗКИ станет активной!

Кнопки рекомендации:

загрузить материал