• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

bsntuga

Hipotenuse-it

4 mensagens neste tópico

E porque não disponibilizas o código ? Podias também indicar a linguagem que utilizaste.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ya delphi, porque tentei meter e nao aceitou ou algo do tipo  :eek:

o cod ta bem simples e a toa.

// By BsnTuga!
// Hipetunese-it
// 2.Fev.2009
// bsnseabra@hotmail.com

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, XPMan, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    TabSheet2: TTabSheet;
    Label2: TLabel;
    Edit2: TEdit;
    XPManifest1: TXPManifest;
    GroupBox2: TGroupBox;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    Label3: TLabel;
    Image2: TImage;
    Label4: TLabel;
    Label5: TLabel;
    Image3: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
cc1: string;
cc2: string;
c1: real;
c2: real;
val1: real;
val2: real;
vall: string;
vall1: string;
hnn: string;
hc: string;
hn: real;
h: real;
begin
Button1.Enabled:= False;
cc1:= Edit1.Text;
cc2:= Edit2.Text;
c1:= StrToFloat(cc1);
c2:= StrToFloat(cc2);
val1:= (c1*c1);
val2:= (c2*c2);
vall:= (FloatToStr(val1));
vall1:= (FloatToStr(val2));
hn:= (c1*c1+c2*c2);
hnn:= (FloatToStr(hn));
h:=sqrt(c1*c1+c2*c2);
hc:= (FloatTOStr(h));
Memo1.Lines.Add('h² = ' + cc1 + '² + ' + cc2 + '²');
Memo1.Lines.Add('h² = ' + vall + ' + ' + vall1);
Memo1.Lines.Add('h = ' + #32#35 + ' ' + hnn);
Memo1.Lines.Add('h = ' + hc);
Memo1.Lines.Add('');
Memo1.Lines.Add('');
Memo1.Lines.Add('# - Equivale Ao Simbolo Da Raiz Quadrada');
Memo1.Enabled:= True;


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.Clear;
Memo1.Enabled:= False;
Button2.Enabled:= False;
Button2.Enabled:= True;
end;

end.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora