Giúp em giải hộ 2 bài toán này với!

[tuyettamtuyetnga]

Bài tính tiền ngân hàng thì tôi nghĩ giải như sau sẽ hay hơn và không cần dùng vòng lặp.Vì lãi không cộng dồn nên bài này không phải là 1 cấp số nhân, nếu là cấp số nhân thì ta chỉ việc dùng ln là xong,theo như bài giải trên ta sẽ có:
a:số tiền ban đầu, l:=0.003; lãi trong mỗi tháng:s:=a*l;
b:số tiền cần đạt, b:=a+k*s với k là số tháng cần gửi vậy k:=(b-a)/s và ta làm tròn k.kt lại k.Đoạn code như sau:
begin
l:=0.003*a;
k:=round((b-a)/l);
if a+(k-1)*l>=b then writeln('so thang can gui la',k-1,'thang')
else
if (a+k*l>=b) then writeln('so thang can gui la',k,'thang')
else writeln('so thang can gui la ',k-1,'thang');
end;

[trantienmobil_ht]

thế này liệu có ngắn hơn không nhỉ?
program tinh_thang;
ues crt;
var a,b:longin;i:byte;
begin
clrscr;
write('moi ban nhap so von a dong va so tien muon thu lai b dong');readln(a,b);
while(a+(0.3*a*i)/100)<b do
begin
i:=i+1;
end;
write('vay voi',a:10:3,'dong gui trong',i,'thang thi so tien thu lai it nhat la',b:10:3);
readln;
end.

[hungkenh]

cho mình hỏi tí có 1 bài như thế này:
e(n)= 1+(1/1!)+(1/2!)+(1/3!)+...+(1/n!)+..., cho đến khi (1/n!)< 2x10^-6<

có người giải thế này:
program vidu;
uses crt;
var
n: longint;
e, sh:real;
begin
clrscr;
sh:=1/2;
n:=2;
e:=2+sh;
while sh>=2*1E-6 do
begin
inc(n);
sh:= sh*(1/n);
e:=e+sh;
end;
writeln(' Gia tri e(n) la:',e:7:2);
readln
end.

như vậy có đúng ko vì mình chẳng hiểu gì cả
nhất là mình ko hiểu mấy cái biến ý nghĩa như thế nào?
vì đề bài cho là (1/n!)< 2x10^-6 mà lại gán sh:=1/2???????????

[nirvanat]

Mấy cha nhọc công quá.
Số năm cần có để tuổi cha gấp 2 tuổi con: nam:=tcha-2*tcon;
Số tháng: t:=(b-a)/(a*3/1000); Nếu t là số ko tự nhiên=>t:=Trunc(t)+1;

Thanks bac'' này một phát

[=========> Bổ sung bài viết <=========]

lúc nhấn CTRL +F9 thì nó báo lỗi
error 3 :unknown identifier (Tên gọi chưa đc mô tả)
con trỏ nằm ở đầu dòng
Có ai sữa dùm em ko

while chu*'' không phải là white ) ngu thế không biết

[quockiet2525]

mấy bài này mà cũng đi hoi~ nữa, dùng dòng lệnh dò đâu có hay, hãy tính theo công thức toán mới hay

[=========> Bổ sung bài viết <=========]

cái bài tính tuổi của cha con cho những dòng lệnh chạy thì đâu có hay, bà con nên tính ra một công thức tổng quá của chương trình. Như vậy chương trình của chúng ta mơi ngắn được. công thức của tui là.
A=x-2y
A là số năm cần tìm.
x là số tuổi của cha
y là số tuổi của con.

[=========> Bổ sung bài viết <=========]

good giải vậy là đc rùi đó

mấy bài này mà cũng đi hoi~ nữa, dùng dòng lệnh dò đâu có hay, hãy tính theo công thức toán mới hay

[=========> Bổ sung bài viết <=========]

cái bài tính tuổi của cha con cho những dòng lệnh chạy thì đâu có hay, bà con nên tính ra một công thức tổng quá của chương trình. Như vậy chương trình của chúng ta mơi ngắn được. công thức của tui là.
A=x-2y
A là số năm cần tìm.
x là số tuổi của cha
y là số tuổi của con

[tin viet tri]

ok thui nhung chacla lam dc rui y ai

[big_wind16]

cho em hỏi: có thêm a:=a +v để làm gì? đề bài đâu yêu cầu đâu!
chỉ hỏi là bao nhiêu tháng thôi mak?
bỏ dòng này được hok? ko dùng câu lệnh ghép đc chứ?

[doanh_pascal]

thanks nhih na> lan sau post tep ha

[lequanghung_1998]

Ko hỉu sao thằng cafesua1892 nó ngu thế.
Học pascal mà ko bít khi chưa gán thì giá tri mặc định của biến là =0 a`

while chứ không phải white

[belly_mng]

Mấy bài này mà cũng đi brute force ah`, thiệt là ko đỡ đc.