Bài tập ngày 25/09/08 ( T.Phước)

Được sửa bởi auphuoc ngày 25/9/2008, 2:36 am; sửa lần 1.

Bài tập 1 :
Lập trình tìm tất cả cách thay thế dấu ? bởi các phép tính ,- , * , / trong biểu thức (((( 1 ? 2) ? 3) ? 4) ? 5 ) ? 6) sao cho biểu thức số đó có giá trị bằng 35.

Bài 2 :

Dãy FAREY

Dãy Farey của số tự nhiên n, kí hiệu F(n) là dãy sắp tăng các phân số trong khoãng [0,1] tức là các phân số tối giản có dạng t/m với 0 < t < m = n.

Với phân số đầu tiên cũa dãy có giá trị là 0, ta quy định viết 0/1, với phân số cuối cùng của dãy có giá trị 1 ta qui định quyết 1/1. Biết n trong khoảng từ 1 đến 300. Viết dãy Farey của n.

FAREY.INP FAREY.OUT

n k

t1 m1

t2 m2

… …

Tk mk

Trong đó k là số lượng các phân số trong dãy tìm được. Mỗi dòng chứa một phân số ti mi. Dữ liệu cùng dòng cách nhau bằng dấu cách.

FAREY.INP FAREY.OUT

4 7

0 1

1 4

1 3

1 2

2 3

3 4

1 1

Tiêu đề: Võ Cao Nguyên 25/9/2008, 2:28 am

Program bt;
Const a:array[1..4]of char=('+','-','*','/');
fo='Bt.out';
{----------------------------}
Function Tinh(a,b,c:integer):integer;
Begin
Case c of
1:Tinh:=a+b;
2:Tinh:=a-b;
3:Tinh:=a*b;
4:If a mod b=0 then tinh:=a div b else Tinh:=0;
End;
End;
{-----------------------------}
Procedure Xuly;
Var f:text;
i,j,k,g,h,t:integer;
Begin
Assign(f,fo);
Rewrite(f);
For i:=1 to 4 do
For j:=1 to 4 do
For k:=1 to 4 do
For g:=1 to 4 do
For h:=1 to 4 do
Begin
t:=(Tinh((Tinh((Tinh((Tinh((Tinh(1,2,i)),3,j)),4,k)),5,g)),6,h));
if t=35
then Writeln(f,'((((1',A[i],'2)',A[j],'3)',A[k],'4)',A[g],'5)',A[h],'6=35');
End;
Close(f);
End;
{-------------------------------}
Begin {main}
Xuly;
End.

Tiêu đề: SORRY NGHEN!!!!!! 25/9/2008, 2:44 am

program bt;
const a:array[1..4]of char=('+','-','*','/');
fo='bt2.out';
{------------------------------}
function tinh(a,b,c:integer):integer;
begin
case c of
1:tinh:=a+b;
2:tinh:=a-b;
3:tinh:=a*b;
4:if a mod b=0 then tinh:=a div b
else tinh:=0;
end;
end;
{-----------------------------}
procedure xuly;
var f:text; i,j,k,g,h:integer;
begin
assign(f,fo);
rewrite(f);
for i:=1 to 4 do
for j:=1 to 4 do
for k:=1 to 4 do
for g:=1 to 4 do
for h:=1 to 4 do
if (tinh((tinh((tinh((tinh((tinh(1,2,i)),3,j)),4,k)),5,g)),6,h)=35) then
writeln(f,'(((((1',a[i],'2)',a[j],'3)',a[k],'4)',a[g],'5)',a[h],'6=35');
close(f);
end;
{-----------------------}
begin {main}
xuly;
end.

MẠI ZÔ!!!!!!! MẠI ZÔ !!!!!!!!

Được sửa bởi RubyNguyen ngày 25/9/2008, 3:23 am; sửa lần 1.

{RUBY NGUYEN & DANG TRINH (KALDIMJ) ====10CTI LE HONG PHONG}
{DO NOT COPY ANY WAY!!!!!}

PROGRAM FAREY;
CONST FI='FAREY.INP';
FO='FAREY.OUP';
VAR F:TEXT;N,K:LONGINT;
{=============================}
PROCEDURE XL(A,B,C,D:INTEGER;M:BOOLEAN);
BEGIN
IF B+D<=N THEN
BEGIN
XL(A,B,A+C,B+D,M);
IF M = TRUE THEN
INC(K)
ELSE WRITELN(F,A+C,' ',B+D);
XL(A+C,B+D,C,D,M);
END;
END;
{========================}
PROCEDURE NHAP;
BEGIN
ASSIGN(F,FI);
RESET(F);
READ(F,N);
CLOSE(F);
END;
{============================}
BEGIN
K:=0;
NHAP;
ASSIGN(F,FO);
REWRITE(F);
XL(0,1,1,1,TRUE);
WRITELN(F,K+2);
WRITELN(F,'0 1');
XL(0,1,1,1,FALSE);
WRITELN(F,'1 1');
CLOSE(F);
END.

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 25/9/2008, 3:11 am

Thầy phước cho em với thằng Ruby ké với nhé ^^!

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 26/9/2008, 4:36 am

