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

Input: Độ sâu h và trọng lượng riêng d

Output: Áp suất tác dụng lên mặt ngoài của thân tàu 

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

B2.1: Nhập h và d

B2.2: Tính p:=d*h

B2.3: Xuất p và kết thúc

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

Uses crt;

Var h,d,p:real;

Begin

Clrscr;

Write('h='); Readln(h);

Write('d='); Readln(d);

p:=d*h;

Writeln('Ap suat:',p:9:1);

Readln;

End.

Bước 1:

Input: Độ sâu (h) và trọng lượng riêng của nước biển (d)

Output: Áp suất tác dụng lên mặt ngoài của thân tàu 

Bước 2:

B1: Nhập h và d

B2: Gán: p ← d*h

B3: In kết quả rồi kết thúc

Bước 3:

uses crt;

var h,d,p:real;

begin

clrscr;

writeln('Nhap gia tri h: ');

readln(h);

writeln('Nhap gia tri d: ');

readln(d);

p:= d*h;

writeln('Ap suat tac dung nen tau la:');

readln

end.