một hình tròn S dduojc giới hạn bởi một tam giác ABC có AH=h;BC=2a và hình bán nguyệt có bán kính a . hãy viết chương trình tính diện tích hình S a) xác định bài toán b) môt tả thuật toán c) viết chường trình

* Xác định bài toán :

- Input : bán kính a và độ cao h 

- Output : diện tích hình S

* Mô tả thuật toán :

- Bước 1 : nhập độ cao h, bán kính a

- Bước 2 : s1 ← 0.5 * 2 * a * h

- Bước 3 : s2 ← a * a * 3.14 * 0.5;

- Bước 4 : s ← s2 - s1;

- Bước 5 : xuất ra giá trị s, kết thúc

* Viết chương trình :

uses crt;

var a, h, s1, s2, s : real;

begin

clrscr;

write('nhap ban kinh :');readln(a);

write('nhap chieu cao :');readln(h);

s1 := 0.5 * 2 * a * h;

s2 := a * a * 3.14 * 0.5;

s := s2 - s1;

writeln('dien tich hinh S la :', s:3:2);

readln

end.

** * *   *** * *   *** * *   *** * *   *** * *   *

- Diện tích tam giác : 0.5 * 2 * a * h

- Diện tich nửa  hình tròn : a * a * 3.14 * 0.5

- Diện tích hình S : diện tích bán nguyệt trừ diện tích tam giác

a)Xác định bài toán:

INPUT: Gía trị của h và a

OUTPUT: Diện tích hình S

b) Mô tả thuật toán:

Bước 1: Khai báo biến a,h,S1,S2,S thuộc kiểu số thực

Bước 2: Nhập a,h

Bước 3: S1← (h*a*2)/2

Bước 4: S2← (a*a*3.14)/2

Bước 5: S← S2-S1

Bước 6: Xuất S ra màn hình và kết thúc

c) Chương trình:

Program baitap;

Uses crt;

Var a,h,S,S1,S2:real;

Begin

Clrscr;

Write('Nhap a va h:'); Readln(a,h);

S1:=(h*a*2)/2;

S2:=(a*a*3.14)/2;

S:=S2-S1;

Writeln('Dien tich S:', S:9:2);

Readln

End.