c++...">
K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

D
datcoder
CTVVIP
23 tháng 6 2024

Hướng dẫn giải:

Để tìm được diện tích trồng trau đầu tiên ta phải thực hiện các bước sau:

1. Tìm chiều cao hình thang

Để tìm được h, ta sử dụng định lý Pytago để giải quyết:

- Đầu tiên dễ dàng nhận thấy 2d sẽ bằng b - a. => d = \(\dfrac{b-a}{2}\)

- Áp dụng ĐL Pytago ta có c2 = h2 + d2 

=> h = \(\sqrt{c^2-d^2}\)

2. Tìm diện tích cái giếng

Bán kính bằng = 1/4 độ dài được cao => \(r=h.\dfrac{1}{4}\)

Diện tích cái giếng bằng: S1 = r x r x 3.14

3. Tìm diện tích hình thang

Sử dụng công thức hình thang bình thường để tính \(S_2=\dfrac{1}{2}\times\left(a+b\right)\times h\)

4. Diện tích trồng rau khi đó sẽ là S = S- S1

Code tham khảo:

11 tháng 5 2017

Program tính_chia;

Uses crt;

Var i, n, s, a: integer;

Begin

Write('Nhap so n: '); readln(n);

s:=1;

For i:=1 to n do s:=s*i;

a:=0;

For i:=1 to n do a:=a+i;

Writeln('Ket qua phep tinh chia bang: ', s/a :10:2);

readln;

End.

5 tháng 8 2017

Bài 9. Làm việc với dãy sốBài 9. Làm việc với dãy sốBài 9. Làm việc với dãy số

5 tháng 8 2017

không phải cách tối ưu không thì hông biết nhưng mà ra đáp án :)) là được nhỉ

30 tháng 5 2017

mk giúp bạn đây :

Phần mềm học tập

Phần mềm học tập

hahahahahaha tick mk nha bạn !!!

11 tháng 5 2017

Program luy_thua;

Uses crt;

Var a, i, n: integer;

Begin

Write('Nhap co so a: '); readln(a);

Write('Nhap so mu n: '); readln(n);

For i:=1 to n do a:=a*a;

Writeln('Gia tri a luy thua n la: ', a);

Readln;

End.

12 tháng 5 2017

Phỏ i Var i, n, s, a:integer;

Begin

Readln(a, n);

s:=1;

For i:=1 to n do s:=s*a;

Writeln(s);

End.

7 tháng 12 2016

xử nữ

 

7 tháng 1 2017

SONG NGƯ

undefined

 

8 tháng 5 2017

thiếu hai dấu chấm phẩy ";" ở: Bài 2. Làm quen với chương trình và ngôn ngữ lập trình

sửa thành:

TB: real;

A: array [1..100] of real;

lại thiếu dấu chấm phẩy ở ba chỗ nữa lần lượt là:

Bài 2. Làm quen với chương trình và ngôn ngữ lập trìnhBài 2. Làm quen với chương trình và ngôn ngữ lập trìnhBài 2. Làm quen với chương trình và ngôn ngữ lập trình

Sửa lại thành:

readln (a[i]);

TB:=0;

TB:=TB/n;

Cần có thêm readln trên end. để dừng chương trình lại để xem.

13 tháng 10 2017

VPT đây nhé :

VPT là gì Bùi Khánh Thi

1 tháng 12 2016

vãi cả photoshop :V t tưởng ông làm gì

1 tháng 12 2016

hay gọi thầy chỉ đánh sập tiệm nét đê :D

14 tháng 3 2017

Uses Crt;
Var A : Array [1..100] Of Integer ;
i , j , n , T : Integer ;

BEGIN
Clrscr ;
Write(' Do dai cua day so N = ') ; Readln (N) ;
Writeln (' Nhap day so : ') ;
For i := 1 To N Do
Begin
Write('A[', i ,'] = ') ; Readln ( A ) ;
End ;
i := 1 ;
While (i <= n-1) Do
Begin
j := i+1;
While j<=n do
Begin
If A[j] < A then
Begin
T := A[j];
A[j ] := A;
A := T ;
End ;
j := j + 1;
End ;
i := i + 1;
End ;
Writeln(' Day sau khi sap xep : ') ;
For i := 1 To N Do Write(A : 4) ;
Readln ;
END .

14 tháng 3 2017

dài VL

10 tháng 5 2017

4a

5d

7 không đáp án nào đúng đâu bạn

8c

9a

12a

13a

14d

15c

16c

17b

19c

chúc bạn thi tốt haha