Crazyinlove

Don't cry cause you are so right
 
IndexPortalCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 Moi nguoi lam bai nay di

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
chopes
MOD
MOD


Tổng số bài gửi : 149
Age : 25
Đến từ : 123456789
Registration date : 03/04/2008

Bài gửiTiêu đề: Moi nguoi lam bai nay di   Sat Apr 05, 2008 10:32 pm

Cho day so nguyen duong A(n) nhap tu ban fims gomf 3 loaij sos
:Loaij 1 cacs sos vua chia het cho 3 vua ler . loaij 2 vua chia het cho 3 vua chan. loaij 3 cac so conf laij
Yeu cau xep cac so loai 1 len dau day, tiep den loai 2 cuoi cung la loai 3
Bang cach doi cho truc tiep 2 so trong day vaf thuat toans chia de tri: truoc het xep gon cac so loai 1 sau do dong thoi xep cac so loai 2 va 3.
dua ra man hinh day ban dau va day duoc sap xep
Về Đầu Trang Go down
Xem lý lịch thành viên
chopes
MOD
MOD


Tổng số bài gửi : 149
Age : 25
Đến từ : 123456789
Registration date : 03/04/2008

Bài gửiTiêu đề: Re: Moi nguoi lam bai nay di   Sun Apr 06, 2008 2:49 am

co bai nay nua
Day doi guong la day cac fan tu cach deu dau day va cuoi day thi bang nhau nhap vao mot day
a(n) gom n fan tu moi phan tu la 1 ki tu Hay noi them vao day cac phan tu n+1,n+2,...,m sao cho day a(m) gom cac phan tu tu 1=>M la day doi guong va m cang nho cang tot.
Về Đầu Trang Go down
Xem lý lịch thành viên
Crazyinlove
Admin
Admin


Tổng số bài gửi : 296
Age : 25
Đến từ : Thiên đường vắng em
Registration date : 03/04/2008

Character sheet
Crazyinlove:
1223/1223  (1223/1223)

Bài gửiTiêu đề: Re: Moi nguoi lam bai nay di   Sun Apr 06, 2008 8:19 am

chopes đã viết:
co bai nay nua
Day doi guong la day cac fan tu cach deu dau day va cuoi day thi bang nhau nhap vao mot day
a(n) gom n fan tu moi phan tu la 1 ki tu Hay noi them vao day cac phan tu n+1,n+2,...,m sao cho day a(m) gom cac phan tu tu 1=>M la day doi guong va m cang nho cang tot.
Dương ơi mi cho tau thuật toán bài này cái mi
Tau làm mãi không đc pale
Về Đầu Trang Go down
Xem lý lịch thành viên http://crazyinlove.hot-me.com
Crazyinlove
Admin
Admin


Tổng số bài gửi : 296
Age : 25
Đến từ : Thiên đường vắng em
Registration date : 03/04/2008

Character sheet
Crazyinlove:
1223/1223  (1223/1223)

Bài gửiTiêu đề: Re: Moi nguoi lam bai nay di   Sun Apr 06, 2008 8:21 am

chopes đã viết:
Cho day so nguyen duong A(n) nhap tu ban fims gomf 3 loaij sos
:Loaij 1 cacs sos vua chia het cho 3 vua ler . loaij 2 vua chia het cho 3 vua chan. loaij 3 cac so conf laij
Yeu cau xep cac so loai 1 len dau day, tiep den loai 2 cuoi cung la loai 3
Bang cach doi cho truc tiep 2 so trong day vaf thuat toans chia de tri: truoc het xep gon cac so loai 1 sau do dong thoi xep cac so loai 2 va 3.
dua ra man hinh day ban dau va day duoc sap xep
Bài ni tau không làm đc lol!
Về Đầu Trang Go down
Xem lý lịch thành viên http://crazyinlove.hot-me.com
chopes
MOD
MOD


Tổng số bài gửi : 149
Age : 25
Đến từ : 123456789
Registration date : 03/04/2008

Bài gửiTiêu đề: Re: Moi nguoi lam bai nay di   Sun Apr 06, 2008 8:43 am

