Giúp e với ạ. )): Bài 1 : Xác định Input, Output và viết chương trình tính? a) `\frac{5xy^2}{3xy^2+2^3}` b) `\frac{(a+b)^2]{4ac+\frac{a}{2b}}` c) `\fr

0 bình luận về “Giúp e với ạ. )): Bài 1 : Xác định Input, Output và viết chương trình tính? a) `\frac{5xy^2}{3xy^2+2^3}` b) `\frac{(a+b)^2]{4ac+\frac{a}{2b}}` c) `\fr”

1. a)

   In: x, y.

   Out: Giá trị của biểu thức đó.

   VCT:

   uses crt;

     var x, y, A: real;

   begin

     clrscr;

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

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

     A:=(5*x*y*y)/(3*x*y*y+2*2*2);

     writeln(‘Gia tri cua bieu thuc do = ‘, A:1:0);

     readln

   end.

   b)

   In: a, b, c.

   Out: Giá trị của biểu thức đó.

   VCT:

   uses crt;

     var a, b, c, B: real;

   begin

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

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

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

     B:=(sqr(a+b))/(4*a*c+a/(2*b));

     writeln(‘Gia tri cua bieu thuc do = ‘, B:1:0);

     readln

   end.

   c)

   In: x, y, a, b.

   Out: Giá trị của biểu thức đó.

   VCT:

   uses crt;

     var x, y, a, b, C: real;

   begin

     clrscr;

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

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

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

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

     C:=(3*x+y*y)/(x*y+a/(b+3));

     writeln(‘Gia trị cua bieu thuc do = ‘, C:1:0);

     readln

   end.

   Bình luận

2. 1.a)

   Input: x,y

   Output: Phép tính ở đề.

   uses crt;
   var x,y:longint;
   begin
   clrscr;
      write(‘x,y=’);readln(x,y);
      writeln((5*x*y*y)/(3*x*y*y+8):0:2);
   readln;
   end.

   b)

   Input: a,b,c

   Output: Phép tính ở đề.

   uses crt;
   var a,b,c:longint;
   begin
   clrscr;
      write(‘a,b,c=’);readln(a,b,c);
      writeln(((a+b)*(a+b))/(4*a*c+(a/(2*b))):0:2);
   readln;
   end.

   c)

   Input: x,y,a,b

   Output: Phép tính ở đề.

   uses crt;
   var x,y,a,b:longint;
   begin
   clrscr;
      write(‘x,y,a,b=’);readln(a,y,a,b);
      writeln((3*x+y*y)/(x*y+(a/(b+3))):0:2);
   readln;
   end.

   #chúc học tốt!

   Bình luận