Program func;
const
H = 0.2;
var
i, y, sum: real;
function Func(x:real):real;
begin
Func := x * Cos( (2 * x) );
end;
begin
i := -1;
sum := 0;
while i<=1 do
begin
y := Func(i);
if y>0 then
sum := sum + y;
i := i + H;
end;
end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
var x1:=a.Where(x->x>0).Min;
var i1:=a.FindIndex(x->x=x1);
var x2:=a.Where(x->x<0).Max;
var i2:=a.FindIndex(x->x=x2);
Swap(a[i1],a[i2]); a.Println
end.
<u>Пример</u>
n= 16
-9 -8 1 -9 2 5 -6 7 5 -9 0 2 -6 -7 3 6
-9 -8 -6 -9 2 5 1 7 5 -9 0 2 -6 -7 3 6
<span>c. 0+0=0, 1+0=1, 0+1=1, 1+1=0
5.</span>100110101002 на 11002≈9099263
9099263₁₀=1000 1010 1101 0111 1111 1111₂
<span>
</span>
Ответ:
-системное ПО
-служебное ПО
-функциональные ПО
-информационное ПО
...........................
Состав прикладного программного обеспечения.
.....................
.....................
системы автоматизированного проектирования,
экспертные системы и
программы обслуживания магнитных дисков.
А так же программы восстановления системы.
Программное прикладное обеспечение это комплекс прикладных программ, с помощью которых выполняются задания (производственные, творческие, развлекательные либо учебные).