Foros Club Delphi - Ayuda Con Un Programa

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Ayuda Con Un Programa (https://www.clubdelphi.com/foros/showthread.php?t=72799)

Ayuda Con Un Programa

ANTE TODO AMIGOS SALUDOS A TODOS, CREO EL SIGUIENTE HILO CON EL FIN DE ENCONTRE SOLUCION A LOS SIGUIENTES ERRORES Q SE PRESENTAN EN LA SIGUIENTE CODIFICACION.

Código Delphi [-]procedure TForm1.BitBtn1Click(Sender: TObject);
var  i,sumi,pro7,prom,n,cpro,num,sumpro,sumint:Integer;
begin
//injicialixacion

i:=0; sumi:=0; pro7:=1; cpro:=0; sumpro:=0; sumint:=0;
//prcesamiento

n:=strtoint(inputbox('CANTIDAD DE VALORES ENTEROS','N=',''));
//repetitiva
while ido
begin
num:= strtoint(inputbox('INGRESE EL NUMERO','NUM=',''));
if odd(num) then
sumi:= sumi+NUM;

if (num mod 7=0) then
pro7:= pro7*num;
if (num >= 43 and NUm <= 119) or (NUM >= -40 and NUM <= 10)then
sumint:= sumint+num;

if not odd(NUM) and Num >=0 and NUM >10 then
cpro:= cpro+1;
sumpro:= sumpro+NUM;
prom:= sumpro/cpro;

i:=i+1;

 end;

 showmessage('SUMA DE LOS IMPARES' + inttostr(sumi));
 showmessage('PRODUCTO DE MULTIPLOS DE 7' + inttostr(pro7));
 showmessage('SUMA DE INTERVALOS' + inttostr(sumint));
 showmessage('PROMEDIO' + inttostr(prom));

la linea roja es la del error ( dice que los operadores no son compatibles en la operacion)
Saludos y espero su cordial ayuda :)

¿Que no es acaso así?

Código Delphi [-]if (algo = otracosa) AND (algo2 > otracosa2) ... ()

¡Lo que tu intentas hacer va en contra de la sintaxis aceptada por Pascal!

Saludos,

ah okay gracias intentare nuevamente

Y si se necesita de evaluaciones compuestas:

Código Delphi [-]if ((Num > 45) AND (Num < 100)) OR NoPermitido
then ....

Se ve en el ejemplo, el uso de doble paréntesis. El más exterior encierra la evaluación total y la compara con una hipotética variable booleana denominada NoPermitido.

Espero que con esto haya quedado más claro.

Saludos,

oke hermano lo hice con 2 selectivas y el error persiste

Cita:

Empezado por Delphius (Mensaje 393309)

Y si se necesita de evaluaciones compuestas:

Código Delphi [-]if ((Num > 45) AND (Num < 100)) OR NoPermitido then ....

Se ve en el ejemplo, el uso de doble paréntesis. El más exterior encierra la evaluación total y la compara con una hipotética variable booleana denominada NoPermitido.

Espero que con esto haya quedado más claro.

Saludos,

SI amigo corregi eran parentesis y cree 2 selectivas quedo de esta manera

Código Delphi [-]procedure TForm1.BitBtn1Click(Sender: TObject);
var  i,sumi,pro7,n,cpro,num,sumpro,sumint:Integer;
prom: real;
begin
//injicialixacion

i:=0; sumi:=0; pro7:=1; cpro:=0; sumpro:=0; sumint:=0;
//prcesamiento

n:=strtoint(inputbox('CANTIDAD DE VALORES ENTEROS','N=',''));
//repetitiva
while ido
begin
num:= strtoint(inputbox('INGRESE EL NUMERO','NUM=',''));
if odd(num) then
sumi:= sumi+NUM;

if (num mod 7=0) then
pro7:= pro7*num;

if ((num > 43) and  (num < 119)) then
        sumint:= sumint+num;
if  ((NUM > -40) and (NUM < 10 )) then
   begin
sumint:= sumint+num;
        end;







if ((not odd(NUM)) and (Num >=0) and (NUM >10)) then
cpro:= cpro+1;
sumpro:= sumpro+NUM;
prom:= sumpro/cpro;

i:=i+1;

 end;

 showmessage('SUMA DE LOS IMPARES' + inttostr(sumi));
 showmessage('PRODUCTO DE MULTIPLOS DE 7' + inttostr(pro7));
 showmessage('SUMA DE INTERVALOS' + inttostr(sumint));
 showmessage('PROMEDIO' + floattostr(prom));

Quedo de la siguiente manera

A ver... ¿Te salen errores? De ser así sería bueno que nos indiques textualmente cuáles y en qué lineas.

Saludos,

Amigo, darnnezt, recuerda leer nuestra guia de estilo, muchas gracias por tu colaboración.