Tin Học - Mảng 1 Chiều Trong Pascal - HOCMAI Forum

• Diễn đàn Bài viết mới Tìm kiếm trên diễn đàn
• Đăng bài nhanh
• Có gì mới? Bài viết mới New media New media comments Status mới Hoạt động mới
• Thư viện ảnh New media New comments Search media
• Story
• Thành viên Đang truy cập Đăng trạng thái mới Tìm kiếm status cá nhân

Đăng nhập Đăng ký

Tìm kiếm

Everywhere Đề tài thảo luận This forum This thread Chỉ tìm trong tiêu đề By: Search Tìm nâng cao… Everywhere Đề tài thảo luận This forum This thread Chỉ tìm trong tiêu đề By: Search Advanced…

• Bài viết mới
• Tìm kiếm trên diễn đàn

Menu Install the app Install Tin họcMảng 1 chiều trong pascal

• Thread starter 02-07-2019.
• Ngày gửi 9 Tháng chín 2019
• Replies 4
• Views 3,889

• Bạn có 1 Tin nhắn và 1 Thông báo mới. [Xem hướng dẫn] để sử dụng diễn đàn tốt hơn trên điện thoại

• Diễn đàn
• CÁC MÔN HỌC KHÁC
• Tin học - máy tính
• Tin học trong nhà trường
• Tin học cấp II

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser.

02-07-2019.

Học sinh tiến bộ

HV CLB Lịch sử Thành viên 4 Tháng năm 2018 1,485 1,656 236 Vĩnh Phúc Trung học cơ sở Lập Thạch [TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Bài 1: Xóa các phần tử trùng nhau trong mảng một chiều Đọc vào mảng một chiều gồm 1 dãy số nguyên có 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. Giúp mình nhé! Mình cảm ơn!

thach200712

Học sinh

Thành viên 9 Tháng chín 2019 26 15 21 Bắc Ninh Trường Trung học Cơ sở Tương Giang Đúng không nhỉ ? Program Bo_so_trung; Uses crt; 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); End; i:=2; While i <= N Do Begin j:=1; While a[j]<> aDo 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: 8); Writeln; Writeln(' Bam phim de ket thuc '); Readln End.

• 

Reactions: Trâm Nguyễn Thị Ngọc

Trâm Nguyễn Thị Ngọc

Giải Nhất event Thế giới Sinh học 2

Thành viên 13 Tháng mười 2018 1,523 1,339 241 19 Quảng Trị Trường TH&THCS Hải Ba

Nguyễn Thành Long vplt said: Bài 1: Xóa các phần tử trùng nhau trong mảng một chiều Đọc vào mảng một chiều gồm 1 dãy số nguyên có 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. Giúp mình nhé! Mình cảm ơn! Bấm để xem đầy đủ nội dung ...

Mã: Var a:array[1..100] of integer; i,n,j,k:integer; Begin Readln(n); For i:=1 to n do readln(a[i]); For i:=1 to n-1 do For j:=i+1 to n do If a[i]=a[j] then begin For k:=j to n-1 do a[k]:=a[k+1]; n:=n-1; end; Write('mang sau khi xoa:'); For i:=1 to n do write(a[i],' '); readln End.

thach200712 said: Đúng không nhỉ ? Program Bo_so_trung; Uses crt; 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); End; i:=2; While i <= N Do Begin j:=1; While a[j]<> aDo 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: 8); Writeln; Writeln(' Bam phim de ket thuc '); Readln End. Bấm để xem đầy đủ nội dung ...

Đây cũng là một code để xóa các phần tử giống nhau trong mảng, có điều đúng hơn là xóa các giá trị trùng nhau nhưng vẫn đảm bảo vị trí của mảng. Theo mình nghĩ thì vẫn đúng, nhưng thừa thôi Last edited: 10 Tháng chín 2019

• 

Reactions: 02-07-2019.

nguyen tran thanh nha

Học sinh chăm học

Thành viên 10 Tháng sáu 2018 107 53 61 21 Bà Rịa - Vũng Tàu thcs kim long

Nguyễn Thành Long vplt said: Bài 1: Xóa các phần tử trùng nhau trong mảng một chiều Đọc vào mảng một chiều gồm 1 dãy số nguyên có 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. Giúp mình nhé! Mình cảm ơn! Bấm để xem đầy đủ nội dung ...

Mã: var i,n,j:longint; a,b:array[1..100] of longint; begin writeln('nhap n:');readln(n); for i:= 1 to n do begin writeln('nhap phan tu a[,',i,']'); readln(a[i]); b[a[i]]:= b[a[i]]+1; end; i:=1; while i<=n do begin if b[a[i]]>1 then begin for j:= i to n do a[j]:= a[j+1]; n:= n-1; end else i:= i+1; end; writeln('cac phan tu con lai la:'); for i:= 1 to n do write(a[i],' '); end. vì bạn không nói còn chừa lại một số hay xóa hết nên mình chọn là xóa hết luôn nha và không có giới hạn phạm vi số nên cái này chỉ có phần dương thôi

• 

Reactions: 02-07-2019.

Kem Min

Học sinh chăm học

Thành viên 26 Tháng bảy 2016 91 177 144 23

nguyen tran thanh nha said: Mã: var i,n,j:longint; a,b:array[1..100] of longint; begin writeln('nhap n:');readln(n); for i:= 1 to n do begin writeln('nhap phan tu a[,',i,']'); readln(a[i]); b[a[i]]:= b[a[i]]+1; end; i:=1; while i<=n do begin if b[a[i]]>1 then begin for j:= i to n do a[j]:= a[j+1]; n:= n-1; end else i:= i+1; end; writeln('cac phan tu con lai la:'); for i:= 1 to n do write(a[i],' '); end. vì bạn không nói còn chừa lại một số hay xóa hết nên mình chọn là xóa hết luôn nha và không có giới hạn phạm vi số nên cái này chỉ có phần dương thôi Bấm để xem đầy đủ nội dung ...

- đây là thuật toán lùa bò vào chuồng -.- đúng không ta ? You must log in or register to reply here. Chia sẻ: Facebook Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

• Diễn đàn
• CÁC MÔN HỌC KHÁC
• Tin học - máy tính
• Tin học trong nhà trường
• Tin học cấp II

Top Bottom

• Vui lòng cài đặt tỷ lệ % hiển thị từ 85-90% ở trình duyệt trên máy tính để sử dụng diễn đàn được tốt hơn.