Viết chương trình nhập vào từ bàn phím số thực X. a/ In ra số nguyên lớn nhất nhỏ hơn X. b/ In ra số nguyên nhỏ nhất lớn hơn X

0 bình luận về “Viết chương trình nhập vào từ bàn phím số thực X. a/ In ra số nguyên lớn nhất nhỏ hơn X. b/ In ra số nguyên nhỏ nhất lớn hơn X”

1. program so_nguyen;

   uses crt;

   var x:real;

        n:integer;

   begin

          clrscr;

          write(‘Nhap so thuc x: ‘);  readln(x);

          n:=trunc(x);

          if n>=x then n:=n-1;

          writeln(‘a. ‘,n);

          n:=trunc(x);

          if n<=x then n:=n+1;

          write(‘b. ‘,n);

          readln;

   end.

                      

   Bình luận

2. program so_nguyen;

   begin

          clrscr;

          write(‘Nhap so thuc x: ‘);  readln(x);

          if n>=x then n:=n-1;

          writeln(‘a. ‘,n);

          n:=trunc(x);

          if n<=x then n:=n+1;

          write(‘b. ‘,n);

          readln;

   end.

   Bình luận