ترتيب جدول تنازليا
2 مشترك
صفحة 1 من اصل 1
ترتيب جدول تنازليا
ترتيب جدول تنازليا
بسم الله الرحمن الرحيم
بسم الله الرحمن الرحيم
- الكود:
program tri_table2;
const d = 10;
type ttable = array [1..d] of integer;
var table: ttable;
i, j : integer;
med : 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
med := table[i];
table[i] := table[j] ;
table[j] := med;
end;
for i := 1 to d do
writeln (table[i]);
readln;
end.
عدل سابقا من قبل mah11 في 6/11/2015, 10:22 am عدل 1 مرات (السبب : تنسيق الموضوع كي يبدو في شكل لائق)
ali- مبرمج مجتهد
- عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013
رد: ترتيب جدول تنازليا
بسم الله الرحمن الرحيم
مشكور على الموضوع و تارك الله فيك
مشكور على الموضوع و تارك الله فيك
Admin- مبتدئ في البرمجة
- عدد المساهمات : 47
تاريخ التسجيل : 21/03/2014
مواضيع مماثلة
» ترتيب جدول تصاعديا
» معرفة عدد تكرارات رقمية داخل جدول
» كيفية انشاء جدول في دلفي
» كيفية اضافة الى جدول من نوع mysql
» كيف أجعل جدول او مصفوفة غير محددة
» معرفة عدد تكرارات رقمية داخل جدول
» كيفية انشاء جدول في دلفي
» كيفية اضافة الى جدول من نوع mysql
» كيف أجعل جدول او مصفوفة غير محددة
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى