Giúp em bài này cái

[nhamso1]

Có ai giúp em bài này đi: Nhập từ bàn phím tuổi cha và tuổi con (hiện tại tuổi cha lớn hơ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?"

[kidcom_vt13]

Có ai giúp em bài này đi: Nhập từ bàn phím tuổi cha và tuổi con (hiện tại tuổi cha lớn hơ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?"

Ý tưởng bài này như sau(do mình ko biết bạn định viết bằng ngôn ngữ gì:P): giả sử tuổi hiện tại của cha là A,của con là B, nhập vào thỏa yêu cầu bài toán: A-B>=25;nếu ko thỏa yêu cầu nhập lại.
Gọi t là số năm để tuổi cha gấp đôi tuổi con, khi ấy: A+t = 2*(B+t)
Bạn chỉ cần giải phương trình tìm t và in ra^^. Chúc vui!

[hang_vt]

Có ai giúp em bài này đi: Nhập từ bàn phím tuổi cha và tuổi con (hiện tại tuổi cha lớn hơ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?"

var a,b,t:integer;
begin
 repeat
  writeln('nhap tuoi cha');
  readln(a);
  writeln('nhap tuoi con');
  readln(b);
 until (a-b)>=25;
 t:=a-2*b;
 writeln('tuoi cha gap doi tuoi cha sau ',t,' nam');
 readln;
end.

mình giải thix ct t:=a-2b trog đoạn code 1 tí :
ta có: a+t=2(b+t) <=> a+t=2b+2t <=> t=a-2b

[nhamso1]

Cảm ơn mấy anh nhiều lắm.

[hang_vt]

Cảm ơn mấy anh nhiều lắm.

tui hem phải là a

[nhamso1]

Sao cũng được (Whatever)

[hang_vt]

có cách giải khác nà . Khó hiểu hơn cách kia tí

uses crt;
var tcha,tcon,dem:integer;
begin
 clrscr;
 while not((tcha>tcon*2)and(tcha-tcon>=25)) do
  begin
   write('Nhap tuoi cha, tuoi con : ');
   readln(tcha,tcon);
  end;
 dem:=0;
 while not(tcha=tcon*2) do
  begin
   tcha:=tcha+1;
   tcon:=tcon+1;
   dem:=dem+1;
  end;
 write('Tuoi cha gap doi tuoi con sau ',dem,' nam');
 readln
end.

[huysun]

var a,b,t:integer;
begin
 repeat
  writeln('nhap tuoi cha');
  readln(a);
  writeln('nhap tuoi con');
  readln(b);
 until (a-b)>=25;
 t:=a-2*b;
 writeln('tuoi cha gap doi tuoi cha sau ',t,' nam');
 readln;
end.

mình giải thix ct t:=a-2b trog đoạn code 1 tí :
ta có: a+t=2(b+t) <=> a+t=2b+2t <=> t=a-2b

đây là cách tối ưu.

[hang_vt]

mỗi cái có mỗi ưu khuyết riêg & tùy vào cách tư duy của mỗi người nữa . Có cách nào thì cứ post lên , ủg hộ hay k là tùy vào mỗi người

[thucbv]

Đúng rồi, có thì cứ post cho anh em tham khảo, để thấy được cái hay cái không hay của từng chương trình. Nhưng mình nghĩ cách hang_vt là tối ưu và dễ hiểu nhất