Означення. Прямокутник — це паралелограм, у якого всі кути прямі.
Теорема (про рівність діагоналей прямокутника). Доведення. Для доведення використовуємо той факт, що ∆ACD=∆ВCD за
першою ознакою рівності трикутників (CD — спільна, АС= BD як протилежні
сторони паралелограма, C= D=90). А в рівних трикутниках проти рівних
кутів (у цьому випадку прямих кутів) лежать рівні сторони.
Отже, ВС=AD, як гіпотенузи рівних прямокутних трикутників, ще й необхідно
було довести.
Властивості прямокутника
1. Протилежні сторони рівні й паралельні.
2. Усі кути прямі.
3. Діагоналі рівні, перетинаються в одній точці і точкою перетину діляться
пополам.
4. Кожна діагональ ділить прямокутник на два рівні трикутники.
5. Точка перетину діагоналей є спільною вершиною чотирьох трикутників, які
попарно рівні і мають в основах паралельні прямі.
Перевод "Семейные ценности".
Пусть основание равно х см. По теореме косинусов квадрат основания равен
х²=6²+6²-2*6*6*cos120°;
х²=36+36-2*36*(-0,5)=36+36+36=3*36, откуда х= 6√3/см/
Ответ 6√3 см
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).