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,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

2. Program Vidu;
   uses crt;
   var x,s1,s2: integer;
   BEGIN
   clrscr;
   Write(‘Nhap so x:’); Readln(x);
   s1:= sqr(x+2);
   s2:=(x+2)+(x+2)*x;
   Writeln(‘(x+2)^2=’,s1);
   Writeln(‘(x+2)+(x+2)*x=’,s2);
   Readln;
   END.

   Bình luận