somricardo

ok amigo, muitíssimo obrigado pela ajuda, estarei estudando os casos e em breve volto aqui para postar os comentários, aprendizados, dúvidas e demais questões que forem surgindo. mais uma vez obrigado, Att. Ricardo Silva Santos

amigo com a sua resposta acima já entendi sem mesmo fazer o teste, no caso a primeira caixa faz a função só que a segunda (desmarcada) desfaz a função da primeira, e antes de ver sua resposta percebi que se eu inverter a ordem entre caixa 1 e caixa 2, o erro também inverte, a caixa 2 (acima) não faz nada porque a caixa 1 (que ficou abaixo) é quem faz a parte final e desfaz o que a primeira fez, neste caso para não haver esta coisa existe alguma forma? tipo assim: o code começa com caixa 1: se marcada floattostr(strtofloat(Edit1.text)) floattostr(strtofloat(Edit1.text)) se desmarcada floattostr(sqr(strtofloat(Edit1.text)) floattostr(sqr(strtofloat(Edit1.text)) depois caixa 2 se marcada floattostr(strtofloat(Edit2.text)) floattostr(strtofloat(Edit2.text)) se desmarcada floattostr(sqr(strtofloat(Edit2.text)) floattostr(sqr(strtofloat(Edit2.text)) finalmente faria a junção da primeira com a segunda observando a opção escolhida na caixa 1 (se marcada ou não) e na caixa 2 (se marcada ou não) tipo uma soma entre a caixa1 + a caixa2... não sei nada sobre a escrita nos códigos mas creio que deva se entender a ideia... ps. ao Jhonas muito obrigado pela ajuda e pela paciência, sei que ajudar um totalmente leigo em programação não é algo facil, mas garanto que tentarei aprender rápido rsrsrs.

hoje tive tempo de testar e fiz as alterações que achei que era pra ser feita, veja como ficou o código agora: ps. marcar ou desmarcar a caixa 1 não funcionou, a caixa 2 ficou 100%, pode me ajudar a ver onde errei? procedure TForm1.Button1Click(Sender: TObject); begin // sqr(x) = x2; // sqrt(x) = raiz quadrada de x; // caixa1 if CheckBox1.Checked = true then begin // marcado Edit3.Text := floattostr((strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text))); Edit4.Text := floattostr(sqrt(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text))); end else begin // desmarcado Edit3.Text := floattostr(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text))); Edit4.Text := floattostr(sqrt(sqr(strtofloat(Edit1.text))) + sqr(strtofloat(Edit2.text))); end; // caixa2 if CheckBox2.Checked = true then begin // marcado Edit3.Text := floattostr((sqr(strtofloat(Edit1.text))) + (strtofloat(Edit2.text))); Edit4.Text := floattostr(sqrt(sqr(strtofloat(Edit1.text)) + (strtofloat(Edit2.text)))); end else begin // desmarcado Edit3.Text := floattostr(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text))); Edit4.Text := floattostr(sqrt(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text)))); end; end; end.

me parece que agora vai funcionar, muito obrigado por enquanto, estou de saída pra escola assim que voltar faço os devidos testes. obrigado e até mais tarde com a resposta.

amigo não deu certo, não entendi bem o código como me passou mas não funcionou, vou tentar explicar melhor o que eu necessito: em alguns calculos esses valores de catetos podem vir ou não dentro de raízes, por isso eu preciso da caixinha pra marcar se o número inserido acima, está ou não em uma raiz, se estiver o cálculo será feito sem o sqr (já que um número dentro da raíz elevado ao quadrado o resultado é ele mesmo, ex. Raiz de 3 elevado a 2 = ao próprio 3) então neste caso eu não preciso calcular nem raiz nem potencia, mas caso o número digitado na caixa não esteja em uma raiz, aí eu preciso que calcule o sqr. Por isso preciso que a caixa seja uma opção de marcar ou não. como eu posso fazer para: unit pitagoras; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Label2: TLabel; Edit2: TEdit; Button1: TButton; Label3: TLabel; Edit3: TEdit; Image1: TImage; Edit4: TEdit; Label4: TLabel; Label5: TLabel; CheckBox1: TCheckBox; CheckBox2: TCheckBox; Image2: TImage; Label6: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses Math; //AQUI eu preciso informar de alguma forma que SE a caixa 1 estiver marcada, as linhas abaixo (Edit3.Text... e Edit4.Text...) não terão o primeiro SQR, caso eu marque a caixa 2 as mesmas linhas (Edit3.Text... e Edit4.Text...) não terão em sua fórmula o segundo SQR, caso nenhuma caixa esteja marcada o comando seguirá como já está escrito. (obs. o SQRT continua, a alteração ocorre somente com os SQR que somem se a caixa estiver marcada, o primeiro para a primeira caixa e o segundo para a segunda caixa. procedure TForm1.Button1Click(Sender: TObject); begin // sqr(x) = x2; // sqrt(x) = raiz quadrada de x; Edit3.Text := floattostr(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text))); Edit4.Text := floattostr(sqrt(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text)))); end; end.

ok, obrigado pelas informações, abaixo segue o código como está até o momento: unit pitagoras; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Label2: TLabel; Edit2: TEdit; Button1: TButton; Label3: TLabel; Edit3: TEdit; Image1: TImage; Edit4: TEdit; Label4: TLabel; Label5: TLabel; CheckBox1: TCheckBox; CheckBox2: TCheckBox; Image2: TImage; Label6: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses Math; procedure TForm1.Button1Click(Sender: TObject); begin // sqr(x) = x2; // sqrt(x) = raiz quadrada de x; Edit3.Text := floattostr(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text))); Edit4.Text := floattostr(sqrt(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text)))); end; end. veja que coloquei 2 linhas, uma com o Edit3.text e outra com o Edit4.text, onde uma mostra o resultado sem calcular a raiz, (para o caso de raízes não exatas) e o segundo mostra o valor da raiz, com decimal ou exata quando for o caso. no caso dos campos de catetos gostaria sim que ficassem apenas números com possibilidade de uso da vírgula para separador de decimais (creio que 2 casas decimais é suficiente ou pode deixar infinitas também) as caixas de raízes, podem ser marcadas apenas uma (quando apenas um lado tiver dentro de raiz) ou ambas, neste caso creio que a edição terá mais complexidade sendo que posso marcar apenas a primeira, apenas a segunda ou ambas.

na verdade não é bem uma calculadora que estou tentando desenvolver, mas um programa para cada tipo de cálculo, o primeiro exemplo é um pequeno programa que resolve o teorema de pitágoras, basta inserir os valores. pode ver abaixo como está ficando... (faltam alguns complementos mas está indo, não sou programador, apenas professor, por isso estou recorrendo tanto ao fórum...) link Teorema ps os campos "catetos" deviam ser somente numéricos, mas não achei como fazer ainda, e as caixas abaixo de cada cateto, devem ser marcadas caso o valor que estejam inserindo no campo cateto acima, seja um valor dentro de uma raiz, (ex. quero escrever raíz de 10, então escrevo apenas o 10 e marco a caixa abaixo) mas no caso da caixinha aí deve ter uma alteração para na fórmula ele não calcular sqr de X (quando a caixa estiver marcada apenas)

obrigado amigo, fiz uma pequena mudança no code que me passou e deu certo, ficando assim: uses Math; procedure TForm1.Button1Click(Sender: TObject); begin // sqr(x) = x2; // sqrt(x) = raiz quadrada de x; Edit4.Text := floattostr(sqrt(sqr(strtofloat(Edit1.text)) + sqr(strtofloat(Edit2.text)))); end;

sou professor de matemática e técnico em eletrônica, estou lendo muito aqui no fórum sobre o Delphi, mas de início gostaria da ajuda dos mais experts para fazer um simples programinha para meus alunos: preciso resolver algumas fórmulas em delphi, da seguinte forma: o programa terá alguns Edits (com campo somente numérico), um Button e um Edit para apresentar o resultado. Ex.1 o teorema de pitágoras: Edit1 Edit2 Edit3 button1 Edit4 Edit 1 a 3 serão numéricos (positivos ou negativos se possível também poderiam ser raízes) Button1 resolverá da seguinte forma: edit1(elevado ao quadrado) = edit2(elevado ao quadrado) + edit3(elevado ao quadrado) Edit4 será a resposta (apresenta o resultado) com isto creio que poderei aprimorar para outras fórmulas. obrigado desde já. Ricardo Silva