Có ai giải giùm em bài pascal này với

Go down

Có ai giải giùm em bài pascal này với

Bài gửi by gianinhtaitu on 13/3/2011, 10:33 pm

Nhập vào 1 mảng các số ngyên.
a, sắp xếp mảng theo thứ tự giảm dần.
b, Nhập vào 1 số nguyên từ bản phím, chèn số đó vào mảng sao cho mảng vẫn có thứ tự giảm dần
( Không được sắp xếp lại );
avatar
gianinhtaitu
Thành viên mới
Thành viên mới

Nam Ngày sinh : 04/04/1996
Tuổi : 22
Ngày đăng ký : 01/02/2011

Về Đầu Trang Go down

Re: Có ai giải giùm em bài pascal này với

Bài gửi by nbni on 14/3/2011, 4:00 pm

var a:array[1..100] of longint;
i,n,j,m,vt:integer;
tam:longint;
begin
write('nhap n='); 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
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do write(a[i],' ');
writeln;
write('nhap m='); readln(m);
if m < a[n] then a[n+1]:=m
else
begin
for i:=1 to n do
if a[i] < m then
begin
vt:=i;
break;
end;
for i:=n downto vt do a[i+1]:=a[i];
a[vt]:=m;
end;
for i:=1 to n+1 do write(a[i],' ');
readln
end.
avatar
nbni
Thành viên mới
Thành viên mới

Nữ Ngày sinh : 12/08/1995
Tuổi : 23
Ngày đăng ký : 18/02/2011

Về Đầu Trang Go down

Re: Có ai giải giùm em bài pascal này với

Bài gửi by nbni on 14/3/2011, 4:13 pm

nếu thấy hay thì + cho mình nhé hihihihi ^^!
avatar
nbni
Thành viên mới
Thành viên mới

Nữ Ngày sinh : 12/08/1995
Tuổi : 23
Ngày đăng ký : 18/02/2011

Về Đầu Trang Go down

Re: Có ai giải giùm em bài pascal này với

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết