Scripts de pascal

Valor positivo o negativo en pascal

Este programa dice si un número es positivo o negativo en el lenguaje pascal.

program pos_neg;
uses
    crt,dos;
var
   n:real;
begin
     clrscr;
     gotoxy(6,2);
     write('teclea un valor ');
     readln(n);
if
  n > 0.0
then
begin
     clrscr;
     gotoxy(5,2);
     writeln(n:4:2,' es un nø positivo ');
     readln
end
else
begin
     clrscr;
     gotoxy(5,2);
     writeln(n:4:2,' es un nø negativo ');
     readln
end
end.

 

Autor: gama DescargarDescargar

Comentarios en "Valor positivo o negativo en pascal"

Table 'programa_programas.t_comentarios' doesn't exist