Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.05.2012, 10:11   #1
PROmot
Новичок
Джуниор
 
Регистрация: 17.05.2012
Сообщений: 2
По умолчанию нужно решить задачу,1 решил вторую не могу ,вот типа того должна выглядеть..

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    procedure button1click(sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a,b,c:Real;
  alfarad,alfagrad:Real;
  betarad,betagrad:Real;
  sinalfa,singamma:Real;
  gammarad,gammagrad:Real;
  codea,codeb,codegamma:Integer;


implementation
uses Math;

{$R *.dfm}

   procedure tform1.button1click(sender:TObject);
   begin
   
     Val(Edit1.Text,a,codea);
     Val(Edit2.Text,b,codeb);
     Val(Edit3.Text,gammarad,codegamma);
     gammarad:=DegToRad(gammagrad);
     c:=Sqrt(a*a+b*b-2*a*b*cos(gammarad));
     sinalfa:=a*sin(gammarad)/c;
     alfarad:=ArcSin(sinalfa);
     alfagrad:=RadToDeg(alfarad);
     betagrad:=180-alfagrad;
     memo1.Lines.Add('c='+format('%5.3n',[c]));
     memo1.Lines.Add('óãîë àëüôà ='+format('%5.3n',[alfagrad]));
     memo1.Lines.Add('óãîøë áåòà='+format('%5.3n',[betagrad]));
   end;
end.

Последний раз редактировалось ACE Valery; 17.05.2012 в 12:05.
PROmot вне форума Ответить с цитированием
Старый 17.05.2012, 10:12   #2
PROmot
Новичок
Джуниор
 
Регистрация: 17.05.2012
Сообщений: 2
По умолчанию

вычислить периметр и площадь прямоугольного треугольника по длинам иа и b двух катеттов,
вот сама задача
PROmot вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вот решил написать антивирус. V@Programmer Qt и кроссплатформенное программирование С/С++ 12 06.08.2011 15:22
я вот решил задать вопрос умнее... pufystyj Свободное общение 34 10.07.2011 03:34
Как должна выглядеть строка для создания фаила int 3сh qwerpoi Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 01.06.2010 00:05