trần anh tú

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

day1 bai1
program day1bt ;
uses crt;
var a,b,c,d,s,p:real;
begin
clrscr;
writeln( 'nhap vao so thu nhat=');readln(a);
writeln( 'nhap vao so thu hai=');readln(b);
writeln( 'nhap vao so thu ba=');readln(c);
writeln( 'nhap vao so thu tu=');readln(d);
s:=(a+b)*(c+d);
p:=(a+b)/(c+d);
writeln('tong S=(a+b)*(c+d)',s:8:2);
writeln(' tong p=(a+b)/(c+d)',p:8:2) ;
readln;
end.

Code:

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

day1bt2
program day1bt2
uses crt;
var x1,x2,y1,y2,stupid:real;
begin
clrscr;
writeln('nhap vao x1;');readln(x1);
writeln('nhap vao x2;');readln(x2);
writeln('nhap vao y1;');readln(y1);
writeln('nhap vao y2;');readln(y2);
stupid:=(x2-x1)*(x2-x1)+(y2-y1)*(y2-y1);
writeln('stupid toa do chinh xac la',stupid
:8:2);
readln;
end.

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

day1bt4
uses crt ;
var a,b,x,y:longint;
s,p:real;
begin
clrscr;

readln(a);
readln(b);
readln(x);
readln(y);
s:=(a*a)+(b*b)+(x*x*x)+(y*y*y);
p:=((a*a)+b)/((x*x)+y);
writeln(s:0:2);
writeln(s:0:2);
readln;
end.

Code:

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

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

Code:

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

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

Code:

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

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

Code:

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

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

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

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

Code:

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

day2bt6
var a,b,c:longint;
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(D:0:2);
writeln(X1:0:2);
writeln(X2:0:2);
end.

Code:

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

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

Code:

» Tran Duy b5
» Tran Duy 21 22
» Tran Duy b6
» Tran Duy b7
» Tran Duy b8