Hola buenos días, tardes o noches
Llevo ya algún tiempo aprendiendo programación por mi cuenta desde cero y estoy algo avanzado en programación estructurada principalmente con delphi o pascal (como lo quieran nombrar) y me gustaría compartir mis conocimientos así mismo solicitar su amable asistencia cuando lo requiera.
por ejemplo estoy atorado en un programa con delphi 7 en una estructura condicional de hecho son dos estructuras en una el problema es que cuando es falsa la condición me saltan dos mensajes el condigo fuente es este:
Código Delphi
[-]
var
numero:Integer;
espositivo:Boolean;
esnegativo:Boolean;
begin
write('Escriba un numero: ');
readln(numero);
esnegativo:= (numero < 0);
espositivo:= (numero > 0);
if esnegativo then
begin
writeln('El numero es negativo.');
end else begin
end; if espositivo then begin
writeln('El numero es positivo.');
end else begin
writeln('El numero es cero.');
end;
readln
end.