var
a: array [1..10] of integer;
x,i: integer;
begin
writeln('Заполните массив: ');
for i:=1 to 10 do read(a[i]);
x:=a[3];
a[3]:=a[9];
a[9]:=x;
for i:=1 to 10 do write(a[i]:4);
<span>end.</span>
Эмм, ну 118+1110=1228
теперь чтобы из десятичной перевести в двоичную надо все делить на 2
1228:2=614 ост0
614:2=307 ост0
307:2=153 ост1
153:2=76 ост1
76:2=38 ост0
38:2=19 ост0
19:2=9 ост1
9:2=4 ост1
4:2=2 ост0
2:2=1 ост0
1:2=0 ост 1
пишем результат с конца, получается 10011001100
Var
a: array of integer;
i, n: integer;
begin
randomize;
n := Random(10) + 1;
SetLength(a, n);
writeln('Исходный массив');
for i := 0 to n-1 do begin
a[i] := Random(10);
write(a[i]:5, ' ');
end; writeln;
writeln('Возвести в квадрат');
for i := 0 to n-1 do begin
a[i] := sqr(a[i]);
write (a[i]:5, ' ');
end; writeln;
writeln('Заполнить степенями 2');
a[n-1] := 1;
for i := n-2 downto 0 do
a[i] := a[i+1] shl 1;
for i := 0 to n-1 do write (a[i]:5, ' ');
writeln;
writeln ('умножить на 3 во второй половине');
for i := n shr 1 to n-1 do
a[i] := (a[i] shl 1) + a[i];
for i := 0 to n-1 do write (a[i]:5, ' ');
writeln;
<span>end.</span>
Const
a = -0.5;
b = 2;
h = 0.15;
x1 = 0;
x2 = 3;
var
x, y: real;
begin
writeln('ТАБЛИЦА ФУНКЦИИ Y(X)');
writeln(' X Y');
x := x1;
repeat
if x < 1 then y := 1
else
if x <= 2 then y := a * sqr(x) * ln(x)
else y := exp(a * x) * cos(b * x);
writeln(x:4:2, y:12:7);
x := x + h
until x > x2 + 0.0000001
{добавка к х2 для компенсации погрешности представления h в ЭВМ}
end.
Тестовое решение:
ТАБЛИЦА ФУНКЦИИ Y(X)
X Y
0.00 1.0000000
0.15 1.0000000
0.30 1.0000000
0.45 1.0000000
0.60 1.0000000
0.75 1.0000000
0.90 1.0000000
1.05 -0.0268956
1.20 -0.1312715
1.35 -0.2734703
1.50 -0.4561482
1.65 -0.6816804
1.80 -0.9522144
1.95 -1.2697106
2.10 -0.1715608
2.25 -0.0684354
2.40 0.0263542
2.55 0.1056187
2.70 0.1645379
2.85 0.2007555
3.00 0.2142429
18 бизанимаэт это слово (вроде бы)