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

Bài gửi  tscdltdt on 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.
avatar
tscdltdt
TUYÊN DƯƠNG
TUYÊN DƯƠNG

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

Xem lý lịch thành viên http://789club.net/

Về Đầu Trang Go down

thuật toán tìm giá trị min hay mã nữa nè

Bài gửi  tscdltdt on 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.
avatar
tscdltdt
TUYÊN DƯƠNG
TUYÊN DƯƠNG

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

Xem lý lịch thành viên http://789club.net/

Về Đầu Trang Go down

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 on 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.
avatar
tscdltdt
TUYÊN DƯƠNG
TUYÊN DƯƠNG

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

Xem lý lịch thành viên http://789club.net/

Về Đầu Trang Go down

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

Bài gửi  tscdltdt on 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

_________________

Đứa nào mún như zầy thì zọt zô
avatar
tscdltdt
TUYÊN DƯƠNG
TUYÊN DƯƠNG

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

Xem lý lịch thành viên http://789club.net/

Về Đầu Trang Go down

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 on 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

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 on 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

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

Bài gửi  tscdltdt on 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

_________________

Đứa nào mún như zầy thì zọt zô
avatar
tscdltdt
TUYÊN DƯƠNG
TUYÊN DƯƠNG

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

Xem lý lịch thành viên http://789club.net/

Về Đầu Trang Go down

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 on 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

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

Bài gửi  tscdltdt on 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

_________________

Đứa nào mún như zầy thì zọt zô
avatar
tscdltdt
TUYÊN DƯƠNG
TUYÊN DƯƠNG

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

Xem lý lịch thành viên http://789club.net/

Về Đầu Trang Go down

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 on 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

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

Bài gửi  tscdltdt on 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

_________________

Đứa nào mún như zầy thì zọt zô
avatar
tscdltdt
TUYÊN DƯƠNG
TUYÊN DƯƠNG

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

Xem lý lịch thành viên http://789club.net/

Về Đầu Trang Go down

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 on 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

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 on 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

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 on 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

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 on 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

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 on 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

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 on 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

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 on Mon Sep 20, 2010 8:45 pm

chỗ nào cũng 8 đc...

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


Về Đầu Trang Go down

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