1) Посоревнуйтесь, кто быстрей напечает какое небудь известное высказывание.
2) Спросити кто сможет нарисовать в пэинте цветочек, кто быстрей тот и выграл.
3) Представьте мир без компьютеров, что бы вы делали?
4) Подумайте, что можно добавить в компьютер? Как его усовершенстовать?
Program zadacha3;vari,kolvo,proizv: integer;a: array [1..10] of integer;
beginfor i:=1 to 10 do begin a[i]:=random(10); writeln(a[i]); end;kolvo:=0;proizv:=1;for i:=1 to 10 do beginif a[i]>5 then begin kolvo:=kolvo+1; proizv:=proizv*a[i]; end;end;
writeln('kolvo chisel > 5 = ', kolvo);writeln('proiz chisel > 5 = ', proizv);
end.
сначала найдем производную первого порядка
производная из этой функции равна произведению самой функции и производной степени
y'==
теперь второго порядка
тот же принцип из той же функции только домножаем еще на 7/5
y''=
Вид информации чувство орган
зрительная зрение глаза
звуковая слух уши
вкусовая вкус язык
обонятельная обоняние нос
осязательная осязание кончики пальцев
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=SeqRandom(5,-99,99).Select(t->0.1*t).ToArray;
a.Println;
var b:=SeqRandom(5,-99,99).Select(t->0.1*t).ToArray;
b.Println;
var c:=a.Zip(b,(p,q)->(p+q)/2).ToArray; c.Println
end.
<u>Пример</u>
-8.4 -8.3 -0.1 -6.3 9.4
3.3 -7.4 -1.4 9.5 9.6
-2.55 -7.85 -0.75 1.6 9.5