ترتيب جدول تصاعديا
صفحة 1 من اصل 1
ترتيب جدول تصاعديا
ترتيب جدول تصاعديا
بسم الله الرحمن الرحيم
ترتيب جدول تصاعديا
بسم الله الرحمن الرحيم
ترتيب جدول تصاعديا
- الكود:
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
مواضيع مماثلة
» ترتيب جدول تنازليا
» معرفة عدد تكرارات رقمية داخل جدول
» كيفية انشاء جدول في دلفي
» كيفية اضافة الى جدول من نوع mysql
» كيف أجعل جدول او مصفوفة غير محددة
» معرفة عدد تكرارات رقمية داخل جدول
» كيفية انشاء جدول في دلفي
» كيفية اضافة الى جدول من نوع mysql
» كيف أجعل جدول او مصفوفة غير محددة
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى