Bài 6,7,8/51 (GSK) nè

Bài 6:

Code:

Program gacho;
var
c,g:integer;
begin
for c:=1 to 36 do
for g:=1 to 36 do
if ((c+g)=36) and ((c*4+g*2)=100) then write('so cho:',c,' so ga:',g);
readln;
end.

Bài 7:

Code:

Program chacon;
var
cha,con,t,t1,nam:integer;
begin
write('nhap tuoi cha:');readln(cha);
write('nhap tuoi con:');readln(con);
repeat
nam:=1;{số năm}
t:=nam+cha;{gán cho tuổi cha tăng một}
t1:=nam+con;{gán cho tuổi con tăng một}
 inc(nam);{tăng đếm}
until (t div t1)=2;
write(nam,' nua so tuoi cha gap doi tuoi con');
readln;
end.

Bài 8:

Code:

Program money;
var
a,b,thang,tien,t:real;
begin
write('nhap so tien gui:');readln(a);
write('nhap so tien can rut ra:');readln(b);
tien:=a;{khởi điểm ban đầu của tiền mình có sẽ là a tiền gửi vào}
repeat
thang:=1;
t:=a*3/10;{nhân cho 0.3% là nhân cho 3/10}
tien:=tien+t;
inc(thang);
until tien=b;
write('sau', thang,' thi so tien gui tiet kiem bang ',b);
readln;
end.

Bài mình làm chưa chắc hay nhất nên các bạn có thể nghĩ ra cách hay hơn và post lên cho mọi người cùng tham khảo. Và nếu có gì sai xót thì mấy bạn chỉ nha

miễn có cho "anh Thành " là ok rùi , cám ơn nhìu nha

Òh, chịu khó làm ghê ta, nhưng mà có mấy chỗ chưa có học, có bài nào hay post lên cho làm nhìu tiến bộ thêm coi GÀ

bài 8 code sai rùi, trong cái repeat, chú gán thang:=1, rùi inc(thang) ...thì có phải lúc nào tháng cũg bằng 2 ko? ,...phải gán thang:=1 trước lệnh repeat.
^^!
p/s: bài 7 cũg rứa.
p/s2: bài tiền ngân hàng zì đó, cứ để biến a ngẫu nhiên đi cho rùi, còn gán tien:=a làm zì nữa ko biết ==!

chết mồ viết sai bó tay sorry mọi người cái gán nam:=1 trong bài 7 bỏ ra ngoài cũng tương tự với bài 8 thang:=1 cho ra ngoài vòng lặp sorry mọi người . Còn cái gán tien:=a là để cố định tiền lại nếu không sao xét ???

sau một hồi ngồi ngâm cứu thì thấy 3 bài trên còn nhiều lỗi bất cập có gì mọi người chép vô tập trước đi cho có bài . có gì mai GÀ giải thích lại cho hihihi sorry nha sẽ rút kinh nghiệm bài sau nếu có

haizz...cố định với không cố định, có phải chỉ cần đặt cái tienlai ( tienlai tui là t của chú) ở ngoài vòng lặp thì cần zì phải cố định nữa đúng ko. và ko phải lúc nào tăng thì a=b, a còn có thể lớn hơn b nữa! Hình như còn phải khai báo thang là integer nữa mới chuẩn nhỉ. Code bài đó lại nè:
Program money;
var
a,b,tienlai:real;
thang:integer;
begin
write('nhap so tien A gui:');readln(a);
write('nhap so tien B can dung:');readln(b);
tienlai:=a*0.3/100;{nhân cho 0.3%}
repeat
a:=a+tienlai;
inc(thang);
until a>=b;
writeln('sau', thang,' thi so tien gui tiet kiem bang ',b);
readln;
end.

Bài tuổi phải nhập đk đúng mới típ tục đc bài toán, thêm repeat,until khúc đâu :) :
Program chacon;
var cha,con,nam:integer;
begin
repeat
write('nhap tuoi cha:');readln(cha);
write('nhap tuoi con:');readln(con);
writeln; (cho nó đẹp)
until (cha>2*con) and (cha - con >=25);
repeat
inc(nam);{tăng đếm}
inc(cha);
inc(con);
until cha div con =2;
write(nam,' nam nua so tuoi cha gap doi tuoi con');
readln;
end.

đã vét thì phải vét từ 0 cho nó đẹp chứ :). Code mới:
Program gacho;
var c,g:integer;
begin
for c:=0 to 36 do
for g:=0 to 36 do
if (c+g=36) and (c*4+g*2=100) then
begin
write('so cho:',c,' so ga:',g);
readln;
exit; (thoát khỏi ct ngay sau khi tìm ra đk thỏa đề bài, bài của Phước gà thì còn cho nó chạy thêm xx cái vòng lặp nữa)
end;
end.