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