Câu 1 : Viết chương trình tính chu vi hình chứ nhật vs chiều dài là 25,67 cm chiều rộng là 23,45 cm Câu 2: Thêm lệnh readln vào trước từ khóa end. Dịch chạy chương trình quan sát kq và cho nx

2 câu trả lời

Câu 1.

Program Chu_vi_hinh_chu_nhat;

Uses Crt;

Var CD; CR, S: real;

Begin

 Clrscr;

 CD:=25.67;

 CR:=23.45;

 S:= CD*CR;

 Writeln(' dien tich hinh chu nhat la',S:4:2);

End.

Câu 2 .

Program Chu_vi_hinh_chu_nhat;

Uses Crt;

Var CD; CR, S: real;

Begin

 Clrscr;

 CD:=25.67;

 CR:=23.45;

 S:= CD*CR;

 Writeln(' dien tich hinh chu nhat co chieu dai 25.67 cm va chieu dai 23.45 cm la: ',S:4:2,'met vuong);

 readln;

End.

*Nhận xét: khi ta thêm lệnh readln vào thì sẽ hiển thị màn hình mới có nền màu đen xuất hiện kết quả của chương trình, còn nếu ta không thêm lệnh readln vào thì màn hình kết quả sẽ chỉ hiển thị trong một tích tắc rồi biến mất

Câu 1.

Program BT_1;

Uses Crt;

Var A; B, DT: real;

Begin

 A:=25.67;

 B:=23.45;

 DT:= A*B

 Writeln(' dien tich hinh chu nhat la',DT:2:2);

End.

Câu 2 .

Program BT_1;

Uses Crt;

Var A; B, DT: real;

Begin

 Clrscr;

 A:=25.67;

 B:=23.45;

 DT:= A*B

 Writeln(' dien tich hinh chu nhat la: ',DT:2:2,'met vuong);

 readln;

End.

 khi ta thêm lệnh readln vào thì xuất hiện màn hình mới có kết quả của chương trình

Câu hỏi trong lớp Xem thêm