[quote=\"Crazyinlove\"][quote=\"chopes\"]co bai nay nua
Day doi guong la day cac fan tu cach deu dau day va cuoi day thi bang nhau nhap vao mot day
a(n) gom n fan tu moi phan tu la 1 ki tu Hay noi them vao day cac phan tu n+1,n+2,...,m sao cho day a(m) gom cac phan tu tu 1=>M la day doi guong va m cang nho cang tot.[/quote]
Dương ơi mi cho tau thuật toán bài này cái mi
Tau làm mãi không đc pale[/quote]
Day la bai giai cua thay

Program Daydoiguong;

Uses Crt;

Const Max = 100;

Var A : Array[1..2*Max] of Integer;

N,i : Integer;

(-------------------------------------------------------------------------)

Procedure Nhaptay;

Var i : Integer;

Begin

Repeat

Write(\'Nhap N = \');

{$I-} Readln(N); {$I+}

Until (IoResult=0) and (N>0) and (N<=Max);

For i:=1 to N do

Begin

Write(\'A[\',i,\'] = \');

Readln(A[i]);

End;

End;

(----------------------------------------------------------------)

Procedure Hien(d : Integer);

Var i : Integer;

Begin

For i:=1 to d do Write(A[i]:2);

Writeln;

End;

(-----------------------------------------------------------------)

Function Doiguong(d,c : Integer):Boolean;

Var j : Integer;

Begin

For j:=1 to ((c-d) div 2 +1) do

If A[d+j-1]<>A[c-j+1] then

Begin

Doiguong := False;

Exit;

End;

Doiguong := True;

End;

(----------------------------------------------------------------------)

Procedure Tim1;

Var j : Integer;

Begin

If Doiguong(1,N) then

Begin

Writeln(\'Khong can them so hang nao \');

Readln;

Halt;

End;

Repeat

Inc(i);

A[i] := A[1];

For j := i-1 downto (N+1) do A[j] := A[i-j+1];

Until doiguong(1,i) or (i=2*N+1);

End;

(-------------------------------------------------------------------------------)

Procedure Tim2;

Var k,j : Integer;

Begin

k := 1;

While (not doiguong(k,N)) and (k<=N) do Inc(k);

For j:=k-1 downto 1 do A[N+k-j]:=A[j];

i := N+k-1;

End;

(---------------------------------------------------------------------------------------------------------)

BEGIN

Clrscr;

Nhaptay;

Hien(N);

i := N; Tim1; Hien(i); {C¸ch t×m thø nhat }

Tim2; Hien(i) {C¸ch t×m thø hai }

Readln

END.


Được sửa bởi chopes ngày Sun Apr 06, 2008 8:48 am; sửa lần 1.
Về Đầu Trang Go down
Xem lý lịch thành viên
Crazyinlove
Admin
Admin


Tổng số bài gửi : 296
Age : 25
Đến từ : Thiên đường vắng em
Registration date : 03/04/2008

Character sheet
Crazyinlove:
1223/1223  (1223/1223)

Bài gửiTiêu đề: Re: Moi nguoi lam bai nay di   Sun Apr 06, 2008 8:45 am

uh
Cám ơn nha lol!
Về Đầu Trang Go down
Xem lý lịch thành viên http://crazyinlove.hot-me.com
Sponsored content




Bài gửiTiêu đề: Re: Moi nguoi lam bai nay di   Today at 12:57 am

Về Đầu Trang Go down
 
Moi nguoi lam bai nay di
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» [18102010][News]Kim Byung Ho, người có vẻ bề ngoài trông giống ngôi sao điển trai Youngwoong Jaejoong, sắp ra mắt.
» [16122010][Discuss]Ai là sao nam của Han Quốc là người vui tính nhỉ???
» [08012011][news]Big Bang "đánh bật" SNSD để trở thành siêu sao quảng cáo!
» [240102011] [NEWS]CEO Prain, ấn tượng về Jaejoong- ng duy nhất ông ấy follow trên Twitter
» [03022011][news]Hàng loạt sao Hàn bự sinh nhật tháng 2

Permissions in this forum:Bạn không có quyền trả lời bài viết
Crazyinlove :: Thông tin về forum :: Công nghệ thông tin :: Lập trình-
Chuyển đến