Если уравнение исходной прямой
y = k₁x + b₁
то уравнение перпендикулярной
y = k₂x + b₂
причём
k₂ = -1/k₁
В нашем случае уравнение перпендикуляра будет
y = -1/(-1)*x + b₂ = x + b₂
b₂ найдём, подставив в уравнение перпендикуляра точку, через которую он должен проходить
5 = 1 + b₂
b₂ = 4
и уравнение перпендикуляра
y = x + 4
Площадь круга S = πR² = π(D/2)² = πD²/4. Отсюда D =√(4S/π) = √(4*25π/π) = √100 =10 см
4+(-5)=-1
-1 + 4= 3
Координаты суммы векторов (-1;3)
Угол В= углу С = (180-100 ) /2 =40. внешний угол с углом В равны в сумме 180. следовательно, угол внешний равен 140 градусам.
2 там и 2 там и так чередуй
Дан текстовый файл с именем ЭКЗАМЕН.TXT .Организовать добавление в него данных,запрашиваемых с клавиатуры с помощью диалоговоunit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
CheckBox1: TCheckBox;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Edit3: TEdit;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
v,s,c: real;
begin
v:=StrToFloat(Edit1.Text);
s:=StrToFloat(Edit2.Text);
if CheckBox1.Checked=true then c:=(v*s)*0.8
else c:=v*s;
Edit3.Text:=floattostr(c);
end;
end.
го окна (использовать Inputbox).