?
Pessoal, boa tarde e um feliz natal a todos;
Sou iniciante em programação Delphi e ká estou eu estudando e me deparei com
um problema!!! Tô fazendo um programinha, cujo a intenção é recolher dados
de Salário da população e número de Filhos.
Até aà ok!!! Coloquei no Form dois Edit's, um Botton para processar a
informação e um Memo, onde saÃrão os cálculos!!!
Os Cálculos são estes:
Média de salários da população, média de filhos, maior salário e
percentual de pessoas com salário até 100,00 reais. Beleza!!!
Coloquei um while, e minha condição de saÃda é um salário negativo. Mas
não tô conseguindo prossessar o cálculo!!!! A cada volta do loop, ele me
trás o cálculo que o sistema pede!!! O que tenho feito de errado!!!!
Mais uma pergunta: Se o usuário náo digitar nada nos Edit's e clicar direto
no Button!! Dá o seguinte erro: ---------------------------
Debugger Exception Notification
---------------------------
Project Project_Ex3.exe raised exception class EConvertError with message '''
is not a valid floating point value'. Process stopped. Use Step or Run to
continue.
---------------------------
OK Help
---------------------------
Como faço para evitar isso???
E a respeito do cálculo, como faço? Segue o código. Agradeço se houver
alguem experiente no grupo que possa me dá uma luz, a final, ninguém nasce
sabendo!!!
procedure TForm1.ProcessarClick(Sender: TObject);
Var
Salario, Maior_Salario, Soma_Salario, Soma_Filhos,Media_Salario,
Media_Filho, Salario_Inicial, Percentual: Real;
Filhos, Cont, Conta_Sal_100: Integer;
begin
Salario:= StrtoFloat (Edit1.Text);
Filhos:= StrtoInt (Edit2.Text);
While Salario < 0 do
Soma_Salario:=0;
Soma_Filhos:=0;
Cont:=0;
Conta_Sal_100:=0;
Salario_Inicial:=Salario;
Maior_Salario:=0;
begin
Soma_Salario:=Soma_Salario + Salario;
Soma_Filhos:=Soma_Filhos + Filhos;
if Salario<= 100 then
Conta_Sal_100:=Conta_Sal_100 + 1;
if Salario >= Salario_Inicial then
Maior_Salario:= Salario;
Cont:=Cont + 1;
end;
Edit1.Clear;
Edit2.Clear;
Edit1.SetFocus;
Media_Salario:=Soma_Salario/Cont;
Media_Filho:=Soma_Filhos/Cont;
Percentual:=(Conta_Sal_100/Cont)/100;
Memo1.Lines.Add('A Média de Salário da População é de R$ ' +
Floattostr(Media_Salario) + #13);
Memo1.Lines.Add('A Média de Filhos da População é de ' +
Floattostr(Media_Filho) + ' Filhos' + #13);
Memo1.Lines.Add('O Maior de Salário da População é de R$ ' +
Floattostr(Maior_Salario) + #13);
Memo1.Lines.Add('O Percentual de pessoas que ganham menos de R$ 100,00 : ' +
Floattostr(Percentual) + '%' + #13);
end;
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
