На сегодняшний день существуют сайты, проводящие тестирование, показывающие теорию при неправильном решении задач.
Прямая связь - показ веб-страниц с заданиями, решениями, теорией. Обратная связь - получение данных о правильности решения задач, регулировка количества задач в зависимости от правильности выполнения.
Преимущества:
- доступ к контенту от лучших учителей
- доступ к урокам в удобное время
- возможность "геймификации" - внедрения игрового процесса обучения
- моментальная проверка задач
- возможность автоматической генерации вариантов задания, делающая задания более разнообразными
Недостатки:
- отсутствие реакции на необычные ситуации
- отсутствие контроля процесса выполнения
- ограниченность круга задач с автоматической проверкой (как правило, тестами)
- недостаток "креативных" задач
Я бы отнесла былины к социальным моделям, т.к. они моделируют ситуации взаимоотношений между людьми в обществе.
var a:array[1..100]of integer;
i,n,s1,s2:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);s1:=0;s2:=0;
for i:=1 to n do
if i mod 2=0 then s1:=s1+a[i];
if i mod 2=1 then s2:=s2+a[i];
writeln(s1,' ',s2);
end.
Var a:array[1..10] of real;
i:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(21)-10+random;
write(a[i]:0:2,' ');
end;
WRITELN;
write('Изменённый массив: ');
for i:=1 to 10 do
begin
if i mod 2 = 0 then a[i]:=a[i]/2;
write (a[i]:0:2,' ');
end;
end.
var a:array[1..7] of integer;
i:integer;
begin
write('Исходный массив: ');
for i:=1 to 7 do
begin
a[i]:=random(11);
write(a[i],' ');
end;
WRITELN;
write('Изменённый массив: ');
for i:=1 to 7 do
begin
if a[i] mod 10 = 0 then a[i]:=0;
write(a[i],' ');
end;
end.
Две задачи в файле
3)
var n,i;integer;
s:real;
begin
write('n=',n); read(n);
for i:=1 to n do begin
s:=s+1/i;
end;
write('s=',s);
end.