Чистота, не должно быть воды ( чтобы не случилось замыкания) , провода от компов должны быть целые, нельзя входить в грязной обуви, вроде как то так
Начало » Учителю » Требования к кабинету информатики и вычислительной техники
Требования к кабинету информатики и вычислительной техники.
2.10. Кабинет информатики и вычислительной техники (ИВТ).
2.10.1. Санитарно-гигиенические требования
2.10.1.1. Помещения кабинета ИВТ должны иметь естественное и искусственное освещение в соответствии с СанПиН 2.2.2.542-96.
2.10.1.2. Основной поток естественного света должен быть слева. Ориентация оконных проемов должна быть на север или на северо-восток. Не допускается направление основного светового потока естественного света сзади и спереди работающего на ПЭВМ. При двухстороннем освещении при глубине помещения кабинета более 6м обязательно устройство правостороннего подсвета, высота которого должна быть не менее 2,2м от пола.
2.10.1.3. В осветительных установках кабинета ИВТ должна быть использована система общего освещения, выполненная потолочными или подвесными люминесцентными светильниками, равномерно размещенными по потолку рядами в виде сплошных линий с двух сторон о рабочего стола с ПЭВМ или ВДТ. Светильники, а также оконные светопроемы не должны отражаться на экранах ПЭВМ или ВДТ.
2.10.1.4. Освещенность поверхности ученических столов при искусственном освещении должна быть в пределах 300-500 лк. Светильники должны иметь светорассеивающую арматуру.
2.10.1.5. В качестве источников света рекомендуется использовать люминесцентные лампы мощностью 40Вт, 58Вт или энергоэкономичные мощностью 36Вт типа ЛБ, ЛХБ как наиболее эффективные и приемлемые с точки зрения спектрального состава.
2.10.1.6.Для учебных помещений с ПЭВМ и ВДТ следует применять светильники серии ЛП036 с высокочастотными пускорегулируемыми аппаратами (ВЧПРА). Можно допустить применение светильников без ВЧПРА в модификации "кососвет".
2.10.1.7. В помещениях с ПЭВМ по причине загрязнения воздуха антропогенными веществами органической природы и диоксидом углерода рекомендуется иметь приточно-вытяжную вентиляцию, обеспечивающую оптимальный температурно-влажностный режим для всех климатических зон.
Оптимальные параметры Допустимые параметры
Температура, С Относительная влажность, % Температура, С Относительная влажность, %
19 62 18 39
20 58 22 31
21 55 - -
1)
var
i,k:integer;
a:array [1..14] of integer;
begin
k:=0;
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
if a[i] mod 2=0 then k:=i;
end;
if k>0 then
begin
for i:=k to 13 do a[i]:=a[i]+1;
a[14]:=0;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
2)
var
i,k:integer;
a:array [1..14] of integer;
begin
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
end;
for i:=1 to 7 do
begin
k:=a[i];
a[i]:=a[i+7];
a[i+7]:=k;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
Rogram z1;
Var n,I,s,k:integer;
Begin
Writeln ('n=');
Readln (n);
S:=0;k:=0;
If n>=100 then
For I:=100 to n do begin
S:=i+s;
K:=k+1;end;
Writeln (s/k);
Readln ;
End.
В общем, проверь ссылки ярлыков (точно ли ведут на нужные программы) и наличие необходимого (.NET, DirectX (хотя не вижу связь, но не повредит)), ну и, конечно, систему антивирем (Kaspersky Virus Removal Tool самое оно)
//PascalABC.NET 3.1 сборка 1219
procedure PrintMatrix(a: array[,] of integer);
begin
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
begin
writeln;
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
write(a[i, j], ' ');
end;
writeln;
end;
begin
var a := MatrixRandom(ReadInteger('n ='), ReadInteger('m ='), 0, 255);
PrintMatrix(a);
for var i := a.GetLowerBound(0) to (a.GetUpperBound(0) div 2) do
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
swap(a[i, j], a[a.GetLowerBound(0) + a.GetUpperBound(0) - i, j]);
PrintMatrix(a);
end.