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) `\frac{3x+y^2}{xy+\frac{a}{b+3}`
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
By Faith
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.
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!