Bài tập turbo pascal

tải về 0.6 Mb.

trang	20/42
Chuyển đổi dữ liệu	27.02.2022
Kích	0.6 Mb.
	#51050

1 ... 16 17 18 19 20 21 22 23 ... 42

100 bài tập pascal
13234

Bài tập 5.4

b. Mã chương trình:

var M: array[1..100] of integer;

n,i,k: byte;

f,g: text;

begin

assign(f,’bai5_3.inp’); reset(f);

assign(g,’bai5_3.out’); rewrite(g);

readln(f,n);

for i:=1 to n do readln(f,M[i]);

readln(f,k);

for i:=k to n-1 do M[i]:=M[i+1];

for i:=1 to n-1 do write(g,M[i],', ');

close(f); close(g);

end.

c. Nhận xét: Với yêu cầu của bài tập trên chỉ cần kiểm tra chỉ số khi in (VD nếu i = 8 thì không in). Tuy nhiên trong khi sử dụng mảng để lưu dữ liệu giải toán, nhiều khi ta có nhu cầu xóa bớt hoặc chèn thêm phần tử vào dãy.
Bài tập 5.4

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.

a. Hướng dẫ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.

b. Mã chương trình:

var M: array[1..100] of integer;

i,n,k: integer;

f,g: text;

begin

assign(f,’bai5_4.inp’); reset(f);

assign(g,’bai5_4.out’); rewrite(g);

readln(f,n);

for i:=1 to n do readln(f,M[i]);

readln(f,k);

for i:=n+1 downto k+1 do M[i]:=M[i-1];

readln(f,M[k]);

for i:=1 to n+1 do write(g,M[i],', ');

close(f); close(g);

end.

tải về 0.6 Mb.

Chia sẻ với bạn bè của bạn:

1 ... 16 17 18 19 20 21 22 23 ... 42