Перечислим основные факторы, способствующие повышению эффективности образовательного процесса при условии комплексной информатизации системы образования:оперативность получения информации из структурных подразделений и учебных заведений;снижение прямых и обратных потоков информации;оперативное получение и обработка отчетности;системное хранение и оперативное использование нормативной базы, информации о материально-технической базе, кадровом составе учебных заведений, периодичности прохождения педагогическими кадрами курсов повышения квалификации, опыте работы учебных заведений, педагогов;Информатика и информационно-коммуникационные технологии занимают особое положение в современном мире. Навыки владения компьютером, использование информационных и коммуникационных технологий в повседневной работе, умение использовать возможности сети Интернет - такова реальность сегодняшнего дня. Информационные технологии неизбежно ведут к изменениям в организации учебного процесса. Важно определить их истинную роль и место, которое им должно быть отведено в организации учебного процесса, а также в управлении образовательным учреждением.
Var b,c:integer;
a: array [1..20] of integer; {объявляем массив}
begin
randomize; {говорим что будем использовать в теле программы рандомные числа}
for b:=1 to 15 do begin {жи есть цикл программы который заполняет наш массив от первой ячейки (b) до 15 ячейки }
a[b]:=random(1000); {присваиваем элементам массива рандомные значения}
write(a[b]); {выводим эти значения}
writeln(' <== ',a[b]*2); {рядом выводим точно такой же массив с такими же числами, только умноженными на 2 , а стрелочка для красоты }
end;
<span>end.
надеюсь что так можно? ;D
</span>
Для оформления сайтов в веб-дизайне намного чаще других используется цветовая модель RGB.
Program summa;
var i:integer: s: real;
begin
s:=0;
for i:=1 to 37 do s:=s+1/i;
writeln('s=',s:5:2)
end.
На обычном паскалеАБЦ
var a:array[1..24] of integer; k,i:integer;
begin
k:=0;
for i:=1 to 24 do read(a[i]);
for i:=1 to 24 do if (a[i]>0) and (a[i] mod 2=0) then k:=k+1;
write(k)
<span>end.</span>