- Ebook Giải thuật và lập trình Lê Minh Hoàng
- Các thuật toán sắp xếp trong Pascal

Xóa các phần tử trùng nhau trong mảng 1 chiều (pascal)



Nhập vào mảng 1 chiều gồm 1 dãy số nguyên N phần tử. Hãy xóa các phần tử trùng nhau trong mảng và in kết quả ra màn hình. Ý tưởng: Duyệt mảng 1 chiều bằng 2 biến, nếu phát phát hiện phần tử nào trùng thì xóa phần tử ấy ra khỏi mảng.


Program Bo_so_trung;
   Const
      Max=100;
   Var
   a:Array[1..Max] Of Integer;
   i,j,k,n:Integer;
Begin
   Writeln('XOA BO CAC SO TRUNG NHAU');
   Writeln('------------------------');
   Writeln;
   Write('-Nhap so phan tu mang: ');
   Readln(n);
   For i:=1 To N Do
      Begin
         Write('-Phan tu A[',i,']= ');
         Readln(a[i]);
      End;
   i:=2;
   While i <= N Do
      Begin
         j:=1;
         While a[j] <> a[i] Do
            j:=j+1;
         If j < i Then
            Begin
               For k:=i to n-1 Do
                  a[k]:= a[k+1];
               n:=n-1;
            End
         Else
            i:=i+1;
      End;
   Writeln;
   Write('-Mang con lai: ');
   For i:=1 to n Do
      Write(a[i]:8);
   Writeln;
   Writeln('   Bam phim <Enter> de ket thuc ');
   Readln
End.


Nặc danh nói...

vậy biến j trong ct là gì v. bạn


16:13 Ngày 27 tháng 07 năm 2012
Nặc danh nói...

nhap vao 1 day so cho truoc, xuat ra nhung phan tu trung nhau thi lam the nao ha ban?


11:49 Ngày 17 tháng 11 năm 2012
Nặc danh nói...

Ko chạy đc chương trình. Sai kết quả


21:13 Ngày 03 tháng 12 năm 2012
Cường nói...

tại sao khi j<i lại del A[i], cái đó phải dùng khi A[i]=A[j] mà :(


21:14 Ngày 04 tháng 02 năm 2013
Nguyên Hưng Vũ nói...

Bạn có thể giải thích hộ mình ý tưởng đc không, viết vào chương trình thì đúng rồi đấy bạn ^^!


18:51 Ngày 24 tháng 02 năm 2013
Nặc danh nói...

đúng cần giải thích


19:45 Ngày 26 tháng 02 năm 2013
Nặc danh nói...

Saj.
Nhập n=5. Nhập các phần tử lần lượt là 1 5 5 8 2.
Kết quả là 5 5 8 2


14:56 Ngày 07 tháng 04 năm 2013
Nặc danh nói...

i với j là số thứ tự của từng phần tử. nếu ithực hiện lệnh xóa 1 phần tử trong dãy rồi tăng i lên ss tiếp. ngược lại i<j thì tăng i


14:03 Ngày 09 tháng 12 năm 2013
Đại Hoàng Hữu nói...

Có ai biết làm ko cho xin thuật toán


15:57 Ngày 11 tháng 12 năm 2013
Nặc danh nói...

chuong trinh chay khong dung


08:46 Ngày 17 tháng 07 năm 2014
Nặc danh nói...

hay qua :VVVVVVVVVVVVVVVVVVVVVVVVV,sai :))


16:41 Ngày 30 tháng 09 năm 2014

Đăng nhận xét

Thành viên Blog

Tổng số lượt xem trang

Translate

Return to top of page Copyright © 2012 | Theme by Hack Tutors. Cung cấp bởi Blogger.
Các code pascal trong blog được sưu tầm, lựa chọn sao cho tối ưu nhất. Cảm ơn các tác giả đã viết thuật toán.