Hoàng Trung Hải

Tổng số bài gửi : 15 Join date : 31/10/2022

day1 bai1
program bai;
uses crt;
var a,b,c,d,S,P: real;
begin
clrscr;
write('nhap a = ');readln(a);
write('nhap b = ');readln(b);
write('nhap c = ');readln(c);
write('nhap d = ');readln(d);
S:=(a+b)*(c+d);
writeln('so S la ', S:8:2);
P:=(a+b)/(c+d);
writeln('so P la ', P:8:2);
readln;
end.

Tổng số bài gửi : 15 Join date : 31/10/2022

program bai;
uses crt;
var x1,y1,x2,y2:real;
dAB : real;
begin
clrscr;
write('nhap x1 ');readln(x1);
write('nhap y1 ');readln(y1);
write('nhap x2 ');readln(x2);
write('nhap y2 ');readln(y2);
dAB:=(x2-x1)*(x2-x1)+(y2-y1)*(y2-y1);
writeln('dAB la ', dab:8:3);
readln;
end.

Tổng số bài gửi : 15 Join date : 31/10/2022

day1bai3
program bai;
uses crt;
var a,h,S :real;
begin
clrscr;
write('nhap a = ');readln(a);
write('nhap h = ');readln(h);
S:=(a*h)/2;
writeln('S la ', S:8:2);
readln;
end.

Tổng số bài gửi : 15 Join date : 31/10/2022

day1bai4
var a,b,x,y:longint;
S,P:real;
begin
write('nhap a = ');readln(a);
write('nhap b = ');readln(b);
write('nhap x = ');readln(x);
write('nhap y = ');readln(y);
S:=a*a+b*b+x*x*x+y*y*y;
P:=(a*a+b)/(x*x+y);
writeln(S:0:3);
writeln(P:0:3);
readln;
end.

Tổng số bài gửi : 15 Join date : 31/10/2022

day1bai5
var x1,y1,x2,y2,x3,y3:real;
dab,dac,dbc:real;
begin
readln(x1);
readln(y1);
readln(x2);
readln(y2);
readln(x3);
readln(y3);
dab:=(x2-x1)*(x2-x1)+(y2-y1)*(y2-y1);
dac:=(x3-x1)*(x3-x1)+(y3-y1)*(y3-y1);
dbc:=(x3-x2)*(x3-x2)+(y3-y2)*(y3-y2);
writeln(dab:0:3);
writeln(dac:0:3);
writeln(dbc:0:3);
readln;
end.

Tổng số bài gửi : 15 Join date : 31/10/2022

day1bai6
var a,b,x,y:real;
begin
readln(a);
readln(b);
readln(x);
readln(y);
x:=2*a+(b-2)*2;
y:=(a-2)*(b-2);
writeln(x:0:3);
writeln(y:0:3);
readln;
end.

Tổng số bài gửi : 15 Join date : 31/10/2022

day2bai1
var x,y,m,n:longint;
A,B,C:real;
begin
readln(x);
readln(y);
readln(m);
readln(n);
A:=(x+y)*(x+y)/m+n;
B:=(A+m+n)*(x+y);
C:=(A+B)*(A+B);
writeln(A:0:3);
writeln(B:0:3);
writeln(C:0:3);
readln;
end.

Tổng số bài gửi : 15 Join date : 31/10/2022

day2bai2
var m,n,p,q,z:longint;
S,T:real;
begin
readln(m,n,p,q,z);
S:=((m+n)*(m+n))*((p+q)*(p+q))/z;
T:=(m+n)/(p+q)*((z+S)*(z+S));
writeln(S:0:3);
writeln(T:0:3);
readln;
end.

Tổng số bài gửi : 15 Join date : 31/10/2022

day2bai2
var m,n,p,q,z:longint;
S,T:real;
begin
readln(m,n,p,q,z);
S:=((m+n)*(m+n))*((p+q)*(p+q))/z;
T:=(m+n)/(p+q)*((z+S)*(z+S));
writeln(S:0:3);
writeln(T:0:3);
readln;
end.

Tổng số bài gửi : 15 Join date : 31/10/2022

day2bai3
var a,p,q:longint;
B,X:real;
begin
readln(a,p,q);
B:=((a+p)*(a+p))/sqrt(p+q);
X:=((B)*(B))+a/(p+q);
writeln(B:0:3);
writeln(X:0:3);
end.

Tổng số bài gửi : 15 Join date : 31/10/2022

day2bai4
var x,y,z,t:longint;
P:real;
begin
readln(x,y,z,t);
P:=((x)+(y/z))+(sqr(z)+sqr(t))/(sqr(x)+sqt(y))/z+t;
writeln(P:0:3);
end.

Tổng số bài gửi : 15 Join date : 31/10/2022

day2bai5
var m,n,p,q:longint;
S:real;
begin
readln(m,n,p,q);
S:=(1/m+1/(n+p)+sqr(q)/(1+1/(m+n)))/(sqr(m)+(sqr(n)+sqr(p))/q);
writeln(S:0:3);
readln;
end.

Tổng số bài gửi : 15 Join date : 31/10/2022

day2bai6
var a,b,c:integer;
d,x1,x2:real;
begin
readln(a,b,c);
d:=sqr(b)-(4*a*c);
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln(x1:0:2);
writeln(x2:0:2);

end.

Tổng số bài gửi : 15 Join date : 31/10/2022

day2bai7
var x1,y1,x2,y2,x3,y3:longint;
S:real;
begin
readln(x1,y1,x2,y2,x3,y3);
S:=abs((x2-x1)*(y3-y1)-(x3-x1)*(y2-y1))/2;
writeln(S:0:2);

end.

Tổng số bài gửi : 15 Join date : 31/10/2022

day2bai8
var x1,y1,x2,y2,x3,y3:longint;
S:real;
begin
readln(x1,y1,x2,y2,x3,y3);
S:=abs((x2-x1)*(y3-y1)-(x3-x1)*(y2-y1))/2;
writeln(S:0:2);

end.

» Đào Hải Yến - 11 Anh Trung
» Vũ Quang Trung
» Bui Trung Hieu
» Trung kiên
» Nguyễn Trung Hiếu