Unir Formularios

[urrutia_206]

Empezado por urrutia_206

hola alguien de ustedes me puede ayudar en un programa que tengo que hacer en consol application? con ciclos?

Empezado por ecfisa

Hola urrutia y bienvenido.

Te aconsejo crear un nuevo hilo (o tema) con tu cuestión, así todos podrán verlo y contestarte.

¿ Podriás especificar un poco más ?

Saludos.

me pueden ayudar a hacer este programa>?

Sen(x)= x – x elevado a Y
y

Deberá hacer un ciclo que resuelva la potencia.
Deberá hacer un ciclo que resuelva el factorial del mismo número.
El valor de x puede ser cualquier número (par o impar).
El valor de y debe ser un número impar(validar que no sea par).
El valor de la potencia es el mismo número del factorial.


por favor me pueden ayudar en este programa que me urge hacerlo y no tengo quien me ayude.

[ecfisa]

Hola urutia.

Veo no llevas mucho tiempo en el foro, te aconsejo crear un
nuevo hilo con el tus inquietudes, si no es muy probable que queden sin respuesta .

Bueno a ver...

Primero funciones: Potencia y Factorial. (usando ciclos)

function Potencia(x: Single; y:Integer): Double;
begin
  Result:= 1;
  while y > 0 do
  begin
    Result := Result * x;
    Dec(y);
  end;
end;
 
function Factorial(Num: Integer): LongInt;
begin
  Result:= 1;
  while Num > 1 do
  begin
    Result:= Result * Num;
    Dec(Num);
  end;
end;

Para verificar si es número:

function EsNumero(Valor: string): Boolean;
var
  n,cd: Integer;
begin
  Val(Valor, n, cd);
  Result:= cd = 0;
end;

Por último verificar a la salida de los TEdit's:

procedure TForm1.EditXExit(Sender: TObject);
begin
  if not EsNumero(EditX.Text) then
  begin
    ShowMessage('Número inválido');
    EditX.SetFocus;
  end;
end;
 
procedure TForm1.EditYExit(Sender: TObject);
begin
  if not EsNumero(EditY.Text) then
  begin
    ShowMessage('Número inválido');
    EditY.SetFocus;
    Exit;
  end;
  if not Odd(StrToInt(EditY.Text) then
  begin
    ShowMessage('Ingrese un número impar');
    EditY.SetFocus;
  end;
end;

Ejemplo de llamada:

procedure TForm1.Button1Click(Sender: TObject);
var
Pot: Double;
Fac: Longint;
begin
Pot:= Potencia(StrToFloat(EditX.Text),StrToInt(EditY.Text));
Fac:= Factorial(StrToInt(EditY.Text));
ShowMessage(FloatToStr(Pot)+' '+IntToStr(Fac));
end;

Con eso tenés las herramientas para solucionar el problema.

Nota: Como imagino que los valores de x e y son ingresados puse dos TEdit's para ello: EditX y EditY.

Saludos.