1.12(10)=1100(2) 11.118(10)=1110110(2) 21.111(10)=11010010100(2)
2.15(10)=1111(2) 12.205(10)=11001101(2) 22.222(10)=11011110(2)
3.25(10)=11001(2) 13.394(10)=110001010(2) 23.333(10)=101001101(2)
4.36(10)=100100(2) 14.429(10)=110101101(2) 24.444(10)=110111100(2)
5.47(10)=101111(2) 15.533(10)=1000010101(2) 25.555(10)=1000101011(2)
6.58(10)=111010(2) 16.671(10)=1010011111(2) 26.666(10)=1010011010(2)
7.69(10)=1000101(2) 17.786(10)=1100010010(2) 27.777(10)=1010011010(2)
8.71(10)=1000111(2) 18.892(10)=1101111100(2) 28.888(10)=1010011010(2)
9.82(10)=1010010(2) 19.900(10)=1110000100(2) 29.999(10)=1111100111(2)
10.91(10)=1011011(2) 20.1684(10)=11010010100(2) 30.254(10)=11111110(2)
Листинг 1:
program sum_cubes;
(c) NaaMan}
function func(x: real): real;
begin
Result := 3*x*x + 3*sin(x);
end;
const
start = 0.0;
finish = 5.0;
step = 0.7;
var
sum, i: real;
n: integer;
begin
sum := 0;
n := 0;
i := start;
while i <= finish do begin
var y: real;
y := func(i);
writeln(i,' ', y:8:3);
if y > 0 then begin
sum := sum + power(y,3);
n := n + 1;
end;
i := i + step;
end;
writeln( 'Sum = ', sum:10:3, ' Count = ', n);
end.
Листинг 2:
program arr_sum_cou;
(c) NaaMan}
var
sum, n: integer;
begin
sum := 0;
n := 0;
var a := ArrRandomInteger(100, -40, 40);
foreach var i in a do
if i < 0 then
sum := sum + i
else
n := n + 1;
writeln('Array: ', a);
writeln( 'Sum = ', sum, ' Count = ', n);
end.
Листинг 3:
program arr_sum_cou;
(c) NaaMan}
var F: boolean;
begin
F := True;
var A := ArrRandomInteger(10, 1, 10);
var B := ArrRandomInteger(10, 1, 10);
writeln(A);
writeln(B);
for var i := 0 to 9 do
if A[i] = B[i] then begin
writeln('Item = ', i, ' Value = ', A[i]);
F := False;
end;
if F then
writeln('Совпадений нет.');
end.
номер 1
1-4
2-1
3-3
4-2
вот это первое