بهینه کردن یک برنامه در پاسکال
سلام خدمت همه دوستان. من یک برنامه توی پاسکال نوشتم و می خوام نظر شما رو در موردش بدونم که میشه بهترش کرد یا نه؟
برنامه باید تعدادی عدد صحیح رو از کاربر بگیره و اونها رو بر طبق مقدار قدر مطلقشون از زیاد به کن مرتب کنه
اینم برنامه ای هست که من نوشتم:
کد:
uses crt;
var
A:array[1..100] of integer;
n,i,j:byte;
c:integer;
begin
clrscr;
write('Enter number of numbers:');
readln(n);
for i:=1 to n do begin
write('Enter number ',i,':');
readln(A[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do begin
if (A[i]>=0) and (A[j]>=0) then
if A[i]<A[j] then begin
c:=A[i];
A[i]:=A[j];
A[j]:=c;
end;
if (A[i]>=0) and (A[j]<0) then
if A[i]<-A[j] then begin
c:=A[i];
A[i]:=A[j];
A[j]:=c;
end;
if (A[i]<0) and (A[j]>=0) then
if -A[i]<A[j] then begin
c:=A[i];
A[i]:=A[j];
A[j]:=c;
end;
if (A[i]<0) and (A[j]<0) then
if -A[i]<-A[j] then begin
c:=A[i];
A[i]:=A[j];
A[j]:=c;
end;
end;
for i:=1 to n do
writeln(A[i]:5);
readkey;
end.
این رو هم عرض کنم که من برنامه رو نوشتم و درخواست نوشتن پروژه رو از کسی ندارم. فقط می خوام اگه برنامه مشکلی داره یا میشه یه جوری بهترش کرد. بهم بگن تا خودم انجام بدم.
