Question

viết chương trình tính tiền gửi ngân hàng với số tiền gửi,lãi suất,số tháng nhập từ bàn phím.Dự kiến các biến và chạy chương trình

Answer 1

program tinhtien; uses crt; var tiengui, laisuat: real; n: integer; begin clrscr; write(' Nhap so tien gui '); read(tiengui); write(' Nhap lai suat vao '); read(laisuat); write(' So thang gui vao la '); read(n); For 1 to n do tiengui:=tiengui+tiengui/100*laisuat; write(' So tien duoc nhan la', tiengui); readln end.

Answer 2

program tinhtien; uses crt; var tiengui, laisuat: real; n: integer; begin clrscr; write(' Nhap so tien gui '); read(tiengui); write(' Nhap lai suat vao '); read(laisuat); write(' So thang gui vao la '); read(n); For 1 to n do tiengui:=tiengui+tiengui/100*laisuat; write(' So tien duoc nhan la', tiengui); readln end.

Answer 3

Mk chuyển các biến cho nó ngắn gọn:

tiengui:tg,laisuat:ls.

program tinhtien;

uses crt;

var tiengui, laisuat: real;

n: integer;

BEGIN

clrscr;

write(' Nhap so tien gui '); readln(tg);

write(' Nhap lai suat vao '); readln(ls);

write(' So thang gui vao la '); read(n);

For 1 to n do tiengui:=tiengui+tiengui/100*laisuat;

write(' So tien duoc nhan la', tiengui);

readln;

END.