
Đề bài
Một người gửi tiết kiệm không kì hạn với số tiền A đồng với lãi suất 0,3% mỗi tháng. Hỏi sau bao nhiêu tháng, người đó rút hết tiền thì sẽ nhận được số tiền ít nhất là B đồng? Biết rằng tiền gửi tiết kiệm không ki hạn không được tính cộng vào vốn.
Lời giải chi tiết
Chương trình gửi tiền tiết kiệm
program Gui_tiet_kiem;
uses crt;
const laisuat = 0.003;
var tiengui, tienrutve, luu: real;
thang : integer;
Begin
clrscr;
write ('Nhap vao so tien gui:'),
readln(tiengui);
luu:= tiengui;
write('So tien co khi rut ve: ’);
readln(tienrutve);
thang : = 0 ;
while Tiengui < tienrutve> do begin
tiengui:= tiengui + tiengui* laisuat ; thang:= thang + 1 ;
end;
write('Gui',luu: 0 : 0, ' dong, sau thang, thang');
writeln('se nhan duoc so tien',tienrutve:0 : 0,' dong');
readln
End .
Khi chạy chương trình, với số tiền gửi ban đầu là 20000000 đồng. Muốn có được số tiền sau khi rút về là 25000000 đồng thì phải mất 112 tháng.
Kết quả chương trình cho như hình 25 dưới đây:
Loigiaihay.com
Lập trình tính:
Viết câu lệnh rẽ nhánh tính:
Nhập từ bàn phím tuổi của cha và con (tuổi của cha hơn tuổi con ít nhất là 25). Đưa ra màn hình bao nhiêu năm nữa thì tuổi cha gấp đôi tuổi con.
Lập trình để giải bài toán cổ sau:
Có thể dùng câu lệnh while-đo để thay cho câu lệnh for-do được không? Nếu được, hãy thực hiện điều đỏ với chương trình.
Câu lệnh ghép là gì? Tại sao phải có câu lệnh ghép?
Hãy cho biết sự giống và khác nhau của hai dạng câu lệnh if - then.
Xây dựng chương trình có sử dụng cấu trúc rẽ nhánh; Làm quen với việc hiệu chỉnh chương trình.
Khởi động Turbo Pascal: Nhấp chuột lên biểu tượng Pascal trên màn hình hoặc lên tệp Turbo.exe trong thư mục BIN của thư mục TP ở ổ đĩa C hoặc ổ đĩa D.
>> Xem thêm
Cảm ơn bạn đã sử dụng Loigiaihay.com. Đội ngũ giáo viên cần cải thiện điều gì để bạn cho bài viết này 5* vậy?
Vui lòng để lại thông tin để ad có thể liên hệ với em nhé!
Họ và tên:
Email / SĐT: