ترتيب جدول تصاعديا

اذهب الى الأسفل

ترتيب جدول تصاعديا

مُساهمة  ali1 في 1/3/2014, 1:32 pm

ترتيب جدول تصاعديا

بسم الله الرحمن الرحيم

ترتيب جدول تصاعديا

الكود:

program tri_table1;
const d = 10;
type ttable = array [1..d] of integer;

var table: ttable;
    i, j : integer;
    x    : integer;

begin
  writeln ('donnez les elements' );
  for i:=1 to d do
   readln (table [i]);

  writeln('la liste trie ');

 for i := 1 to d - 1 do
  for j := 1 + i to d do
  if table[j] < table[i] then
   begin
     x := table[i];
     table[i] := table[j] ;
     table[j] := x;
   end;

  for i := 1 to d do
    writeln (table[i]);

    readln;

end.



عدل سابقا من قبل mah11 في 6/11/2015, 10:29 am عدل 1 مرات (السبب : تنسيق الموضوع كي يبدو في شكل لائق)

ali1
مبرمج مجتهد

عدد المساهمات : 860
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى