Вычислить площадь равнобочной трапеции по длинам оснований и боковой стороны

@Columbia · Регистрация: 02.03.2016

Author24 — интернет-сервис помощи студентам

2.Вычислить площадь равнобочной трапеции по длинам оснований и боковой стороны. Результат записать в файл.

@Columbia · 13.03.2017, 12:57 **[ТС]**

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:integer;
d,d1,s:real;
begin
a:=strtoint(Edit1.text);// Вводим а
b:=strtoint(Edit2.text);// Вводим b
c:=strtoint(Edit3.text);// Вводим c, d не вводим т.к c и d равны
d:=(a+b)/2;
d1:=sqrt(sqr(c)-(sqr(b-a)/4)); 
s:=d*d1;
Label2.caption:=floattostr(s); 
end;
 
end.

И кнопка сохранения

Delphi

procedure TForm1.Button2Click(Sender: TObject);
Var Data: TStrings;
Begin
 Data := TStringList.Create;
 Data.LoadFromFile('C:\Users\Виталий\Desktop\1.txt');
 Data.Append(Label2.Caption);
 Data.SaveToFile('C:\Users\Виталий\Desktop\1.txt');
 Data.free;
End;
 
end.

@Columbia · 13.03.2017, 12:59 **[ТС]**

Вот если хочешь программа

@Columbia 0 / 1 / 2 Регистрация: 02.03.2016 Сообщений: 106
		1
	Вычислить площадь равнобочной трапеции по длинам оснований и боковой стороны 14.05.2016, 07:04. Показов 2372. Ответов 2 Метки нет (Все метки) 2.Вычислить площадь равнобочной трапеции по длинам оснований и боковой стороны. Результат записать в файл. 0

	13.03.2017, 12:59

Опции темы

Вычислить площадь равнобочной трапеции по длинам оснований и боковой стороны

Решение