Chèn thêm phần tử vào dãy số với Pascal

Lập trình Pascal

Bài toán. Viết chương trình cho phép nhập một dãy gồm n số nguyên. Nhập thêm một số và chèn thêm vào dãy sau phần tử k.

Thuật toán:

– Dời các phần tử từ vị trí k về sau một bước.

– Nhập giá trị cần chèn vào vị trí k.

Code tham khảo:

Program chenPhanTu;
uses crt;
var M: array[1..100] of integer;
    i,n,k:integer;
begin
     clrscr;
     write('Nhap : ');readln(n);
     for i:=1 to n do
     begin
         write('M[',i,']='); readln(M[i]);
     end;
     write('Vi tri chen: ');readln(k);
     for i:=n+1 downto k+1 do M[i]:=M[i-1];
     write('Nhap so can chen: '); readln(M[k]);
     for i:=1 to n+1 do write(M[i],', ');
     readln
end.

One thought on “Chèn thêm phần tử vào dãy số với Pascal

  1. lista escape room says:

    hello there and thank you for your info – I have definitely picked up
    anything new from right here. I did however expertise several technical issues
    using this website, as I experienced to reload
    the website many times previous to I could get it to load correctly.
    I had been wondering if your web hosting is OK?

    Not that I am complaining, but sluggish loading instances times will often affect your placement in google and could damage your high quality
    score if advertising and marketing with Adwords.
    Well I’m adding this RSS to my e-mail and could
    look out for much more of your respective fascinating content.
    Ensure that you update this again soon.. Lista escape roomów

Trả lời

Email của bạn sẽ không được hiển thị công khai. Các trường bắt buộc được đánh dấu *