Раздел " Здоровье и безопасность» Цели обучения 8.4.1.1 Приводить примеры влияния различных электронных организмом на организм человека и эффективно использовать методы защиты 8.4.2.1 Соблюдать правила обеспечения безопасности пользователь в сети (мошеничество и агрессия в интернете) Критерии оценивания Обучающийся Приведите примеры эффективных методов защиты при работа с электронными сооружениями Использует правила техники безопасности B В Интернете. Уровень мыслительных применений навыков Время исполнения 15 минут Задания 1. рассмотреть изображе-ния и определить негативные воздей-ствия компьютера на человек. A)… B)… C)… 2. Сотрудник IT-компании создает сайт и анимацию. Это говорит о том, что он проводит за с компьютером большая часть своего рабочего дня. Дай три совета О защите его здоровья. Совет 1 … … Совет 2 … … … Совет 3 … … … … … … … … … … … …
Рассматриваем движение тела, брошенного под углом к горизонту без начального ускорения. Уравнения движения тела в осях координат известны из физики: Также известна формула для определения времени движения тела до его падения (т.е. возвращения на исходную высоту, которая совпадает с осью X): Считаем, что в начальных условиях задается количество точек, в которых нужно найти значения пути пройденного в осях координат.
uses Crt; const g=9.81; pi=3.14; var alpha,ar,v0,t,x,y,tmax,ht,v0x,v0y:real; n:integer; begin ClrScr; Write('Vvedite alpha, v0: '); Read(alpha,v0); Write('Chislo tochek= '); Read(n); ar:=pi*alpha/180; v0x:=v0*cos(ar); v0y:=v0*sin(ar); tmax:=2*v0*sin(ar)/g; ht:=tmax/n; t:=ht; while t<=tmax do begin x:=v0x*t; y:=v0y*t-g*sqr(t)/2; Writeln('t=',t:6:3,' x=',x:8:3,' y=',y:8:3); t:=t+ht end; ReadKey end.
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.