دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

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

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

مُساهمة  ali 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 مرات (السبب : تنسيق الموضوع كي يبدو في شكل لائق)

ali
مبرمج مجتهد

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

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

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

- مواضيع مماثلة

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