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

[SweetLoveFC]

Các bác có thể giúp em giải 2 bài toán này và có lun mã CODE được không?
-----------------------
(1) Nhập từ bàn phím tuổi cha và con (hiện tại tuổi cha lớn hơn 2 lần tuổi con và tuổi cha hơn tuổi con ít nhất là 25). Đưa ra màn hình câu trả lời cho câu hỏi "Bao nhiêu năm nữa thì tuổi cha gấp đôi tuổi con"?
(2) 1 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 là 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 với việc gửi tiết kiệm không kì hạn thì lãi không được cộng vào vốn?

[tranvanho]

2 bài này dễ òm mai em post lên cho bây giờ em đang bận

[cafesua1892]

tui chỉ biết giải bài thứ 2 như vậy thôi, các bác xem coi có sai chỗ nào không.

uses crt;
var a,b,v,l:real; t:byte;
begin
clrscr;
write('Nhap vao so von ban dau: '); readln(a);
wrire('Nhap vao so tien muon co duoc: '); readln(b);
l:=0.003;
t:=0;
v:= a * l; {tinh so lai sau moi thang co duoc}
white a < b do
begin
a:= a + v;
t:= t + 1;
end;
write('De co duoc so tien ',b:10:2,' can phai gui trong ',t,' thang ');
readln
end.

[tranvanho]

tui chỉ biết giải bài thứ 2 như vậy thôi, các bác xem coi có sai chỗ nào không.

uses crt;
var a,b,v,l:real; t:byte;
begin
clrscr;
write('Nhap vao so von ban dau: '); readln(a);
wrire('Nhap vao so tien muon co duoc: '); readln(b);
l:=0.003;
t:=0;
v:= a * l; {tinh so lai sau moi thang co duoc}
white a < b do
begin
a:= a + v;
t:= t + 1;
end;
write('De co duoc so tien ',b:10:2,' can phai gui trong ',t,' thang ');
readln
end.

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

[tranvanho]

còn bài 1 bạn nhìn nè

uses crt;
var tcha,tcon,nam,kq:byte;
begin
write('nhập tuổi con:');readln(tcon);
write('nhập tuổi cha gấp ba lần tuổi con và ít nhất lớn hơn tuổi con 25:');readln(tcha);
repeat
nam:=nam+1;
tcon:=tcon+1:
tcha:=tcha+1;
until tcha=2*tcon;
kq:=nam;
writeln('vậy sau ',kq,' năm thì tuổi cha gấp 2 tuổi con');
readln;
end.
@amida bác sửa giùm em với em chỉ tin tưởng ở bác thôi
còn những người # muốn em tin ,thì chứng minh đi ,em sẽ phục sát đất

[cafesua1892]

còn bài 1 bạn nhìn nè

uses crt;
var tcha,tcon,nam,kq:byte;
begin
write('nhập tuổi con:');readln(tcon);
write('nhập tuổi cha gấp ba lần tuổi con và ít nhất lớn hơn tuổi con 25:');readln(tcha);
repeat
nam:=nam+1;
tcon:=tcon+1:
tcha:=tcha+1;
until tcha=2*tcon;
kq:=nam;
writeln('vậy sau ',kq,' năm thì tuổi cha gấp 2 tuổi con');
readln;
end.
@amida bác sửa giùm em với em chỉ tin tưởng ở bác thôi
còn những người # muốn em tin ,thì chứng minh đi ,em sẽ phục sát đất

chưa gán tcon:=0, nam:=0, tcha:0. còn cái biến kq thì vứt đi cho rồi

[tranvanho]

chưa gán tcon:=0, nam:=0, tcha:0. còn cái biến kq thì vứt đi cho rồi

mẹ sư thằng cha dám phát biểu liều thế nhỉ???????????
mình hok gán nam bằng 0 thì chương trình sẽ tự cho giá trị ban đầu =0 thay mình hiểu chưa
còn tcon và tcha thì làm sao bằng 0 được ăn nói bậy bạ
hok tin lão cho chạy thử coi
ăn cơm mèo dám nói leo các cụ lần sau bỏ ngay cái thói ấy nhé

[cafesua1892]

Vâng xin lỗi cụ em biết sai rồi.

[grenadier1991]

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;

[tranvanho]

Vâng xin lỗi cụ em biết sai rồi.

khà khà biết sai thế là tốt lần sau đừng có vậy nữa nhé