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

     Input: Chiều dài và chiều rộng hình chữ nhật

     Output: Diện tích hình chữ nhật

     Mô tả thuật toán:

     Bước 1: Nhập chiều dài, chiều rộng 

     Bước 2: Diện tích := chiều dài * chiều rộng

     Bước 3: Thông báo kết qả và kết thúc thuật toán

     Viết chương trình: (hình 1)

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

     Input: Ba số a,b,c

     Output: Tổng ba số

     Mô tả thuật toán:

     Bước 1: Nhập ba số a,b,c

     Bước 2: Tổng := a+b+c

     Bước 3: Thông báo kết quả và kết thúc thuật toán

     Viết chương trình: (hình 2)

Nếu sai thì mong bạn bỏ qua

a)

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

Input: Chiều dài và chiều rộng hình chữ nhật.

Output: Diện tích hình chữ nhật.

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

 B1: Nhập chiều dài, chiều rộng 

 B2: Diện tích := chiều dài*chiều rộng

 B3: Thông báo kết quả và kết thúc thuật toán

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

Program dthcn;

Var a, b, S:real;

Begin

Write ('Nhap chieu dai:');

Readln (a);

Write ('Nhap chieu rong:');

Readln (b);

S:=a*b;

Write ('Dien tich hinh chu nhat la:',s);

Readln

End.

b)

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

Input: 3 số a,b,c

Output: Tổng ba số đó

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

B1: Nhập ba số a,b,c

B2: Tổng:= a+b+c

B3: Thông báo kết quả và kết thúc thuật toán

*Viết CT

Program noname;
Var s,a,b,c:real; 
Uses crt; 
Begin 
Writeln('nhap so thu nhat a:');

Readln(a); 
Writeln('nhap so thu 2 b:');

Readln(b); 
Writeln('nhap so thu 3 c:');

Readln(c); 
s:=a+b+c; 
writeln('tong 3 so la:',s); 
Readln; 
End.