Заданы: r – радиус окружности с центром в точке (0, 0), k – тангенс угла наклона прямой y = kx к оси Ox. Вычислить координаты точек пересечения прямой y = kx с окружностью x2 + y2 = r2. Блок схема
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var a,b,c,d,kn,kp:real; Read(a,b,c,d); if a>0 then kp+=1 else if a<0 then kn+=1; if b>0 then kp+=1 else if b<0 then kn+=1; if c>0 then kp+=1 else if c<0 then kn+=1; if d>0 then kp+=1 else if d<0 then kn+=1; Writeln('Положительных ',kp,', отрицательных ',kn) end.
Пример 8 -2 0 -4 Положительных 1, отрицательных 2
Для прочих версий языка Паскаль
var a,b,c,d,kn,kp:real;
begin Read(a,b,c,d); kp:=0; kn:=0; if a>0 then kp+=1 else if a<0 then kn+=1; if b>0 then kp+=1 else if b<0 then kn+=1; if c>0 then kp+=1 else if c<0 then kn+=1; if d>0 then kp+=1 else if d<0 then kn+=1; Writeln('Положительных ',kp,', отрицательных ',kn) end.
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,c,d,kn,kp:real;
Read(a,b,c,d);
if a>0 then kp+=1 else if a<0 then kn+=1;
if b>0 then kp+=1 else if b<0 then kn+=1;
if c>0 then kp+=1 else if c<0 then kn+=1;
if d>0 then kp+=1 else if d<0 then kn+=1;
Writeln('Положительных ',kp,', отрицательных ',kn)
end.
Пример
8 -2 0 -4
Положительных 1, отрицательных 2
Для прочих версий языка Паскаль
var
a,b,c,d,kn,kp:real;
begin
Read(a,b,c,d);
kp:=0; kn:=0;
if a>0 then kp+=1 else if a<0 then kn+=1;
if b>0 then kp+=1 else if b<0 then kn+=1;
if c>0 then kp+=1 else if c<0 then kn+=1;
if d>0 then kp+=1 else if d<0 then kn+=1;
Writeln('Положительных ',kp,', отрицательных ',kn)
end.
1) 89₁₀ = 1011001₂
2) 600₁₀ = 100101100₂
3) 2010₁₀ = 11111011010₂
1) 513₁₀ = 1001₈
2) 600₁₀ = 1130₈
3) 2010₁₀ = 3732₈
Объяснение:
1)
89 / 2 = 44 + остаток 1
44 / 2 = 22 + остаток 0
22 / 2 = 11 + остаток 0
11 / 2 = 5 + остаток 1
5 / 2 = 2 + остаток 1
2 / 2 = 1 + остаток 0
1 / 2 = 0 + остаток 1
записываем остатки снизу вверх
89₁₀ = 1011001₂
2)
600 / 2 = 300 + остаток 0
300 / 2 = 150 + остаток 0
150 / 2 = 75 + остаток 0
75 / 2 = 37 + остаток 1
37 / 2 = 18 + остаток 1
18 / 2 = 9 + остаток 0
9 / 2 = 4 + остаток 1
4 / 2 = 2 + остаток 0
2 / 2 = 1 + остаток 0
1 / 2 = 0 + остаток 1
записываем остатки снизу вверх
600₁₀ = 100101100₂
3)
2010 / 2 = 1005 + остаток 0
1005 / 2 = 502 + остаток 1
502 / 2 = 251 + остаток 0
251 / 2 = 125 + остаток 1
125 / 2 = 62 + остаток 1
62 / 2 = 31 + остаток 0
31 / 2 = 15 + остаток 1
15 / 2 = 7 + остаток 1
7 / 2 = 3 + остаток 1
3 / 2 = 1 + остаток 1
1 / 2 = 0 + остаток 1
записываем остатки снизу вверх
2010₁₀ = 11111011010₂
1)
513 / 8 = 64 + остаток 1
64 / 8 = 8 + остаток 0
8 / 8 = 1 + остаток 0
1 / 8 = 0 + остаток 1
записываем остатки снизу вверх
513₁₀ = 1001₈
2)
600 / 8 = 75 + остаток 0
75 / 8 = 9 + остаток 3
9 / 8 = 1 + остаток 1
1 / 8 = 0 + остаток 1
записываем остатки снизу вверх
600₁₀ = 1130₈
3)
2010 / 8 = 251 + остаток 2
251 / 8 = 31 + остаток 3
31 / 8 = 3 + остаток 7
3 / 8 = 0 + остаток 3
записываем остатки снизу вверх
2010₁₀ = 3732₈