Bài tập mảng 4
Tue Jun 25, 2024 10:25 am
Bài tập:Sinh ngẫu nhiên n số nguyên. Sắp xếp các số này theo thứ tự tăng dần. Nhập vào một số nguyên x bất kì. Hãy chen số x vào dãy và luôn thỏa mãn là dãy tăng dần. Chỉ ra vị trí chèn.
GIẢI
GIẢI
- Code:
uses crt;
var a:array[1..100] of integer;
n,i,j,x,k,vt:integer;
procedure sx(var a,b:integer);
var tam:integer;
begin
tam:=a;
a:=b;
b:=tam;
end;
begin
clrscr;
write('Ban muon nhap bao nhiu so:');readln(n);
randomize;
for i:=1 to n do a[i]:=random(20);
for i:=1 to n do write(a[i]:3);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then sx(a[i],a[j]);
writeln('Day so sau khi xep tang dan:');
for i:=1 to n do write(a[i]:3);
writeln;
write('nhap x:');readln(x);
k:=x;
for j:=n downto 1 do
if k<a[j] then vt:=j
else if k>a[n] then vt:=n+1;
for i:=1 to n do
if x<a[i] then sx(x,a[i]);
a[n+1]:=k;
writeln('Day so sau khi chen ',k,' vao:');
for i:=1 to n+1 do write(a[i]:3);
writeln;
writeln('Vi tri chen la:',vt);
readln;
end.
![Bài tập mảng 4 1f636](https://2img.net/i/fa/twemoji/16x16/1f636.png)
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|