ABA


"אני צריך שתבדקו לי תכנית בפסקל שבניתי על מיון מערך"
גירסת הדפסה        
קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #11205 מנהל    סגן המנהל    מפקח   Winner    צל"ש   מומחה  
אשכול מספר 11205
hbk3

   21:04   13.10.04   
אל הפורום  
  אני צריך שתבדקו לי תכנית בפסקל שבניתי על מיון מערך  
 
   כי אין לי פסקל במחשב ואין לי כוח להוריד
אז מישהו יכול לבדוק אם זה עובד??


Program Myun;
uses wincrt;
const
n=10;
var
a,b:array{1..n} of integer;
i,j,minj,min:integer;
begin
For i:=1 to n do
readln(a{i});


For i:=1 to n do
begin
min:=maxint-1;
For j:=1 to n do
if a{j}<min then
begin
min:=a{j};
minj:=j;
end;

b{i}:=min;
a{minj}:=maxint;
end;

For i:=1 to n do
write(b{i},' ');
end.


                                שתף        
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

  האשכול     מחבר     תאריך כתיבה     מספר  
  בסדר גמור liranr 14.10.04 08:42 1
     אתה יכול להראות לי את הדרך הכי יעילה? hbk3 14.10.04 23:06 2

       
liranr

   08:42   14.10.04   
אל הפורום  
  1. בסדר גמור  
בתגובה להודעה מספר 0
 
   אולי לא הכי יעיל בעולם, אבל עובד


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
hbk3

   23:06   14.10.04   
אל הפורום  
  2. אתה יכול להראות לי את הדרך הכי יעילה?  
בתגובה להודעה מספר 1
 
   בבקשה


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

תגובה מהירה  למכתב מספר: 
 
___________________________________________________________________

___________________________________________________________________
למנהלים:  נעל | תייק בארכיון | מחק | העבר לפורום אחר | מחק תגובות | עגן אשכול
       



© כל הזכויות שמורות ל-רוטר.נט בע"מ rotter.net