Страница 1 из 1
Delphi - Нарисовать прямоугольный треугольник по катету и углу
Добавлено: 15 июл 2010, 13:31
Glock
Такая проблемка, 3 дня назад начали на практике изучать Дельфи, немогу реализовать задание :
"Нарисовать прямоугольный треугольник по катету и прилягающему углу который задает пользователь, вычислить площадь треугольника"
Зделал форму: edit1 - ввод катета, edit2 - ввод угла, кнопка - нарисовать,
второй катет определяется умножением первого на тангенс угла, имеем 2 точки для гипотенузы , площадь ab/2.
Но вот реализовать как програму для меня сложно, помогите пожалуйста
Re: Delphi - Нарисовать прямоугольный треугольник по катету и углу
Добавлено: 15 июл 2010, 14:11
techforge
Наше вам.
Пиши в асю 558787069, решу за небольшое вознаграждение.
Re: Delphi - Нарисовать прямоугольный треугольник по катету и углу
Добавлено: 15 июл 2010, 15:53
somewhere
Покажи код, а мы поправим
Re: Delphi - Нарисовать прямоугольный треугольник по катету и углу
Добавлено: 15 июл 2010, 19:28
romanriddick
могу зделать за 100 р.
romanriddick@bk.ru
586013370
Re: Delphi - Нарисовать прямоугольный треугольник по катету и углу
Добавлено: 28 июл 2010, 20:30
Glock
Вот периметр считает а рисовать немогу зделать)))
nit Unit1;
interface
uses
Windows, Math, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a,b,c,d,e: real;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtofloat(LabeledEdit1.Text);
b:=strtofloat(LabeledEdit2.Text);
b:=b*Pi/180;
b:=tan(b);
c:=a*b;
d:=sqrt(sqr(a)+sqr(c));
e:=a+c+d;
label1.Caption:=' ';
label1.Caption:=floattostr(roundto(e, -1));
end;
end.
Re: Delphi - Нарисовать прямоугольный треугольник по катету и углу
Добавлено: 29 июл 2010, 00:22
Sheka
Не вопрос. 255507394
Re: Delphi - Нарисовать прямоугольный треугольник по катету и углу
Добавлено: 29 июл 2010, 22:01
romanriddick
если не хочеш тратитса , то почитай о canvas и его свойствах...
если будет мало , то посмотри на TChart...
если очень серйозно (в пространстве , в 3D ) то посмотри на OpenGL...прога впринцыпе легкая , если очень хотеть то можно найти материал по ней, главное желание
Re: Delphi - Нарисовать прямоугольный треугольник по катету и углу
Добавлено: 31 июл 2010, 12:46
Glock
уже не надо, через канвас ето и надо, только она распознает целые значения, а переменные у меня реальные, препод сам был в шоке что не может етого зделать) сказал ладно пусть прога только периметр находит))))