Hãy viết 1 chương trình Pascal để tìm kết quả của biểu thức sau: (x-2)^2 (x+2)+(x+2),x là số được nhập từ bàn phím.Sau đó in ra màn hình kết quả của b

0 bình luận về “Hãy viết 1 chương trình Pascal để tìm kết quả của biểu thức sau: (x-2)^2 (x+2)+(x+2),x là số được nhập từ bàn phím.Sau đó in ra màn hình kết quả của b”

1. uses crt;

   var x: real;

   begin

   clrscr;

   writeln(‘ Nhap x ‘); readln(x);

   writeln(‘ (x-2)*(x-2)+(x+2)+(x+2) = ‘ (x-2)*(x-2)+(x+2)+(x+2) );

   readln;

   end.

   Bình luận

2. uses crt;

   var x,t,s:integer;

   begin

        clrscr;

        readln(x);

        t:=sqr(x-2);

        s:=(x+2)+(x+2);

        writeln(‘(‘,x,’-2)^2 = ‘,t);

        writeln(‘(‘,x,’+2)+(‘,x,’+2) = ‘,s);

   readln;

   end.

   Bình luận