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

[hoangtu123]

cac bac lam nhu vay chi cho nhoc cong the xem tui ne

program BT;
uses crt;
var a, b: integer;
begin
clrscr;
writeln(' hay nhap tuoi cha va tuoi con voi dieu kien tuoi cha lon gap 2 lan tuoi con va tuoi cha lon hon tuoi con 25);
writeln(' tuoi cha la' ); readln(a);
writeln(' tuoi con la' ); readln(b);
if a=2*b then writeln(' hien nay tuoi cha gap 2 lan tuoi con);
else writeln(' sau', a-2*b,'tuoi cha se gap doi tuoi con');
end.

[tank304]

cac bac lam nhu vay chi cho nhoc cong the xem tui ne

program BT;
uses crt;
var a, b: integer;
begin
clrscr;
writeln(' hay nhap tuoi cha va tuoi con voi dieu kien tuoi cha lon gap 2 lan tuoi con va tuoi cha lon hon tuoi con 25);
writeln(' tuoi cha la' ); readln(a);
writeln(' tuoi con la' ); readln(b);
if a=2*b then writeln(' hien nay tuoi cha gap 2 lan tuoi con);
else writeln(' sau', a-2*b,'tuoi cha se gap doi tuoi con');
end.

Làm như bạn ko đc rồi,nếu cố tình dữ kiện khác đi thì treo ngay,nên vẫn cần câu lệnh điều kiên cho tuổi cha và con.

[hungtink3_nkht]

chào mọi ngài .minh là hung líng mới mong mọi người giúp đỡ

[luong1100]

theo tui ở phần đầu còn cần phải có một vòng lặp để kiểm tra tính chất của đầu bài là tuổi cha phải ít nhất gấp 2 tuổi con và lớn hơn 25

[huysun]

tuổi cha<2 tuổi con cũng không sao mà. khi đó phải xử lý dấu trừ

[hang_vt]

bài 1 có ng` post hỏi òi mà . Coi tại đây nha http://www.ddth.com/showthread.php?t...hlight=hang_vt

[avada_kedavra]

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.

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

white a < b do

Có ai sữa dùm em ko

[binhqb12]

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`

[abcd1232]

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`

Bây giờ em mới biết, bình thường khi chưa gán thì không có giá trị gì cả, nên câu lệnh thường thấy là gán S:=0 trước khi bắt đầu vòng lặp.

[hang_vt]

trong tb thì nên gán vì hay bị lỗi , còn fp thì nó tự nhận giá trị =0 . Tốt nhất là gán =.=!