Chèn Phần Tử, Xóa Phần Tử Trong Mảng - Em Yêu Tin Học

Trang chủ » Chèn Phần Tử Vào Mảng 1 Chiều Trong Pascal » Chèn Phần Tử, Xóa Phần Tử Trong Mảng - Em Yêu Tin Học

Có thể bạn quan tâm

Close Menu Facebook Pinterest YouTube LinkedIn Flickr Tiêu điểm :
  • Sự khác biệt giữa Bằng sáng chế và Bản quyền
  • Ghép nhiều file PowerPoint thành một
  • Tạo trắc nghiệm Google Form từ Word
  • Hướng Dẫn Tạo Google Form Từ Google Sheets
  • Chia Sẻ Giáo Án Môn Tin Học và Công Nghệ Lớp 5
  • KHBD – Giáo Án, Sách GV – Tin Học 5 CTST
  • ÔN TẬP CÔNG NGHỆ LỚP 4 – 2024
  • Trắc nghiệm Lăng Ông Bà Chiểu
Facebook YouTube Pinterest Flickr LinkedIn X (Twitter) Instagram EM YÊU TIN HỌC Em yêu tin học EM YÊU TIN HỌC Bài tập Pascal Chèn phần tử, xóa phần tử trong mảngĐình TrọngBy Đình Trọng11 Tháng năm, 2016Updated:30 Tháng mười hai, 201630 Bình luận2 Mins Read Facebook Twitter Pinterest LinkedIn Tumblr Email Thêm dòng, cột vào mảng hai chiều. Thêm dòng, cột vào mảng hai chiều.

Viết chương trình nhập mảng gồm n (n<=100) phần tử rồi chèn vào một số bất kỳ vào một vị trí nào đó trong mảng, số cần chèn và vị trí chèn nhập từ bàn phím.

Program Chen; Uses crt; Var i,spt, so,vitri: Integer; A: Array[1..100] Of Integer; Begin Clrscr; Writeln(' + CHEN MOT SO VAO MANG +'); Writeln('-------------------------------'); Write('-Co bao nhieu phan tu-: '); Readln(spt); For i:=1 To spt Do Begin Write('-Phan tu A[',i,']= '); Readln(a[i]); End; Writeln; Writeln('--MANG TRUOC KHI CHEN--'); For i:=1 To spt Do Write(a[i]: 6); Writeln; Write('-Can che so: '); Readln(so); Write('-Vao vi tri: '); Readln(vitri); For i:=spt+1 Downto Vitri+1 Do Writeln; a[i]:=a[i-1]; a[vitri]:=so; spt:=spt+ 1; Writeln('MANG SAU KHI CHEN'); Readln; For i:=1 To spt Do Write(a[i]: 6); End.

Viết chương trình nhập mảng gồm n (n<=100)phần tử rồi xóa đi một phần tử nào đó có vị trí nhập từ bàn phím

Program Xoa_Pt; Var i,spt,vitri: Integer; a: Array[1..100] Of Integer; Begin Writeln('--XOA PHAN TU TRONG MANG--'); Writeln('------------------------------------------------------'); Writeln; Write('-Mang co bo nhieu phan tu- '); Readln(spt); For i:=1 To spt Do Begin Write('-Phan tu A[',i: 2,']= '); Readln(A[i]); End; Writeln; Writeln(' --MANG TRUOC KHI XOA--'); Writeln('--------------------------------------------------------'); Writeln; For i:=1 To spt Do Write(a[i]: 6); Writeln; Writeln; Write('-Vi tri muon xoa: '); Readln(vitri); For i:=vitri to spt - 1 Do a[i]:=a[i+1]; spt:=spt - 1; Writeln; Writeln(' MANG SAU KHI XOA'); Writeln('- -----------------------------------'); Writeln; For i:=1 to spt Do Write(a[i]: 6); Writeln; Writeln; Writeln(' Bam phim de ket thuc '); Readln End.

