Pregunta: | 67530 - AYUDA CON UN ALGORITMO BASICO EN DELPHI |
Autor: | humberto massolo |
hola gente, quisiera saber si me pueden ayudar con este ejercicio //Construir un algoritmo recursivo que permita determinar si todos los dígitos de un número son pares.// este es mi codigo , pero en el label3 no me devuelve nada, nose si es que estoy haciendo algo mal o me falta alguna instruccion unit digitospares; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; numero: TEdit; calcular: TButton; label3: TLabel; numero_2: TLabel; procedure calcularClick(sender: Tobject; numero_1:string; tamanio:integer; final:integer; cont:integer); procedure numeroClick(sender: Tobject; var numero_1:string; var tamanio:integer; var final:integer; var cont:integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; tamanio: integer; final:integer; numero_1:string; cont:integer; implementation {$R *.dfm} procedure TForm1.calcularClick(sender: Tobject; numero_1:string; tamanio:integer; final:integer; cont:integer); var num:string; num_2:integer; begin if cont = final then label3.caption:='los digitos son pares'; num:=numero_1[tamanio]; num_2:=strtoint(num); if (num_2 mod 2) = 0 then begin tamanio:= tamanio - 1; cont:= cont + 1; calcularclick(sender,numero_1,tamanio,final,cont); end else label3.caption:= 'los digitos no son pares'; end; procedure TForm1.numeroClick(sender: Tobject; var numero_1:string; var tamanio:integer; var final:integer; var cont:integer); begin numero_1:=(numero.Text); tamanio:=length(numero_1); cont:=0; final:= tamanio; end; end. |