Вариант № 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.
Цель работы: проверка усвоения основных понятий по теме «Одномерные массивы».
Вопросы:
Определить имя массива Указать тип элементов массива. Запишите максимальное возможное количество элементов в массиве. Какой переменной обозначены индексы элементов массива. Количество элементов в данном массиве. Как обозначается текущий элемент массива. Есть ли отрицательные элементы в данном массиве. Запишите промежуток чисел, из которого выбираются элементы массива случайным образом. Определить тип переменной, в которой сохраняется результат. Что вычисляет данная программа.Критерии оценивания:
«3» - 6-7 верных ответов
«4» - 8-9 верных ответов
«5» - 10 верных ответов
Учащимся раздаются индивидуальные карточки с программой и вопросы (можно вывести на экран). Предварительно для самоподготовки выдан через Дневник. ру тренажер http://learningapps. org/display? v=p10058qta01.
Ответы
Номер вопроса | варианты | |||||||
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | |
1 | m | b | c | c | m | d | c | c |
2 | вещ | вещ | цел | цел | вещ | вещ | цел | цел |
3 | 100 | 50 | 20 | 40 | 80 | 10 | 20 | 20 |
4 | c | i | k | d | c | i | k | d |
5 | 15 | 12 | 17 | 17 | 7 | 8 | 17 | 15 |
6 | M[c] | B[i] | C[k] | C[d] | M[c] | B[i] | C[k] | C[d] |
7 | нет | есть | нет | нет | есть | есть | есть | есть |
8 | [0;5] | [-10;10] | [15;55] | [20;80] | [-20;10] | [-30;30] | [-15;25] | [-5;15] |
9 | вещ | вещ | цел | цел | цел | цел | цел | цел |
10 | Произведение элементов <>0 | Сумма положительных элементов с четными номерами | Максимальный элемент | Номер минимального элемента | Количество отрицательных элементов | Количнство четных элементов с четными номерами | Сумма элементов кратные 5 | Произведение нечетных элементов |
