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

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

Program test;
Uses crt;
Const n=6;
O:array[1..n] of integer=(2,1,4,3,1,3);
Var V:array[1..n] of string[50];
a,b,i,k:integer;
Begin
clrscr;
V[1]:=’вопрос 1 (и варианты ответов)’;
V[2]:=’вопрос 2 (и варианты ответов)’;
V[3]:=’вопрос 3 (и варианты ответов)’;
V[4]:=’вопрос 4 (и варианты ответов)’;
V[5]:=’вопрос 5 (и варианты ответов)’;
V[6]:=’вопрос 6 (и варианты ответов)’;
for i:=1 to n do
begin
writeln(V[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 (‘И получаете оценку ‘,a);
End.

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

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