Viết chương trình Pascal, tính 3x²-y biết x=2 ; y € z

0 bình luận về “Viết chương trình Pascal, tính 3x²-y biết x=2 ; y € z”

1. program ct_btpt;

   uses crt;

     var y, a: real;

     const x=2;

   begin

     clrscr;

     write(‘Nhap y = ‘); readln(y);

     a:=3*x*x-y;

     write(‘Gia tri = ‘, a);

     readln

   end.

   Bình luận

2. Program BT;

   Uses crt;

   Var y: real;

   Const x=2;

   Begin

        Write(‘Nhap y = ‘); readln(y);

        Writeln(‘Gia tri cua bieu thuc la: ‘,3*x*x-y:4:1);

        Readln

   End.

   Bình luận