May 2024 | Mon | Tue | Wed | Thu | Fri | Sat | Sun |
---|
| | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | | | Calendar |
|
Top posting users this week | |
| | Buổi 1-2. Ngôn ngữ lập trình cơ bản (10 bài) | |
|
+7lyo2850 Kiệt Quảng do thai son0 nguyentrungdungqt buitienmanh2008 hoangphuc01122008 Admin 11 posters | |
Tác giả | Thông điệp |
---|
nguyenhuyminh
Tổng số bài gửi : 133 Join date : 15/06/2022
| Tiêu đề: Re: Buổi 1-2. Ngôn ngữ lập trình cơ bản (10 bài) Fri Jun 17, 2022 8:57 pm | |
| var x1,y1,x2,y2,x3,y3: longint; x4,y4,s1,s2,d1,d2,d3,d4,d5,p1,p2: real; begin readln(x1,y1,x2,y2,x3,y3); x4:=(x1+x3)/2; y4:=(y1+y3)/2; d1:=sqrt(sqr(x2-x1)+sqr(y2-y1)); d2:=sqrt(sqr(x3-x1)+sqr(y3-y1)); d3:=sqrt(sqr(x3-x2)+sqr(y3-y2)); d4:=1/2*d2; d5:=sqrt(sqr(x4-x2)+sqr(y4-y2)); p1:=(d1+d4+d5)/2; p2:=(d3+d4+d5)/2; s1:=sqrt(p1*(p1-d1)*(p1-d4)*(p1-d5)); s2:=sqrt(p2*(p2-d3)*(p2-d4)*(p2-d5)); write(s1:0:2,#32,s2:0:2); end. | |
| | | nguyenhuyminh
Tổng số bài gửi : 133 Join date : 15/06/2022
| Tiêu đề: Re: Buổi 1-2. Ngôn ngữ lập trình cơ bản (10 bài) Fri Jun 17, 2022 9:23 pm | |
| var x1,y1,x2,y2,x3,y3,x4,y4,x5,y5: longint; a,b,d1,d2,d3,d4,p1,p2,p3,p4,s1,s2,s3,s4: real; begin readln(x1,y1,x2,y2,x3,y3,x4,y4,x5,y5); a:=sqrt(sqr(x4-x1)+sqr(y4-y1)); b:=sqrt(sqr(x2-x1)+sqr(y2-y1)); d1:=sqrt(sqr(x5-x1)+sqr(y5-y1)); d2:=sqrt(sqr(x5-x4)+sqr(y5-y4)); d3:=sqrt(sqr(x5-x2)+sqr(y5-y2)); d4:=sqrt(sqr(x5-x3)+sqr(y5-y3)); p1:=(d1+d3+b)/2; s1:=sqrt(p1*(p1-d1)*(p1-d3)*(p1-b)); p2:=(d1+d2+a)/2; s2:=sqrt(p2*(p2-d1)*(p2-d2)*(p2-a)); p3:=(d2+d4+b)/2; s3:=sqrt(p3*(p3-d2)*(p3-d4)*(p3-b)); p4:=(d3+d4+a)/2; s4:=sqrt(p4*(p4-d3)*(p4-d4)*(p4-a)); write(s1:0:2,#32,s2:0:2,#32,s3:0:2,#32,s4:0:2); end. | |
| | | locminhthu
Tổng số bài gửi : 43 Join date : 13/06/2022
| Tiêu đề: Re: Buổi 1-2. Ngôn ngữ lập trình cơ bản (10 bài) Fri Jun 17, 2022 9:29 pm | |
| - Code:
-
var x1,y1,x2,y2,x3,y3,x4,y4,x5,y5:longint; a,b,d1,d2,d3,d4,p1,s1,p2,s2,p3,s3,p4,s4:real; begin ReadLn(x1,y2,x3,y3,x4,y4,x5,y5); a:=sqrt(sqr(x4-x1)+sqr(y4-y1)); b:=sqrt(sqr(x2-x1)+sqr(y2-y1)); d1:=sqrt(sqr(x5-x1)+sqr(y5-y1)); d2:=sqrt(sqr(x5-x4)+sqr(y5-y4)); d3:=sqrt(sqr(x5-x2)+sqr(y5-y2)); d4:=sqrt(sqr(x5-x3)+sqr(y5-y3)); p1:=(b+d1+d3)/2; s1:=sqrt(p1*(p1-1)*(p1-d1)*(p1-d3)); p2:=(a+d1+d2)/2; s2:=sqrt(p2*(p2-a)*(p2-d1)*(p2-d2)); p3:=(b+d2+d4)/2; s3:=sqrt(p3*(p3-b)*(p3-d2)*(p2-d4)); p4:=(a+d3+d4)/2; s4:=sqrt(p4*(p4-a)*(p4-d3)*(p4-d4)); write(s1:0:2,#32,s2:0:2,#32,s3:0:2,#32,s4:0:2); end.
| |
| | | Sponsored content
| Tiêu đề: Re: Buổi 1-2. Ngôn ngữ lập trình cơ bản (10 bài) | |
| |
| | | | Buổi 1-2. Ngôn ngữ lập trình cơ bản (10 bài) | |
|
Similar topics | |
|
| Permissions in this forum: | Bạn không có quyền trả lời bài viết
| |
| |
| |