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).
Ответ 232
сначала мы находим периметр основания,
чтобы посчитать площадь боковой поверхности
А потом просто складываем два основания, и уже посчитанную площадь поверхности
Угол Б 90° , значит треугольник прямоугольный , сторона АС 5,6 - гипотенуза , 2,8 - ВС
5,6\2,8 =2 , от сюда следует ,что угол А= 30°
180-(30+90)=60°
ответ :угол А=30°, Б=60°
Там трапеции, а не операции.
Так, как один угол - 120°, то боковая сторона равна разности оснований, то есть 6 см. Если более подробно, то опустить высоту с вершины угла 120° на сторону. выйдет прямоугольный треугольник со стороной, равной (14-8)/2 см = 3 см, лежащей против угла (120°-90°) = 30°. Отсюда боковая сторона равна 3 см / sin30° = 6 см