Ajuda com porcentagem

Question

Galera,Estou precisando de ajuda urgente ...Estou desenvolvendo um projeto tpo Show do Milh�o de Perguntas e Respostas.. s�o 100 perguntas.Como posso fazer pra ele mostrar a porcentagem tipo �60 �� em...

Rjun · Answer

N�o sei se � bem isso que voc� quer. T� parecendo pegadinha...

var
  Certo, Total: integer;
begin
  Certo := 60;
  Total := 100;

  Edit1.Text := FloatToStr(Certo/Total * 100) + ��� ;
end;

Delphitotal · Answer

kkkk cara n�o entendi nada... n�o � isso que eu quero.

No Projeto temos as variaveis

Correto : integer; //Quantidade de respostas corretas
Incorreto : integer; //Quantidade respostas incorretas

S�o 100 Perguntas .. vamos supor que a variavel Correto recebeu o valor 50 de respostas corretas e incorreto recebeu 50.

Correto := 50;

e

Incorreto := 50;

Dai fazer a porcentagem de 100 Perguntas daria:

Edit1.Text := �50 ��;

to querendo isso mais n�o sei fazer..

Rjun · Answer

Voc� n�o esta sabendo calcular a porcentagem? � isso?

Se for, voc� deve pegar o n�mero de acertos ou erros, dividir pelo total de perguntas e multiplicar por 100. O c�digo que te passei faz isso.

Delphitotal · Answer

Vlw!!! Rjun ..Consegui....

F�rum Ajuda com porcentagem #326099