Here is a sample program that will ask the user to give a number and then our program will determine and check if the given number is a positive or a negative number using Turbo Pascal the code is very short and easy to understand. Thank you.
My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.
Sample Program Output
Program Listing
Program negative_positive_number;
Uses Crt;
Var Num : Integer;
Begin
Clrscr;
Num := 0;
writeln;
Writeln;
Write('Negative and Positive Number in Turbo Pascal');
writeln;
Writeln;
Write('Enter a Number : ');
Readln(Num);
if (num>=0) then
Begin
Writeln;
Write('Your given number ' ,num, ' is a POSITIVE NUMBER.');
Writeln;
End
Else
Begin
Writeln;
Write('Your given number ' ,num, ' is a NEGATIVE NUMBER.');
Writeln;
End;
Writeln;
Write('End of Program');
Writeln;
Readln;
end.