Viết chương trình nhập mảng gồm n (n<=100)phần tử rồi xóa đi những phần tử trùng nhau trong mảng và in ra màn hình phần tử sau khi đã bỏ bớt.

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[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 de ket thuc '); Readln End. 4.7 15 votes Đánh giá bài viết chèn phần tử trùng xóa Share. Facebook Twitter Pinterest LinkedIn Tumblr Email Previous ArticleTìm vị trí, sắp xếp mảng, tính số lần xuất hiện Next Article Pascal tính diện tích hình thang Đình Trọng
  • Website
  • Facebook

٩(●̮̮̃•̃)۶ Không có lẽ yêu trên đời quá khó ٩(͡๏̯͡๏)۶ Mà thôi yêu cũng chẳng dễ chút nào! ٩(×̯×)۶

Related Posts

Tin học trẻ Tuy Phong – Bình Thuận 2024

Chuyển SB3 thành ứng dụng Windows .exe (sb3 to exe)

Gợi ý giải đề thi THT cấp quận – HCM 2022

Subscribe Thông báo khi có bình luận mới khi trả lời bình luận của tôi guest Label [+] Name* Email* WebSite URL guest Label [+] Name* Email* WebSite URL 30 Góp ý oldest newest most voted Inline Feedbacks View all comments Quý Quý 7 years ago

Thầy có thể gợi ý cho em muốn xóa phần tử đầu tiên hoặc cuối cung cũng như thêm phần tử vào đầu hoặc cuối danh sách dc không ạ?

0 Trả lời Đình Trọng Đình Trọng Author Reply to  Quý 7 years ago

Khi thêm một phần tử nào đó thì các phần tử ở sau nó phải lùi lại 1 vị trí ví dụ ta có dãy 1 2 3 bây giờ muốn thêm số 0 vào đầu thì phải mang a[3] là số 3 về a[4] rồi a[2] về vị trí 3 … cuối cùng mới gán a[1]:=0 vào, thêm thì làm ngược lại. Thêm xay xóa phần tử ở cuối thì đơn giản là chỉ cần thay đổi giá trị của n phần tử ví dụ mảng 5 phần tử nếu xóa phần tử cuối thì chỉ cần thay đổi… Read more »

5 Trả lời Quý Quý Reply to  Đình Trọng 7 years ago

Em cảm ơn ạ

1 Trả lời Quý Quý Reply to  Đình Trọng 7 years ago

Thầy ơi cái code chèn nó bị lỗi ra số 0 phía sau

-2 Trả lời Đình Trọng Đình Trọng Author Reply to  Quý 7 years ago

Dòng 20 chưa đúng bạn bỏ Writeln đi là đc 🙂 Chương trình này vẫn chưa hoàn thiện, ví dụ bạn nhập mảng có 3 pt nhưng khi hỏi chèn vào đâu nhập vào số 5 vẫn đc và nó chạy tầm bậy 😀

0 Trả lời Nguyễn Sỹ Tú Nguyễn Sỹ Tú 7 years ago

A[i]: 6 là gì v Thầy ở dòng 19 ấy ạ

-1 Trả lời Đình Trọng Đình Trọng Author Reply to  Nguyễn Sỹ Tú 7 years ago

:6 có nghĩa là số đó chiếm 6 cột trên màn hình, ngoài ra còn cách khác ví dụ :5:2 nghĩa là số viết ra màn hình chiếm 5 cột trong đó dành cho phần thập phân 2 cột. Ví dụ 3.142567 viết ra sẽ là 3.14

1 Trả lời Nguyễn Sỹ Tú Nguyễn Sỹ Tú Reply to  Đình Trọng 7 years ago

em cảm ơn ạ

0 Trả lời Nguyễn Sỹ Tú Nguyễn Sỹ Tú Reply to  Nguyễn Sỹ Tú 7 years ago

Thầy onl đến mấy giờ v ạ?

0 Trả lời Đình Trọng Đình Trọng Author Reply to  Nguyễn Sỹ Tú 7 years ago

Không cố định thời gian, nếu bạn muốn hỏi gì thì hỏi trực tiếp trên fanpage có nhiều thầy cô khác sẽ giúp đỡ bạn, quản trị website thì chỉ có vài người mà lại không online thường xuyên.

1 Trả lời Tân Tân 7 years ago

em thắc mắc a[i]:=a[i+1] là khi xóa, a[i]:=a[i-1] là khi thêm. Em thắc mắc tại sao phải như vậy ạ.

2 Trả lời Đình Trọng Đình Trọng Author Reply to  Tân 7 years ago

Vòng for đếm lùi nên nó như vậy, bạn có thể viết ra một mảng khoảng 10 phần tử rồi thao tác bằng tay sẽ hiểu ngay. Việc thực hiện lệnh gắn là lúc nó di chuyển các phân tử.

1 Trả lời Tân Tân Reply to  Đình Trọng 7 years ago

em cảm ơn ạ, đã hiểu r ạ!

2 Trả lời nhk nhk 7 years ago

Thưa thầy, câu lệnh dòng 20,21 vẫn chưa hiểu lắm thầy ạ, trong phần xóa phần tử ấy thây, thầy có thể giảng giúp em không ạ

2 Trả lời Đình Trọng Đình Trọng Author Reply to  nhk 7 years ago

Chào bạn tạm thời bạn có thể hình dung như thế này, nó lấy một phần tử trong mảng rồi đi so sánh với các phần tử khác(while dòng 20) nếu thấy một phần tử nào giống với nó (trùng) dòng 22, thì ngay tại vị trí đó nó sẽ kéo các phần tử ở phía sau đè vào chỗ trùng.

1 Trả lời nhk nhk Reply to  Đình Trọng 7 years ago

xin lỗi thầy cho em hỏi khai báo mảng trực tiếp và gián tiếp có gì khác ạ, và ứng dụng thế nào để lập trình hiệu quả và tối ưu nhất ạ

2 Trả lời Đình Trọng Đình Trọng Author Reply to  nhk 7 years ago

Chào bạn 2 cách khai bao nó không khác gì nhau cả, tuy nhiên trong các chương trình lớn thì ta nên sử dụng kiểu khai báo trung gian để sau này chỉnh sửa thì chỉ cần chỉnh sửa ở phần đầu là được. Về phần câu hỏi sau thì chỉ có thời gian và code nhiều bạn mới nhận ra thế nào là tối ưu thôi, bạn cũng nên xem qua các sách viết về giải thuật để biết thêm các cách giải quyết vấn đề bằng nhiều cách. Cái gọi là tối ưu nó thay đổi qua thời… Read more »

2 Trả lời nhk nhk Reply to  Đình Trọng 6 years ago

cảm ơn thầy ạ

3 Trả lời sơn tùng sơn tùng 6 years ago

thầy bị thiếu readln của cái chèn số đấy ạ

1 Trả lời Đình Trọng Đình Trọng Author Reply to  sơn tùng 6 years ago

lý do là nó không hiện thị đủ code, chúng tôi sẽ sửa lại cho hoàn thiện, cám ơn bạn rất nhiều. 😘

1 Trả lời sơn tùng sơn tùng 6 years ago

thật đấy ạ

1 Trả lời Đình Trọng Đình Trọng Author Reply to  sơn tùng 6 years ago

🙂 nếu như cái readln ở cuối thì không cần cũng được, nếu có thì nó dừng lại để cho mình xem kết quả rồi khi bấm enter thì nó mới kết thúc. Dù sao thì cũng nên có readln trước en. để tiện xem kết quả, một lần nữa cám ơn bạn nhé .

1 Trả lời Nothing More Information Nothing More Information 6 years ago

You are intelligent !

1 Trả lời Huỳnh Phương Huỳnh Phương 6 years ago

Tại sao lại có a[k] vậy ạ??

1 Trả lời HTPhuong HTPhuong 6 years ago

Tại sao có a[k] v thầy???

1 Trả lời Đình Trọng Đình Trọng Author Reply to  HTPhuong 6 years ago

Chỗ đó nó xử lý trong mảng có số trùng nhau

1 Trả lời tuong vy tuong vy 6 years ago

th ơi giải giúp e bài này ạ ; viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử và một số nguyên k , yêu cầu chèn số tự nhiên k vào vị trí bất kì của dãy số và in dãy mới ra màn hình , vị trí cần chèn là một số tự nhiên nhập từ bàn phím

1 Trả lời Đình Trọng Đình Trọng Author Reply to  tuong vy 6 years ago

Yêu cầu của bạn đã có bài giải tương tự ở trên rồi mà?

2 Trả lời Đỗ thành Đô Đỗ thành Đô 5 years ago

Thầy ơi cho e hỏi, muốn chèn thêm hàng hoặc cột vào mảng 2 chiều như thế nào ạ, mảng ma trận m*n

1 Trả lời Đình Trọng Đình Trọng Author Reply to  Đỗ thành Đô 5 years ago

Bạn tham khảo ở đây

2 Trả lời
  • Phổ Biến
  • Bài Viết Mới
24 Tháng tư, 2016

Một số lệnh căn bản trong MSWLogo.

24 Tháng tư, 2016

Lệnh rẽ nhánh trong MSWLogo.

31 Tháng bảy, 2016

MSWLogo Vẽ cờ đỏ sao vàng – Quốc kỳ Việt Nam

8 Tháng sáu, 2016

MSWLogo vẽ ngôi sao.

5 Tháng Một, 2018

Hướng dẫn giải một số bài tập Scratch.

2 Tháng chín, 2016

Giải đề thi tài năng trẻ tin học toàn quốc 2016

17 Tháng chín, 2024

Sự khác biệt giữa Bằng sáng chế và Bản quyền

15 Tháng chín, 2024

Ghép nhiều file PowerPoint thành một

2 Tháng chín, 2024

Tạo trắc nghiệm Google Form từ Word

1 Tháng chín, 2024

Hướng Dẫn Tạo Google Form Từ Google Sheets

29 Tháng tám, 2024

Chia Sẻ Giáo Án Môn Tin Học và Công Nghệ Lớp 5

24 Tháng bảy, 2024

KHBD – Giáo Án, Sách GV – Tin Học 5 CTST

Bình luận gần đây
  • Vô Danh trong IC3 Control Panel
  • Đình Trọng trong Lập trình Scratch
  • Kn trong Lập trình Scratch
  • Đình Trọng trong Lập trình Scratch
  • Trương Nhã Kỳ trong Lập trình Scratch
Các bài trắc nghiệm

Trắc nghiệm lập trình Scratch Trắc nghiệm lập trình MSWLogo Trắc nghiệm tin học văn phòng Trắc nghiệm ôn tập IC3 P1 Trắc nghiệm ôn tập IC3 P2 Living Online Spark Test LTTH cùng IC3 Spark Test IC3 GS5 -Computing Fundamentals IC3 GS6 -Level 1 IC3 GS6 -Level 2 (7,8) Module 4 - CNTT Tiểu học

Videos hướng dẫn
subscribeTheo dõi kênh Youtube« Prev1 / 16Next »loadingplay2 1 practice tasksplayLập trình với KudoplayPowerPoint - Chuyển động theo đường vẽ« Prev1 / 16Next »loading Submit

Type above and press Enter to search. Press Esc to cancel.

300Hãy để lại bình luận của bạn nhé!x()x| Trả lờiInsert

Từ khóa » Chèn Phần Tử Vào Mảng 1 Chiều Trong Pascal