Hà Xuân Thiện

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

day1 bai 1

Code:: program bai1;
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:3);
P:=(a+b)/(c+d);
writeln('so p la:',P:8:3);
readln;
end.

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

day1_bai2

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

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

day1 bai3
program bai3;
uses crt;
var a,h:real;
S:real;
begin
clrscr;
write('nhap a:'); readln(a);
write('nhap h:'); readln(h);
S:=(a*h)/2;
writeln('so s la:',S);
readln;
end.

Code:

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

day1_bai4
uses crt;
var a,b,x,y:longint;
S,P:real;
begin
clrscr;
readln(a,b,x,y);
S:=sqr(a)+sqr(b)+(x*sqr(x))+(y*sqr(y));
P:=(sqr(a)+b)/(sqr(x)+y);
writeln(S:0:2);
writeln(P:0:2);
readln;
end.

Code:

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

day1_bai5
var x1,y1,x2,y2,x3,y3:longint;
dAB,dAC,dBC:real;
begin
readln(x1,y2,x2,y2,x3,y3);
dAB:=sqrt(sqr(x2-x1)+sqr(y2-y1));
dAC:=sqrt(sqr(x3-x1)+sqr(y3-y1));
dBC:=sqrt(sqr(x3-y2)+sqr(y3-y2));
writeln(dAB:0:2);
writeln(dAC:0:2);
writeln(dBC:0:2);
readln;
end.

Code:

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

day1_bai6
var a,b,x,y:longint;
begin
readln(a,b);
x:=2*a+(b-2)*2;
y:=(a-2)*(b-2);
writeln(x);
writeln(y);
end.

Code:

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

day2 bai1[code][/covar x,y,m,n:longint;
A,B,C:real;
begin
read(x,y,m,n);
A:=(sqr(x)+sqr(y)/(m+n));
B:=(A+m+n)*(x+y);
C:=sqr(A)+sqr(b);
writeln(A:0:2);
writeln(B:0:2);
writeln(C:0:2);
readln;
end.

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

day2 bai2

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

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

day2 bai3

Code:: var a,p,q:longint;
B,X:real;
begin
readln(a,p,q);
B:=(sqr(a)+sqr(p))/sqrt(p+q);
X:=sqr(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

day2 bai4

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

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

day2 bai5

Code:: [code]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:2);
readln;
end.[/code]

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

day2 bai6

Code:: 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);
readln;
end.

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

day2 bai7

Code:: 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);
readln;
end.

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

day2 bai8

Code:: var x,y,z,t:longint;
A:real;
begin
readln(x,y,z,t);
A:=(sqr(x)+(z+(1/z))/(y+z))/(sqr(x)+sqr(y));
writeln(A:0:2);
readln;
end.

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

day2 bai9

Code:: var a,b,m,n,x,t:longint;
S:real;
begin
readln(a,b,m,n,x,t);
S:=(sqr(a)+sqr(b)+(sqrt(m+n))/(x+t))/(sqrt(sqr(x)+sqr(t)));
writeln(S:0:2);
end.

» Trần Lê Thiên Vũ
» Trần Lê Thiên Vũ
» Trần Lê Thiên Vũ
» Trần Lê Thiên Vũ
» Trần Lê Thiên Vũ