Diễn Đàn Pascal
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

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

2 posters

Go down

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

Bài gửi by gianinhtaitu 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 );
gianinhtaitu
gianinhtaitu
Thành viên mới
Thành viên mới

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

Về Đầu Trang Go down

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

Bài gửi by nbni 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.
nbni
nbni
Thành viên mới
Thành viên mới

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

Về Đầu Trang Go down

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

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

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

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

Về Đầu Trang Go down

Có ai giải giùm em bài pascal này với Empty 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

- Similar topics

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