Đến nội dung


Chú ý

Nếu các bạn đăng kí thành viên mà không nhận được email kích hoạt thì hãy kiểm tra thùng thư rác (spam). Nếu không biết cách truy cập vào thùng thư rác thì các bạn chịu khó Google hoặc đăng câu hỏi vào mục Hướng dẫn - Trợ giúp để thành viên khác có thể hỗ trợ.


Hình ảnh

bài pascal nay giúp em với


  • Please log in to reply
Chủ đề này có 3 trả lời

#1 tuanrint

tuanrint

    Binh nhì

  • Thành viên
  • 13 Bài viết

Đã gửi 01-02-2010 - 17:41

Nhập dẫy số, hoán vi các vi tri trong dẫy
Vi du: Nhập a[1]:=1; a[2]:=2;a[3]:=3;
in ra :123
132
213
231
321
312
Thanhs.

#2 triều

triều

    VMF's Joker

  • Thành viên
  • 417 Bài viết
  • Giới tính:Nam
  • Đến từ:Quy Nhơn
  • Sở thích:Math and Classical Music <br />Jogging and playing Shuttle Cock<br />

Đã gửi 01-02-2010 - 22:28

bài này , lúc trước tớ có 1 người bạn có cách giải = phương pháp khá hay (vì nó đơn giản) nhưng chỉ áp dụng được <18 phần tử với mỗi phần tử là 1 chữ số
đại ý là thế này
lấy vd này chẳng hạn nhé
a[1]=6;a[2]=2;a[3]=8

bạn sắp xếp chúng (tăng giảm gì cũng được
-> (2,6,8)
cho chương trình duyệt từ 268 -> 862 (phần còn lại chắc bạn hiểu phải làm gì ^^)

còn đây là ct quay lui chuẩn
program lietkehoanvi;
var N,m&#58;integer;
	  a,o&#58;array&#91;1..1000&#93; of integer;
	  b&#58;array&#91;1..1000&#93; of boolean;

procedure out;
var i&#58;integer;
begin
 for i&#58;=1 to N do write&#40;o&#91;i&#93;&#41;;
end;

procedure lietke&#40;n&#58;integer&#41;;
var i&#58;integer;
begin
if n=N+1 then out;
else
  for i&#58;=1 to N do if b&#91;i&#93; then 
   begin
	b&#91;i&#93;&#58;=false;
	o&#91;n&#93;&#58;=a&#91;i&#93;;
	lietke&#40;n+1&#41;;
	b&#91;i&#93;&#58;=true;
   end;
end;

begin
write&#40;&#39;nhap so phan tu &#39;&#41;;readln&#40;N&#41;;
for m&#58;=1 to N do 
 begin
  write&#40;&#39;nhap phan tu thu &#39;,m,&#39; &#39;&#41;;readln&#40;a&#91;m&#93;&#41;;
 end;
lietke&#40;1&#41;;
readln
end.
sorry nếu code trên có lỗi (vì tớ code thẳng , không bug ^^)

Bài viết đã được chỉnh sửa nội dung bởi triều: 02-02-2010 - 11:32

TÔI KHÔNG THÔNG MINH, TÔI CHỈ THÍCH ĐƯỢC KHÁM PHÁ


#3 hungvu11

hungvu11

    Binh nhì

  • Thành viên
  • 13 Bài viết
  • Giới tính:Nam
  • Đến từ:Bắc Giang
  • Sở thích:Toán học, thể thao

Đã gửi 30-09-2010 - 20:53

bài này , lúc trước tớ có 1 người bạn có cách giải = phương pháp khá hay (vì nó đơn giản) nhưng chỉ áp dụng được <18 phần tử với mỗi phần tử là 1 chữ số
đại ý là thế này
lấy vd này chẳng hạn nhé
a[1]=6;a[2]=2;a[3]=8

bạn sắp xếp chúng (tăng giảm gì cũng được
-> (2,6,8)
cho chương trình duyệt từ 268 -> 862 (phần còn lại chắc bạn hiểu phải làm gì ^^)

còn đây là ct quay lui chuẩn

program lietkehoanvi;
var N,m&#58;integer;
	  a,o&#58;array&#91;1..1000&#93; of integer;
	  b&#58;array&#91;1..1000&#93; of boolean;

procedure out;
var i&#58;integer;
begin
 for i&#58;=1 to N do write&#40;o&#91;i&#93;&#41;;
end;

procedure lietke&#40;n&#58;integer&#41;;
var i&#58;integer;
begin
if n=N+1 then out;
else
  for i&#58;=1 to N do if b&#91;i&#93; then 
   begin
	b&#91;i&#93;&#58;=false;
	o&#91;n&#93;&#58;=a&#91;i&#93;;
	lietke&#40;n+1&#41;;
	b&#91;i&#93;&#58;=true;
   end;
end;

begin
write&#40;&#39;nhap so phan tu &#39;&#41;;readln&#40;N&#41;;
for m&#58;=1 to N do 
 begin
  write&#40;&#39;nhap phan tu thu &#39;,m,&#39; &#39;&#41;;readln&#40;a&#91;m&#93;&#41;;
 end;
lietke&#40;1&#41;;
readln
end.
sorry nếu code trên có lỗi (vì tớ code thẳng , không bug ^^)

uk Bai nay dung thuat toan quay lui
Thu tuc Try nhu thu tuc liet ke cua ban

#4 NguyThang khtn

NguyThang khtn

    Thượng úy

  • Hiệp sỹ
  • 1465 Bài viết
  • Giới tính:Nam
  • Đến từ:A1 K46 Tổng hợp

Đã gửi 30-09-2010 - 21:06

hung hau ha chi vao tin thui a
bai ma nguoi gui co ten la bboy114crewla cua to thang day

It is difficult to say what is impossible, for the dream of yesterday is the hope of today and the reality of tomorrow

 





0 người đang xem chủ đề

0 thành viên, 0 khách, 0 thành viên ẩn danh