Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Whillis

Delphi como dividir por nº de valores colocados em delphi

Recommended Posts

Postado (editado)
Citação

unit Unit1;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

{ TForm1 }

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Label1: TLabel;
    Label10: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure Edit7Change(Sender: TObject);
    procedure Edit8Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure RadioButton1Change(Sender: TObject);
    procedure RadioButton2Change(Sender: TObject);
    procedure RadioButton3Change(Sender: TObject);
    procedure RadioButton4Change(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.RadioButton1Change(Sender: TObject);
begin
  If (radiobutton1.checked=true) then
   begin
   Edit6.enabled:=False;
   Edit7.enabled:=False;
   Edit8.enabled:=False;
   Edit9.enabled:=False;
   Edit6.text:='';
   Edit7.text:='';
   Edit8.text:='';
   Edit9.text:='';
  end;

end;

procedure TForm1.RadioButton2Change(Sender: TObject);
begin
  If (radiobutton2.checked=true) then
   begin
   Edit6.enabled:=True;
   Edit6.text:='';
   Edit7.text:='';
   Edit8.text:='';
   Edit9.text:='';
  end;
end;

procedure TForm1.RadioButton3Change(Sender: TObject);
begin
  If (radiobutton3.checked=true) then
   begin
   Edit6.enabled:=False;
   Edit7.enabled:=False;
   Edit8.enabled:=False;
   Edit9.enabled:=False;
   Edit6.text:='';
   Edit7.text:='';
   Edit8.text:='';
   Edit9.text:='';
  end;

end;

procedure TForm1.RadioButton4Change(Sender: TObject);
begin
  If (radiobutton4.checked=true) then
   begin
   Edit6.enabled:=False;
   Edit7.enabled:=False;
   Edit8.enabled:=False;
   Edit9.enabled:=False;
   Edit6.text:='';
   Edit7.text:='';
   Edit8.text:='';
   Edit9.text:='';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
//Simples ----------------------------------------------------------------------
  soma:real;
  somac2:real;

//Ponderada --------------------------------------------------------------------
  soma2:real;
  soma3:real;

//Geométrica -------------------------------------------------------------------
  vezes:real;

//Harmônica --------------------------------------------------------------------
begin

 //-ERRO ---------------------------------------------------------------------------------------------------------------------------<
 //-ERRO ---------------------------------------------------------------------------------------------------------------------------<

//Média Aritmética Simples------------------------------------------------------

  soma:=(strtofloat(edit1.text) + strtofloat(edit2.text) +
   strtofloat(edit3.text) + strtofloat(edit4.text));

  somac2:=(strtofloat(edit1.text) + strtofloat(edit2.text));


  If (radiobutton1.checked=true) then
  begin
  if (edit1.text='') and (edit2.text='') then
   begin
   end
   else begin
     Edit5.text:= FloatToStr((somac2)/4);
   end
  end;

 //-ERRO ---------------------------------------------------------------------------------------------------------------------------<
 //-ERRO ---------------------------------------------------------------------------------------------------------------------------<

//Média Ponderada --------------------------------------------------------------


  If (radiobutton2.checked=true) then
   begin
   Edit5.text:=floattostr(strtofloat(edit1.text) + strtofloat(edit2.text) +
   strtofloat(edit3.text) + strtofloat(edit4.text)
   /(strtofloat(edit6.text) + strtofloat(edit7.text) +
   strtofloat(edit8.text) + strtofloat (edit9.text)));
  end;

//Média Geométrica -------------------------------------------------------------

  Vezes:=(strtofloat(edit1.text) *
   strtofloat(edit2.text) * strtofloat(edit3.text) *
   strtofloat(edit4.text));

  If (radiobutton3.checked=true) then
   begin
   Edit5.text:= FloatToStr(sqrt(vezes));
  end;

//Média Harmônica Simples ------------------------------------------------------

  If (radiobutton4.checked=true) then
   begin
   Edit5.text:=(floattostr((strtofloat(edit1.text) / 1) +
   (strtofloat(edit2.text) / 1) + (strtofloat(edit3.text) / 1) +
   (strtofloat(edit4.text) / 1)/4));
  end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.text:='';
  Edit2.text:='';
  Edit3.text:='';
  Edit4.text:='';
  Edit5.text:='';
  Edit6.text:='';
  Edit7.text:='';
  Edit8.text:='';
  Edit9.text:='';

end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if (Edit1.text='') then
  begin
   edit2.enabled:=False;
   Edit2.text:='';
   Edit3.text:='';
   Edit4.text:='';

  end
  else begin
   edit2.enabled:=True
  end;

// Ponderada variavel ---

  If (radiobutton2.checked=true) then
  begin
  if (Edit1.text='') then
  begin
   edit6.Enabled:=False;
   Edit2.text:='';
   Edit3.text:='';
   Edit4.text:='';
   Edit7.text:='';
   Edit8.text:='';
   Edit9.text:='';

  end
  else begin
   edit2.enabled:=False;
   edit6.enabled:=True;
  end;
  end

end;


procedure TForm1.Edit2Change(Sender: TObject);
begin
  if (Edit2.text='') then
  begin
   edit3.enabled:=False;
   Edit3.text:='';
   Edit4.text:='';

  end
  else begin
   edit3.enabled:=True;
   button1.enabled:=True
  end;

// Ponderada variavel ---

  If (radiobutton2.checked=true) then
  begin
  if (Edit2.text='') then
  begin
   edit7.Enabled:=False;
   Edit3.text:='';
   Edit4.text:='';
   Edit8.text:='';
   Edit9.text:='';

  end
  else begin
   edit3.enabled:=False;
   edit7.enabled:=True;
  end;
  end

end;

procedure TForm1.Edit3Change(Sender: TObject);
begin
  if (Edit3.text='') then
  begin
   edit4.enabled:=False;
   Edit4.text:='';

  end
  else begin
   edit4.enabled:=True
  end;

// Ponderada variavel ---

  If (radiobutton2.checked=true) then
  begin
  if (Edit3.text='') then
  begin
   edit8.Enabled:=False;
   Edit4.text:='';
   Edit8.text:='';
   Edit9.text:='';

  end
  else begin
   edit4.enabled:=False;
   edit8.enabled:=True;
  end;
  end

end;

procedure TForm1.Edit4Change(Sender: TObject);
begin
// Ponderada variavel ---

  If (radiobutton2.checked=true) then
  begin
  if (Edit4.text='') then
  begin
   edit9.Enabled:=False;
   Edit9.text:='';

  end
  else begin
   edit9.enabled:=True;
  end;
  end

end;

procedure TForm1.Edit5Change(Sender: TObject);
begin

end;

procedure TForm1.Edit6Change(Sender: TObject);
begin
  If (radiobutton2.checked=true) then
  begin
  if (Edit6.text='') then
  begin
   edit2.Enabled:=False;
   Edit2.text:='';
   Edit3.text:='';
   Edit4.text:='';
   Edit7.text:='';
   Edit8.text:='';
   Edit9.text:='';

  end
  else begin
   edit2.enabled:=True;
  end;

  end;
end;

procedure TForm1.Edit7Change(Sender: TObject);
begin
  If (radiobutton2.checked=true) then
  begin
  if (Edit7.text='') then
  begin
   edit3.Enabled:=False;
   Edit3.text:='';
   Edit4.text:='';
   Edit8.text:='';
   Edit9.text:='';

  end
  else begin
   edit3.enabled:=True;
  end;

  end;

end;

procedure TForm1.Edit8Change(Sender: TObject);
begin
  If (radiobutton2.checked=true) then
  begin
  if (Edit8.text='') then
  begin
   edit4.Enabled:=False;
   Edit8.text:='';
   Edit9.text:='';

  end
  else begin
   edit4.enabled:=True;
  end;
  end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.FormResize(Sender: TObject);
begin

end;

end.

 

 desculpe o código muito grande, penso q se mostrar todo será melhor para seu entendimento

 Ola estou com uma duvida em meu programa que tem por objetivo pôr de 2 á 4 valores para tirar sua média, porém não sei como fazer para que o programa divida os valores colocados em cada Edit pela quantidade de valores ( se 2, 3 ou 4), por exemplo: edit1=15 , edit2=16, edit3=20 , edit4=' ' são três Edit's sendo usados, dessa forma somo apenas os três e divido pelo número 3, variando de acordo com os edit's usados.  Agradeço qualquer ajuda.

aqui uma das minhas tentativas: 


  if (edit1.text='') and (edit2.text='') then
   begin
   end
   else begin
     Edit5.text:= FloatToStr((somac2)/4);
   end
  end;
 

Editado por Whillis
palavras

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário






Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×