1010₂ * 10111₂ = 11100110₂
1) 1010₂ = 1 * 2³ + 0 * 2² + 1 * 2¹ + 0 * 2⁰ = 8 + 2 = 10
2) 10111₂ = 1 * 2⁴ + 0 * 2³ + 1 * 2² + 1 * 2¹ + 1 * 2⁰ = 16 + 4 + 2 + 1 = 23
3) 10 * 23 = 230 4) 230 = 11100110₂ 230 / 2 = 115 (ост. 0) / 2 = 57 (ост. 1) / 2 = 28 (ост. 1) / 2 = 14 (ост. 0) / 2 = 7 (ост. 0) / 2 = 3 (ост. 1) / 2 = 1 (ост. 1)
101010₂ - 1111₂ = 11011₂
1) 101010₂ = 1 * 2⁵ + 0 * 2⁴ + 1 * 2³ + 0 * 2² + 1 * 2¹ + 0 * 2⁰ = 32 + 8 + 2 = 2423
2) 1111₂ = 1 * 2³ + 1 * 2² + 1 * 2¹ + 1 * 2⁰ = 8 + 4 + 2 + 1 = 15
3) 42 - 15 = 27 4) 27 = 11011₂ 27 / 2 = 13 (ост. 1) / 2 = 6 (ост. 1) / 2 = 3 (ост. 0) / 2 = 1 (ост. 1)
4567₈ + 654₈ = 5443₈
1) 4567₈ = 4 * 8³ + 5 * 8² + 6 * 8¹ + 7 * 8⁰ = 2048 + 320 + 48 + 7 = 2423
2) 654₈ = 6 * 8² + 5 * 8¹ + 4 * 8⁰ = 384 + 40 + 4 = 428
3) 2423 + 428 = 2851 4) 2851 = 5443₈ 2851 / 8 = 356 (ост. 3) / 8 = 44 (ост. 4) / 8 = 5 (ост. 4) = 5443₈
365₈ * 777₈ = 364413₈
1) 365₈ = 3 * 8² + 6 * 8¹ + 5 * 8⁰ = 192 + 48 + 5 = 245
2) 777₈ = 7 * 8² + 7 * 8¹ + 7 * 8⁰ = 448 + 56 + 7 = 511
3) 245 * 511 = 125 195 4) 125195 = 364413₈ 125 195 / 8 = 15649 (ост. 3) / 8 = 1956 (ост.1) / 8 = 244 (ост. 4) / 8 = 30 (ост. 4) / 8 = 3 (ост. 6)
Ладно, значит будет с комплексными.
PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!begin
var (a, b, c) := ReadReal3('Введите через пробел a, b, c:');
var d := b * b - 4 * a * c;
if d = 0 then Println('х =', -b / a)
else
if d > 0 then
begin
d := Sqrt(d);
Println('x1 =', (-b - d) / 2 / a);
Println('x2 =', (-b + d) / 2 / a)
end
else
begin
d := Sqrt(-d);
Println('x1 =', -b / 2 / a, '-', d / 2 / a, 'I');
Println('x2 =', -b / 2 / a, '+', d / 2 / a, 'I')
end
end.
ПримерыВведите через пробел a, b, c: 1 2 1х = -2 Введите через пробел a, b, c: 3 4.5 -8.15x1 = -2.56084694733339 x2 = 1.06084694733339 Введите через пробел a, b, c: 3 4 5x1 = -0.666666666666667 - 1.10554159678513 I x2 = -0.666666666666667 + 1.10554159678513 I
тактильна информация - органы осязания
текст. информ.- объявление в газете