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

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

Viết một bình luận