Programación General > Delphi

 Tengo Un Problema Con Mi Codigo

(1/1)

althenna:
resultado....

no se por que...


--- Código: Text --- procedure THomogeneas.Button1Click(Sender: TObject);varf1 :string; beginp:=1;Y1:=strtofloat(edit1.Text);Y2:=strtofloat(edit2.Text);Y3:=strtofloat(edit3.Text);Y4:=strtofloat(edit4.Text);Y5:=strtofloat(edit5.Text);Y6:=strtofloat(edit6.Text);Y7:=strtofloat(edit7.Text);     While not(r6 =0) do     Begin       p:=p+1;         r0:=Y1;         r1:=(p*r0)+y2;        r2:=(p*r1)+y3;        r3:=(p*r2)+y4;        r4:=(p*r3)+y5;        r5:=(p*r4)+y6;        r6:=(p*r5)+y7;        if (p=11) then          Begin            p:= p-22;          End;   End; //hile edit8.Text:= floattostr(result);res.Caption:=floattostr(p);  end; //botton  

Enko:
El código es un HORROR, existen Vectores.
Debería ser algo como lo siguiente


--- Código: Text --- //Todas las indicaciones vienen basadas en el código de las librerías Estand. de Del.//pon palabras reservadas con minúsculas, ya se notan por color//No hagas espacios de más despues de whilevar   i: Integer;  // la agregé yowhile r6 <>0  dobegin  p:=p+1;  r0:=Y1;  for i := 1 to 6 do             //comienza un bucle de 6 ejecuciones    r[i]:=(p*r[i-1])+y[i+1]; //reemplaza a 6 lineas tuyas   if (p=11) then p:= p-22; end; //while  
Corregí usando vectores en lo posible y explica tambien que es lo que hace tu codigo  y que debería devolver


--- Citar ---While not(r6 =0) do

--- Fin de la cita ---
¿Me pregunto si esto se termina en algun momento?
por cierto, da lo mismo pero..... en vez de hacer "not =" se pueda hacer "<>".

--- Citar ---while r6 <> 0 do

--- Fin de la cita ---

 :hola:

Navegación

[0] Índice de Mensajes