Один з кутів, що утворився при перетині двох прямих, дорівнює 177°. Знайдіть кут між прямими.

Проведем окружность радиусом R=a с центром в точке М.
Пересечение этой окружности с прямой I и даст нам точки на прямой I, находящиеся на расстоянии "а" от точки М.
Проведем перпендикуляр МН из точки М к прямой I. Длина этого перпендикуляра - расстояние от точки М до прямой I.
Если значение "а" больше расстояния от М до I, то имеем две точки на прямой I, находящиеся на расстоянии "а" от точки М.
Если значение "а" равно расстоянию от М до I, то имеем одну точку на прямой I, находящуюся на расстоянии "а" от точки М.
Если значение "а" меньше расстояния от М до I, то точки на прямой I, находящейся на расстоянии "а" от точки М не существует.

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).