Дидактические      Документация     Психология    Здоровьесберегающие
                          материалы                                                               технологии

Тест «Арифметическая и геометрическая прогрессии».

Program test;
Uses crt;
Const n=10;
O:array[1..n] of integer=(3,4,3,2,3,3,4,1,3,2);
Var V:array[1..n] of string;
VO:array[1..n] of string;
a,b,i,k:integer;
Begin
clrscr;
writeln(‘ Тест «Арифметическая и геометрическая прогрессии».’);
writeln;
writeln;
writeln(‘ Вам нужно выполнить 10 заданий.’);
writeln(‘ После выполнения задания введите номер ответа, ‘);
writeln(‘ который считаете правильным и нажмите Enter.’);
V[1]:=’1) В арифметической прогрессии а3=7,5 и а7=14,3. Найдите d и a1. ‘;
VO[1]:=’ 1) d=6,8 и a1=-6,1; 2) d=3,4 и a1=0,7; 3) d=1,7 и a1=4,1; 4) d=1,4 и a1=4,7.’;
V[2]:=’2) В арифметической прогрессии а1=-5,6 и а2=-4,8. На каком месте (укажите номер) находится число 16? ‘;
VO[2]:=’ 1) n=14; 2) n=13; 3) n=27; 4) n=28.’;
V[3]:=’3) В арифметической прогрессии а1=29,2 и а2=27,9. Найдите первое отрицательное число. ‘;
VO[3]:=’ 1) -1,1; 2) -0,9; 3) -0,7; 4) -0,3. ‘;
V[4]:=’4) Найдите сумму первых восемнадцати членов арифметической прогрессии, заданной формулой а[n]=4n+9. ‘;
VO[4]:=’ 1) 732; 2) 846; 3) 768; 4) 934.’;
V[5]:=’5) В геометрической прогрессии а1=36 и а3=9. Найдите знаменатель q.’;
VO[5]:=’ 1) 2; 2) 1/4; 3) 1/2 или -1/2; 4) 1/2.’;
V[6]:=’6) В геометрической прогрессии а1=-1/6 и а2=1/2. Найдите пятый член этой прогрессии. ‘;
VO[6]:=’ 1) 13 1/3; 2) 40,5; 3) -13,5; 4) 1/486.’;
V[7]:=’7) В геометрической прогрессии b1=-0,3 и b2=-0,6. Найдите сумму шести первых членов этой прогрессии. ‘;
VO[7]:=’ 1) -9,3; 2) 6,3; 3) 3,2; 4) -18,9. ‘;
V[8]:=’8) Найдите первый член арифметической прогрессии, если а1+а6=26 и а2+а3=18. ‘;
VO[8]:=’ 1) 3; 2) 2; 3) 4; 4) 1,5.’;
V[9]:=’9) Для числа 0.58(3) найдите несократимую обыкновенную дробь. Запишите разность числителя и знаменателя. ‘;
VO[9]:=’ 1) 3; 2) 7; 3) 5; 4) 2.’;
V[10]:=’10) Дано: (b[n])-геометрическая прогрессия, b1=2 и q=3. Какой цифрой оканчивает- ся b15? ‘;
VO[10]:=’ 1) 6; 2) 8; 3) 4; 4) 2.’;
for i:=1 to n do
begin
writeln(V[i]);
writeln;
writeln(VO[i]);
readln(b);
if (b=O[i]) then k:=k+1 else O[i]:=0;
end;
i:=0;
if k/n>0 then a:=1;
if k/n>0.2 then a:=2;
if k/n>0.4 then a:=3;
if k/n>0.8 then a:=4;
if k/n>0.8 then a:=5;
writeln (‘Вы ответили правильно на вопросы: ‘);
for i:=1 to n do if (O[i]<>0) then write(i,’ ‘);
writeln;
writeln (‘И получаете оценку ‘,a);
writeln(‘Нажмите Enter.’);
readln;
end.

RSS 2.0 | Трекбек | Комментарий

Комментирование закрыто.