Chương trình tính tiền ngân hàng pascal
Chia sẻ bởi Ngô Minh Chiến |
Ngày 26/04/2019 |
50
Chia sẻ tài liệu: chương trình tính tiền ngân hàng pascal thuộc Tin học 11
Nội dung tài liệu:
Program tinhtien;
Uses crt;
Var tct,I,tcc,tv,ls : real;
Begin
Clrscr;
Writeln(‘nhap tien von = ‘);
Readln(tv);
Writeln(‘nhap lai suat = ‘);
Readln(ls);
Writeln(‘nhap so tien can co = ‘);
Readln(tcc);
While tv < tcc do
Begin
tct:= tv*ls;
tv:= tv + tct;
i:=i+1;
End;
Writeln(‘so thang gui toi thieu la ‘, I);
Writeln(‘so tien co dc la ‘, tv);
Readln
End.
Uses crt;
Var tct,I,tcc,tv,ls : real;
Begin
Clrscr;
Writeln(‘nhap tien von = ‘);
Readln(tv);
Writeln(‘nhap lai suat = ‘);
Readln(ls);
Writeln(‘nhap so tien can co = ‘);
Readln(tcc);
While tv < tcc do
Begin
tct:= tv*ls;
tv:= tv + tct;
i:=i+1;
End;
Writeln(‘so thang gui toi thieu la ‘, I);
Writeln(‘so tien co dc la ‘, tv);
Readln
End.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Ngô Minh Chiến
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)