thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe
Trang 1 trong tổng số 1 trang
thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe
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.
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.
thuật toán tìm giá trị min hay mã nữa nè
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.
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.
tìm kiếm tuyến tính Linearsearch (cái ni tui đăng lên nguyenduyhieu.com rồi)
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.
( 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.
Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe
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
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
Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe
ac
1 mình nó mà đăng 4 lần
admin mà trùm spam
1 mình nó mà đăng 4 lần
admin mà trùm spam
Khách vi- Khách viếng thăm
Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe
ổ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
Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe
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
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
Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe
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
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
Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe
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
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
Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe
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
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
Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe
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
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
Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe
ông Q với ông M cũng như nhau cả thôi
Khách vi- Khách viếng thăm
Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe
chào mừng sự trở lại của gà siêu cấp
thủy pà khùng
thủy pà khùng
Khách vi- Khách viếng thăm
Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe
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
Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe
tui k bôi pà cũng nhớp sẵn
kaka
kaka
Khách vi- Khách viếng thăm
Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe
ô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
Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe
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
Re: thuật toán sắp xếp trong pascal. học chuẩn bị cho 11 nghe
chỗ nào cũng 8 đc...
Khách vi- Khách viếng thăm
Similar topics
» hết đố. bây h đối nè. ai đối chuẩn đc 2 câu là có thưởng 1 cái thank (sao toàn tui thank mấy người hok thê)
» anh nghệ thuật...
» xã hội óc tự thiên, chuyên văn trong chuyên toán hjhj
» tập làm toán 11 nè. hihj
» Đột kích trong tầm ngắm
» anh nghệ thuật...
» xã hội óc tự thiên, chuyên văn trong chuyên toán hjhj
» tập làm toán 11 nè. hihj
» Đột kích trong tầm ngắm
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|