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

- Input : trọng lượng quyển sách F, diện tích tiếp xúc mặt bàn S

- Output : áp suất của quyển sách lên mặt bàn

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

- B2.1 : nhập trọng lượng quyển sách F

            nhập diện tích tiếp xúc mặt bàn S

- B2.2 : Tính p = F / S

- B2.3 : Xuất p

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

uses crt;

var f, s, p : real;

begin

clrscr;

write('nhap trong luong quyen sach : ');readln(f);

write('nhap dien tich tiep xuc : ');readln(s);

p := f / s;

writeln('ap suat quyen sach len mat ban p = ', p:2:1);

readln

end.

Bước 1:Xác định bài toán

Input: Trọng lượng F và diện tích tiếp xúc S

Output: ÁP suất của quyển sách lên mặt bàn

Bước 2:Thuật toán

Bước 2.1:Nhập giá trị của F

               Nhập giá trị của S

Bước 2.2:Tính p`<-`F/S

Bước 2.3:Xuất p

Bước 3:Viết chương trình

Uses crt;

Var p,F,S:real;

Begin

Clrscr;

Write('Nhap S:'); Readln(S);

Write('Nhap F:'); Readln(F);

p:=F/S;

Writeln('Ap suat:',p:6:3);

Readln;

End.