Question

Viết chương trình paxcal kiểm tra A là số âm hay số dương

a, Nêu thuật toán

b,Viết chương trình

Answer 1

a) Thuật toán

-Bước 1: nhập a

-Bước 2: nếu a<0 thì a là số âm

không thì nếu a>0 thì a là số dương

không thì a không là âm không là dương

-Bước 3: kết thúc

b) Viết chương trình

uses crt;

var a:integer;

begin

clrscr;

write('Nhap a='); readln(a);

if a<0 then writeln(a,' la so am')

else if a>0 then writeln(a,' la so duong')

else writeln(a,' khong la so am cung khong la so duong');

readln;

end.