Uses crt;
var a=array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(50);
if (a[i]mod5=0) there
a[i]:=a[i]*2;
else
a[i]:=a[i]/2;
for i:=1 to 10 do
writeln(a[i]);
end.
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var x:=-3.14;
while x<=3.14 do begin
Writeln(x:5:2,' ',sqr(sin(x))+sqr(cos(x)));
x:=x+0.2
end
end.
Результат
-3.14 1
-2.94 1
-2.74 1
-2.54 1
-2.34 1
-2.14 1
-1.94 1
-1.74 1
-1.54 1
-1.34 1
-1.14 1
-0.94 1
-0.74 1
-0.54 1
-0.34 1
-0.14 1
0.06 1
0.26 1
0.46 1
0.66 1
0.86 1
1.06 1
1.26 1
1.46 1
1.66 1
1.86 1
2.06 1
2.26 1
2.46 1
2.66 1
2.86 1
3.06 1
Я отвечу своими словами. Действие объекта - это, что может делать сам объект или что могут делать с данным объектом. Для характеристики объекта совершенно не важно, сам объект выполняет действие или он испытывает воздействие со стороны другого объекта. Дейтсвие, применяемое к объекту, приравнивается к действию, выполняемому объектом.<span>Что бы описать дейтсвие объекта, мы должны ответить на вопрос "Что он может делать?"</span>
Анимации бывают в графическом,мультипликационном виде
Виды редакторов растровою анимацию: paint,фотошоп,corel