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

Xem chủ đề cũ hơn Xem chủ đề mới hơn 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 : 21
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 : 22
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 : 22
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

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


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