Ayuda

[luisito2011]

hola.. soy yo .. otravej ando molestandolos ... ahora es con este ejercicio
LEER CUATRO NUMEROS Y DETERMINAR SI UNO DE LOS NUMEROS ES CERO SI UNO DE LOS NUMEROS ES CERO IMPRIMA CERO CASO CONTRARIO IMPRIMA NO//
bueno ami me sale.. pero con los 4 numero me salen [color=red]4 veces no o 4 veces 0
como hago para que solo me salga una vez cero si hay 0 en los 4 numeros oh no si no hay un 0 en los 4 numeros

Código Delphi [-]
var
n1,n2,n3,n4:cnumeronatural;
x:integer;
begin
  n1:=cnumeronatural.crear;
  n2:=cnumeronatural.crear;
  n3:=cnumeronatural.crear;
  n4:=cnumeronatural.crear;
  Writeln('Digite  N1');
  readln(x);
  N1.AsignarValor(x);
  Writeln('Digite  N2');
  readln(x);
  N2.AsignarValor(X);
  Writeln('Digite  N3');
  readln(x);
  N3.AsignarValor(X);
  Writeln('Digite  N4');
  readln(x);
  N4.AsignarValor(X);
  if n1.ObtenerValor>0 then begin writeln('no') end else writeln('Cero');
  if n2.ObtenerValor>0 then begin writeln('no') end else writeln('Cero');
  if n3.ObtenerValor>0 then begin writeln('no') end else writeln('Cero');
  if n4.ObtenerValor>0 then begin writeln('no') end else writeln('Cero');
  readln;

gracias

[[Caral]]

Hola

Código Delphi [-]
if n1.ObtenerValor = 0 then begin writeln('no') end else writeln('Cero');
if n2.ObtenerValor = 0 then begin writeln('no') end else writeln('Cero');
if n3.ObtenerValor = 0 then begin writeln('no') end else writeln('Cero');

Si el valor es = a Cero (0) ?.
Saludos
PD: Con un titulo asi (ayuda), lo menos que vas a recibir es eso.
Lee la guia del foro.

[Casimiro Notevi]

Te digo lo mismo que ha dicho Caral, lee la guía de estilo, gracias por tu colaboración.

[luisito2011]

Bueno si lo dicen por las mayusculas.. lo siento... cuando quise editarlo.. ya no podia por que ya abian respondido...
y graciaj por su ayuda (-.-)

[Casimiro Notevi]

Empezado por luisito2011

Bueno si lo dicen por las mayusculas.. lo siento... cuando quise editarlo.. ya no podia por que ya abian respondido...
y graciaj por su ayuda (-.-)

Se ve que no has leído la guía de estilo

[luisito2011]

lo siento por no leer.. solo estoy unoj minutos.. en internet... a ver si me responden.. pero bueno cuando pueda... lo ago ... ok

[ecfisa]

Empezado por luisito2011

lo siento por no leer.. solo estoy unoj minutos.. en internet... a ver si me responden.. pero bueno cuando pueda... lo ago ... ok

Hola luisito2011.

Si no te liás con la terminología y el código, el problema es muy pero muy sencillo... Se reduce a: Si hay una variable cuyo valor sea 0,
mostrar 'Cero' sino mostrar 'No', entonces:

Código Delphi [-]
  if (n1.ObtenerValor=0) or (n2.ObtenerValor=0) or
     (n3.ObtenerValor=0) or (n4.ObtenerValor=0) then
   Writeln('Cero')
  else
   Writeln('No');

Un saludo.