[W]elcome to 4rum[A]1
 
IndexWellcomeGalleryTrợ giúpTìm kiếmThành viênĐăng kýĐăng Nhập

Share | 
 

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

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
[C]hicken[C]hip
Admin
Admin


Nam Tổng số bài gửi : 173
Age : 24
Đến từ : Chuồng gà
Nghề/Sở thích : Security
Reputation : 0
Points : 3003
Registration date : 25/08/2008

Bài gửiTiêu đề: Bài 6,7,8/51 (GSK) nè   Tue Oct 21, 2008 4:49 pm

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 Big grin
Về Đầu Trang Go down
Xem lý lịch thành viên http://4ruma1.darkbb.com
Gemini13
Gà con
Gà con


Nữ Tổng số bài gửi : 12
Age : 24
Reputation : 0
Points : 0
Registration date : 26/08/2008

Bài gửiTiêu đề: Re: Bài 6,7,8/51 (GSK) nè   Tue Oct 21, 2008 8:18 pm

miễn có cho "anh Thành " là ok rùi , cám ơn nhìu nha
Về Đầu Trang Go down
Xem lý lịch thành viên
nhox_huy
Gà con
Gà con


Nam Tổng số bài gửi : 1
Age : 24
Reputation : 0
Points : 0
Registration date : 26/08/2008

Bài gửiTiêu đề: Re: Bài 6,7,8/51 (GSK) nè   Tue Oct 21, 2008 9:29 pm

Ò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À
Về Đầu Trang Go down
Xem lý lịch thành viên
Robin92
Moderator
Moderator


Nam Tổng số bài gửi : 68
Đến từ : HeLL to HeAvEn
Nghề/Sở thích : Reversing
Reputation : 0
Points : 0
Registration date : 25/08/2008

Bài gửiTiêu đề: Re: Bài 6,7,8/51 (GSK) nè   Tue Oct 21, 2008 9:32 pm

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 ==!

_________________
. .. Do or do not, there is no try ...
Về Đầu Trang Go down
Xem lý lịch thành viên http://reaonline.net
[C]hicken[C]hip
Admin
Admin


Nam Tổng số bài gửi : 173
Age : 24
Đến từ : Chuồng gà
Nghề/Sở thích : Security
Reputation : 0
Points : 3003
Registration date : 25/08/2008

Bài gửiTiêu đề: Re: Bài 6,7,8/51 (GSK) nè   Tue Oct 21, 2008 10:00 pm

chết mồ viết sai bó tay Neutral 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 Big grin. Còn cái gán tien:=a là để cố định tiền lại nếu không sao xét ???
Về Đầu Trang Go down
Xem lý lịch thành viên http://4ruma1.darkbb.com
[C]hicken[C]hip
Admin
Admin


Nam Tổng số bài gửi : 173
Age : 24
Đến từ : Chuồng gà
Nghề/Sở thích : Security
Reputation : 0
Points : 3003
Registration date : 25/08/2008

Bài gửiTiêu đề: Re: Bài 6,7,8/51 (GSK) nè   Tue Oct 21, 2008 10:03 pm

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 Big grin. 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ó Big grin
Về Đầu Trang Go down
Xem lý lịch thành viên http://4ruma1.darkbb.com
Robin92
Moderator
Moderator


Nam Tổng số bài gửi : 68
Đến từ : HeLL to HeAvEn
Nghề/Sở thích : Reversing
Reputation : 0
Points : 0
Registration date : 25/08/2008

Bài gửiTiêu đề: Re: Bài 6,7,8/51 (GSK) nè   Tue Oct 21, 2008 10:13 pm

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.

_________________
. .. Do or do not, there is no try ...


Được sửa bởi Robin92 ngày Tue Oct 21, 2008 10:47 pm; sửa lần 2.
Về Đầu Trang Go down
Xem lý lịch thành viên http://reaonline.net
Robin92
Moderator
Moderator


Nam Tổng số bài gửi : 68
Đến từ : HeLL to HeAvEn
Nghề/Sở thích : Reversing
Reputation : 0
Points : 0
Registration date : 25/08/2008

Bài gửiTiêu đề: Re: Bài 6,7,8/51 (GSK) nè   Tue Oct 21, 2008 10:21 pm

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.


Được sửa bởi Robin92 ngày Tue Oct 21, 2008 10:33 pm; sửa lần 1.
Về Đầu Trang Go down
Xem lý lịch thành viên http://reaonline.net
Robin92
Moderator
Moderator


Nam Tổng số bài gửi : 68
Đến từ : HeLL to HeAvEn
Nghề/Sở thích : Reversing
Reputation : 0
Points : 0
Registration date : 25/08/2008

Bài gửiTiêu đề: Re: Bài 6,7,8/51 (GSK) nè   Tue Oct 21, 2008 10:24 pm

đã 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.

_________________
. .. Do or do not, there is no try ...
Về Đầu Trang Go down
Xem lý lịch thành viên http://reaonline.net
Sponsored content




Bài gửiTiêu đề: Re: Bài 6,7,8/51 (GSK) nè   Today at 10:56 pm

Về Đầu Trang Go down
 
Bài 6,7,8/51 (GSK) nè
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
[A]1 [C]lub :: Học tập :: Tin-
Chuyển đến