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.
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.
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.
thiếu hai dấu chấm phẩy ";" ở:
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à:
và và
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.
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 .
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
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 = S2 - S1
Code tham khảo: