c7pro vô đối
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe

Go down

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Empty thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe

Bài gửi  tscdltdt Mon May 31, 2010 6:44 pm

program VD;
uses crt;
var A : array [1..100] of integer;

procedure Nhap(n:integer);
var i : integer;
begin
writeln('Nhap so luong phan tu cua mang');
readln(n);
for i:=1 to n do
begin
writeln('Nhap phan tu thu ',i:2,':');
readln(A[i]);
end;
end;

procedure Xuat(n:integer);
var i:integer;
begin
writeln('Mang vua nhap la :');
for i:=1 to n do
write(A[i]);
end;

procedure Sapxep(n:integer);
var i,j,t :integer;
begin
writeln('Mang duoc sap xep la :');
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
if A[i] < A[j] then
begin
t:=A[i];
A[i]:=A[j];
A[j]:=A[i];
end;
write( A[i] : 3 );
end;
end;

begin
clrscr
Nhap(n);
readln;
Xuat(n);
readln;
Sapxep(n);
readln;
end.
tscdltdt
tscdltdt
TUYÊN DƯƠNG
TUYÊN DƯƠNG

Tổng số bài gửi : 328
Points : 5500
Reputation : 16
Join date : 24/05/2010
Age : 29
Đến từ : gầm cầu ^^

http://789club.net/

Về Đầu Trang Go down

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Empty thuật toán tìm giá trị min hay mã nữa nè

Bài gửi  tscdltdt Mon May 31, 2010 6:45 pm

program BaiTap;
uses crt;
var A : array [1..5] of integer;

procedure NhapMang(n:integer);
var i : integer;
begin
writeln('Nhap so luong phan tu cua mang');
readln(n);
for i:=1 to n do
begin
writeln ('Nhap phan tu thu ',i');
readln(A[i]);
end;
end;

procedure XuatMang(n:integer);
var i:integer;
begin
for i:=1 to n do
writeln(A[i]);
end;

procedure TimMin_SapXep (n:integer);
var i,j,t,csmin: integer;
begin
for i:=1 to n do
begin
csmin:=i
for j:=i+1 to n do
if A[csmin]> A[j] then csmin:=j;
begin
t:= A[csmin];
A[csmin]:=A[i];
A[i]:=t;
end;
end;
end.

begin
clrscr;
writeln( 'Nhap so luong phan tu cua mang' );
NhapMang (n);
writeln ( 'Mang vua nhap la' );
XuatMang (n);
writeln ('Mang vua sap xep la');
TimMin_Sapxep (n);
end.
tscdltdt
tscdltdt
TUYÊN DƯƠNG
TUYÊN DƯƠNG

Tổng số bài gửi : 328
Points : 5500
Reputation : 16
Join date : 24/05/2010
Age : 29
Đến từ : gầm cầu ^^

http://789club.net/

Về Đầu Trang Go down

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Empty tìm kiếm tuyến tính Linearsearch (cái ni tui đăng lên nguyenduyhieu.com rồi)

Bài gửi  tscdltdt Mon May 31, 2010 6:47 pm

Bài đầu tiên mình cũng nói luôn : mình sẽ lần lượt post các bài hướng dẫn về giải thuật , anh em trong " Hội quán tin học " ai chưa biết thì có thể tự nghiên cứu , có gì ko hiểu thì khi off sẽ giải thích trực tiếp , hoặc có thể reply trên này , ai làm được 1 bài hoàn chỉnh bằng ngôn ngữ gì cũng được thì post lên đây cho anh em tham khảo luôn nghen .
( Lưu ý : bài làm nên xoáy vào trọng tâm , tránh rườm rà , tung hỏa mù mọi người ~ )

Thuật toán tiến hành so sánh x lần lượt với phần tử thứ nhất, thứ hai, ... của mảng a cho đến khi gặp được phần tử có khóa cần tìm, hoặc đã tìm hết mảng mà không thấy x. Các bước tiến hành như sau :

Bước 1:
Code:
i = 1; // bắt đầu từ phần tử đầu tiên của dãy
Bước 2:
Code:
So sánh a[i] với x, có 2 khả năng :
a[i] = x : Tìm thấy. Dừng
a[i] != x : Sang Bước 3.
Bước 3:
Code:
i = i+1; // xét tiếp phần tử kế trong mảng
Nếu i >N: Hết mảng,không tìm thấy.Dừng
Ngược lại: Lặp lại Bước 2.

Cài đặt
Ðánh giá giải thuật

Có thể ước lượng độ phức tạp của giải thuật tìm kiếm qua số lượng các phép so sánh được tiến hành để tìm ra x.
Trường hợp giải thuật tìm tuyến tính, có:

Tốt nhất 1 Phần tử đầu tiên có giá trị x
Xấu nhất n+1 Phần tử cuối cùng có giá trị x
Trung bình (n+1)/2 Giả sử xác suất các phần tử trong mảng nhận giá trị x là như nhau.

Vậy giải thuật tìm tuyến tính có độ phức tạp tính toán cấp n: T(n) = O(n)
Giải thuật tìm tuyến tính không phụ thuộc vào thứ tự của các phần tử mảng, do vậy đây là phương pháp tổng quát nhất để tìm kiếm trên một dãy số bất kỳ.
Một thuật toán có thể được cài đặt theo nhiều cách khác nhau, kỹ thuật cài đặt ảnh hưởng đến tốc độ thực hiện của thuật toán.
tscdltdt
tscdltdt
TUYÊN DƯƠNG
TUYÊN DƯƠNG

Tổng số bài gửi : 328
Points : 5500
Reputation : 16
Join date : 24/05/2010
Age : 29
Đến từ : gầm cầu ^^

http://789club.net/

Về Đầu Trang Go down

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Empty Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe

Bài gửi  tscdltdt Mon Aug 30, 2010 10:25 am

phần tin học 11 là phần khó nhất trong 3 năm học.
mà người dạy lại là thầy THỚI. một người trùm bài tập tin
nếu mọi người có zì thắc mắc cứ lên đây mà hỏi.
nếu trả lời được thì tui sẻ trả lừi.
ai bik cũng cứ trả lời.
mà tui trả lời đc mọi người phải thank tui
tscdltdt
tscdltdt
TUYÊN DƯƠNG
TUYÊN DƯƠNG

Tổng số bài gửi : 328
Points : 5500
Reputation : 16
Join date : 24/05/2010
Age : 29
Đến từ : gầm cầu ^^

http://789club.net/

Về Đầu Trang Go down

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Empty Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe

Bài gửi  Khách vi Mon Aug 30, 2010 8:41 pm

ac
1 mình nó mà đăng 4 lần
admin mà trùm spam

Khách vi
Khách viếng thăm


Về Đầu Trang Go down

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Empty Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe

Bài gửi  Khách vi Mon Aug 30, 2010 9:06 pm

ổng làm 1 đống ri thì ai hỉu mô tê j`, thôi bấm Back

Khách vi
Khách viếng thăm


Về Đầu Trang Go down

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Empty Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe

Bài gửi  tscdltdt Tue Aug 31, 2010 6:36 am

tao lạy cha nội.
tuy là những bài mở hàng (nên chung 1 topic) nhưng 3 bài khác nhau (nên thành 3 slot) .
ko thì tui để ra 3 topic rồi
tscdltdt
tscdltdt
TUYÊN DƯƠNG
TUYÊN DƯƠNG

Tổng số bài gửi : 328
Points : 5500
Reputation : 16
Join date : 24/05/2010
Age : 29
Đến từ : gầm cầu ^^

http://789club.net/

Về Đầu Trang Go down

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Empty Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe

Bài gửi  Khách vi Tue Aug 31, 2010 10:21 am

nói rứa cũng nói
ren ko làm 1 slot rồi ghi từng đề mục
mà nếu ngu quá không biết đề thì cho màu chữ khác nhau

Khách vi
Khách viếng thăm


Về Đầu Trang Go down

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Empty Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe

Bài gửi  tscdltdt Tue Aug 31, 2010 10:31 am

mi ko thấy 1 bài nó dài a`k.
nói ngu
3 bài khác nhau tao đăng 3 slot là may rồi
tao đăng 3 topic tao có lời hơn
tscdltdt
tscdltdt
TUYÊN DƯƠNG
TUYÊN DƯƠNG

Tổng số bài gửi : 328
Points : 5500
Reputation : 16
Join date : 24/05/2010
Age : 29
Đến từ : gầm cầu ^^

http://789club.net/

Về Đầu Trang Go down

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Empty Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe

Bài gửi  Khách vi Tue Aug 31, 2010 9:46 pm

kệ mày
admin mà spam thì nói ai nghe
chứ sao thấy bên mấy diễn đàn khác cũng đăng mấy bài dài nhằng thì sao

Khách vi
Khách viếng thăm


Về Đầu Trang Go down

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Empty Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe

Bài gửi  tscdltdt Wed Sep 01, 2010 6:32 am

mấy bài dài ngoằn là mấy bài có cùng chủ đề.
còn của tao là 3 cái chủ đề khác nhau
chứ sao bên nhạc kìa
cùng 1 đứa gởi
nó đưa ra nhìu lot khác nhau
nói ngu như heo mà cũng nói
tscdltdt
tscdltdt
TUYÊN DƯƠNG
TUYÊN DƯƠNG

Tổng số bài gửi : 328
Points : 5500
Reputation : 16
Join date : 24/05/2010
Age : 29
Đến từ : gầm cầu ^^

http://789club.net/

Về Đầu Trang Go down

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Empty Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe

Bài gửi  Khách vi Thu Sep 16, 2010 4:55 pm

ông Q với ông M cũng như nhau cả thôi

Khách vi
Khách viếng thăm


Về Đầu Trang Go down

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Empty Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe

Bài gửi  Khách vi Thu Sep 16, 2010 10:22 pm

chào mừng sự trở lại của gà siêu cấp
thủy pà khùng

Khách vi
Khách viếng thăm


Về Đầu Trang Go down

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Empty Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe

Bài gửi  Khách vi Sat Sep 18, 2010 9:36 am

này, 4rum lớp chứ không phải là chỗ để bôi nhau nghe ông Mạnh kia

Khách vi
Khách viếng thăm


Về Đầu Trang Go down

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Empty Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe

Bài gửi  Khách vi Sat Sep 18, 2010 10:16 am

tui k bôi pà cũng nhớp sẵn
kaka Razz Razz Razz Razz Razz Razz Razz Razz

Khách vi
Khách viếng thăm


Về Đầu Trang Go down

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Empty Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe

Bài gửi  Khách vi Mon Sep 20, 2010 7:41 pm

ông với tui cứ zô mục nào cũng nói qua nói lại ri để tui đăng đựơc nhìu bài lên cấp nghen

Khách vi
Khách viếng thăm


Về Đầu Trang Go down

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Empty Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe

Bài gửi  Khách vi Mon Sep 20, 2010 8:36 pm

VÀ bây h pà THủy thế chỗ của thèng Quân hả

Khách vi
Khách viếng thăm


Về Đầu Trang Go down

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Empty Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe

Bài gửi  Khách vi Mon Sep 20, 2010 8:45 pm

chỗ nào cũng 8 đc... thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Icon_razz

Khách vi
Khách viếng thăm


Về Đầu Trang Go down

thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe Empty Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe

Bài gửi  Sponsored content


Sponsored content


Về Đầu Trang Go down

Về Đầu Trang

- Similar topics

 
Permissions in this forum:
Bạn không có quyền trả lời bài viết