Hs dang suy nghi~ cach' lam` thi` tu nhien lai post bai` giai~ le^n
†)au` †)oc. wa' Laughing

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 26/9/2008, 7:02 am

Bó tay thật ! Em nghỉ học bồi dưỡng cũng 1 tháng nay rùi . Hok biết làm dc không nữa . affraid

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 26/9/2008, 7:11 am

Bài này giới hạn n<=1000 Twisted Evil

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 27/9/2008, 1:03 am

=)) pó tay! hok hĩu j hết=)) sao hok có box cho đội toán nhỡ??? kì ghê Very Happy

dể mình có chỗ phát triễn chớ=))

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 27/9/2008, 7:38 pm

Sao ko ai vào làm dãy farey vậy ta !!

Lớp 6 Tổng số bài gửi : 72 Registration date : 28/09/2008

em ho^g hiu~ j` het,keke

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 28/9/2008, 10:31 pm

Toàn là lớp chồi với lớp 1 không thì sao hiểu đc Razz

Lớp 6 Tổng số bài gửi : 72 Registration date : 28/09/2008

anh leonken hiu~ hok;))

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 1/10/2008, 4:32 am

kapie đã viết:: anh leonken hiu~ hok;))

Hiểu là chuyện --> Translate sang ngôn ngữ pascal là chuyện khác nữa em àh =DD ....

Thầy Phước kêu về tự làm không nhìn bài anh Ruby mà , nên đâu làm theo đâu , trôm ý thôi :X ( BTVN = Bài tập về nhòm sunny

)

Mà a . RubyNguyen đừng lo COPY không đc đâu ... ( WEB có CODE chống copy rồi , copy = hello! lol!

)

Thấy cái CODE chống copy này nhảm quá nha ... Copy hình , bài viết sưu tầm ( mà dài ) giờ cũng không đc , chẳng lẽ ngồi đánh từng chữ vào ... ADMIN coi lại dùm , làm TLV đây ~!!!~ Laughing

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 1/10/2008, 6:09 am

Đâu có, anh thấy copy vẫn ok mà. Nói chung tuỳ ý thức mỗi người....

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 2/10/2008, 7:00 am

Bài đó là code của kal đấy !! Ruby dám ăn ké hả mày !! Mai lên trường biết tao lol!

Àh loenken ơi , kapie là ai mà em xưng là em vậy .... Coi chừng hố affraid

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 2/10/2008, 8:39 am

oa oa! sao ma minh ngu wa di:(( mi em dung de nam sau dzo Tri Duc choi vs chi nghen:((

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 4/10/2008, 4:01 am

Nguyễn Thượng Hiền đổi tên thành Trí Đức hồi nào vậy bác Aqua
Em học trung cấp chuyên nghiệp nên ko biết Sad

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 4/10/2008, 7:07 am

kaldimj đã viết:: Bài đó là code của kal đấy !! Ruby dám ăn ké hả mày !! Mai lên trường biết tao

Sao mày tự tin quá vậy ku Kal Smile

. Biết tội nói xạo là đi tù mọt gông ko scratch

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 4/10/2008, 8:23 am

ai mún đi chơi thì chìu mỗi t3,5,7 luk5.30 ra trung tam van hoa Tan Phú chơi voi Hạnh và Uphương nè; Wink

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 4/10/2008, 9:22 am

Qua đó làm gì Hạnh Ú

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 4/10/2008, 9:58 pm

hok bik đọc chữ hả mài? học lại lớp 1 đi ku

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 4/10/2008, 11:00 pm

Aqua_Love_So31 đã viết:: ai mún đi chơi thì chìu mỗi t3,5,7 luk5.30 ra trung tam van hoa Tan Phú chơi voi Hạnh và Uphương nè;

Wa đó đi học nhảy hiện đại hả ? I love you

,

...
Chị Hạnh dzới " ông khố " mình nhảy ra seo te ? Bữa nào rảnh fải đi koi " chực típ " mới dc =)) Twisted Evil

,...

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 5/10/2008, 2:48 am

Kì này trung tâm đó lỗ nặng =))

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 5/10/2008, 3:54 am

oki pé nào thx thì t7 wa luk5.30 đi chơi với hạnh và UP có thể tuần này ta đi KFC, có pé nào đi hok nè?

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 12/10/2008, 5:49 am

mày khao hả H

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 12/10/2008, 5:50 am

Tao xin 2 xuất

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 12/10/2008, 5:50 am

Sợ wá trốn rồi =))

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 12/10/2008, 5:51 am

Chán wá .. Đuổi theo mệt ghê

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước) 13/10/2008, 12:01 am

=)) mài hả 0.0...1 (với n chữ số 0) còn hok có đừng nói là 2 xuât!

Tiêu đề: Re: Bài tập ngày 25/09/08 ( T.Phước)

» Bài tập ngày 02/10/08 (T.Phước)
» Bài tập ngày 4_10_08 ( Thầy Toàn ) !!!!!
» GIAI~ BT THAY PHUOC' DEEEEEEEEEE!!!!! MAI ZO!!!!! MAI ZO!!!
» bai` tap ngay 25/9/2008
» Bài tập ngày 30/9/08 (C.Nhung)