BE 2013-2014 Program bai3_tietkiem; var n:longint; - TopicsExpress



          

BE 2013-2014 Program bai3_tietkiem; var n:longint; f:text; {------------------------------} Procedure docfile; Begin assign(f,TIETKIEM.INP); reset(f); read(f,n); close(f); end; {-----------------------------} Function tinhtien(a:longint):real; Var i:byte; s:real; Begin s:=n; For i:=1 to 12 do s:=s+(s/100)*(1/2); tinhtien:=s; end; {-----------------------------} Procedure ghifile; Begin assign(f,TIETKIEM.OUT); rewrite(f); writeln(f,So tien gui: n=,n); write(f, Ca goc lan lai sau 12 thang la: ,tinhtien(n):0:2); close(f); end; Begin docfile; ghifile; end.
Posted on: Thu, 25 Dec 2014 09:41:17 +0000

Trending Topics



Recently Viewed Topics




© 2015