Help me

[Pro8x.net]

ANh em giải giùm bài này với:
Nhập từ bàn phím tuổi của cha và con (hiện tại tuổi cha lớn hơn hai 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 ?"

Mình kô đc học về pascal lên mong mọi người chỉ giúp . Đứa em mình nó nhờ giúp mà

[chungkid1]

Đặt tuổi cha là x,tuổi con là y,rồi cộng dần.Nếu x=2y thì dừng,ghi kết quả chính là lượng vừa cộng thêm vào tuổi cha

[flora]

Hơ nếu tuổi cha lẻ thì làm kiểu chi nhỉ?

Còn nếu chẵn thì chia đôi ra, rồi trừ đi tuổi con là ra năm! ok?

[phuclun]

Hơ nếu tuổi cha lẻ thì làm kiểu chi nhỉ?

Còn nếu chẵn thì chia đôi ra, rồi trừ đi tuổi con là ra năm! ok?

Tui ko hiểu cụm từ nếu chẵn của flora nhỉ ,cái gì chẵn.1 VD cả 2 cái đều chẵn
Tuổi bố :30
Tuổi con:4
-->Số năm là 30/2-4=11
30+11=41 làm sao mà gấp đôi.
Tui cũng nghĩ làm như chungkid1.
Còn về vụ chẵn lẻ thì để tối ưu bài toán,nếu tuổi cha chẵn thì môĩ lần thêm 2 năm,tuổi cha lẻ thì xét trường hợp 1 năm sau rồi các lần sau làm như tuổi cha chẵn .
Chúc bạn vui vẻ.

[leminhduy_10a2]

bạn à có một công thức để tính năm theo yêu cầu của đề bài đó là:
(số năm = tuổi cha - 2*tuổi con),mình đã làm rồi và kết quả ra đúng. Chúc bạn vui vẻ.

[huonglan1812]

Program TuoiChaCon;
Uses Crt;
Var
cha,con:Integer;
sn,sn1:Real;
Begin
Clrscr;
Repeat
Write('Nhap tuoi cha: ');
Readln(cha);
Until cha>25;
Repeat
Write('Nhap tuoi con: ');
Readln(con);
Until (con<=cha-25) and (con*2<=cha);
If con*2<=cha then
Begin
sn:=cha-con*2;
If con*2<cha then
Writeln(sn:3:0,' nam nua tuoi cha se gap doi tuoi con')
Else
Writeln('Tuoi cha dang gap doi tuoi con');
End
Else
Begin
sn1:=-(cha-con*2);
Writeln(sn1:3:0,' nam truoc tuoi cha da gap doi tuoi con');
End;
Readln
End.
Mình đã chạy được bài này rồi, tuy hơi dài dòng nhưng bài này loại ra hết những dữ liệu nhập vào không phù hợp. Các bạn làm chạy thử và xin góp ý cho mình rút kinh nghiệm với nhé.