диагональ осевого сечения усеченного конуса является биссектрисой острого угла при основании этого сечения. Обращующая равна 8 и образует угол с плоскостью основания 60°. Выполнив рисунок, найдите площадь полной поверхности усеченного конуса

МК = 4 см

Объяснение:

Дано:

∆АВС, Р(АВС) = 30 см

К € АС; АК = КС = 6 см

М € ВС; ВМ = МС = 5 см

Найти:

МК = ?

1) Найдем длины сторон АС и ВС:

К € АС; АК = КС = 6 см => АС = 2•6 = 12 см

М € ВС; ВМ = МС = 5 см => ВС = 2•5 = 10 см

АС = 12 см; ВС = 10 см

2) Найдем длину АВ:

Р(АВС) = АВ + ВС + АС => АВ = Р(АВС) - ВС - АС

АВ = 30 - 10 - 12 = 30 - 22 = 8 см

АВ = 8 см

3) Найдем длину МК:

К € АС; АК = КС; М € ВС; ВМ = МС =>

=> МК - средняя линия ∆АВС, МК || АВ =>

=> МК = 1/2 АВ = 1/2 • 8 = 4

МК = 4 см

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