program positifornegatif;
var
x:integer;
begin
writeln('menguji if then else');
write('masukan sebuah angka= ');readln(x);
if(x>0)then
writeln('x adalah positif')
el
writeln('x adalah bilangan negatif');
end.
var
x:integer;
begin
writeln('menguji if then else');
write('masukan sebuah angka= ');readln(x);
if(x>0)then
writeln('x adalah positif')
el
writeln('x adalah bilangan negatif');
end.
Posted in: BAHASA PASCAL
0 comments:
Posting Komentar