[تمرين] ترتيب مجموعه قيم تصاعديا

[TF6M]

السلام عليكم و رحمة الله و بركاته

تمرين (لمهندسي صف XX):

طبيعة هده القيم عبارة Record بها حقلين addr , value .

كل قيمة أو عنصر له عنوان خاص به (addr) و قيمة خاصة (value) .

شروط الترتيب :

- قاعدة min / max غير مسموح بها .
- نقارن value العنصر الأول بالدي قبله إدا كان أصغر يتم الإستبدال في موضع العنصرين ككل
(value,addr) .
- لا يسمح بإنشاء أكثر من جدول واحد (Array) .

بالتوفيق ,,

[alouma]

نظراً لعدم ورود أي إجابة عن هذا السؤال
أقدم لكم الحل بلغة باسكال كمحاولة مني
عساه يكون صحيحاً

program ex5;
uses crt;
var t:array[1..4] of integer;
i,s:integer;
begin
clrscr;
for i:=1 to 4 do
readln(t[i]);
writeln(' ---------- ');
s:=t[1];
for i:=2 to 4 do
if t[i]>s then
s:=t[i];
write(s);
readln;
end.

[cargem]

كيف يكون الترتيب ؟
1-عددي
2-حرفي
-اول محرف
-ترتيب افقي وعمودي
عمودي في القائمة كاملة
وافقي في نفس الخلية
وعن طريق المقارنة يتم الترتيب

الحل
1- نعمل Record بالحقلين
2- تحميلهم بالقائمة العشوائية
3- نبدء المقارنه بأول محرف
فأذا كان هناك تشابه نبدأ بالمقارنة الافقية

نحتاج دالتين وتابع
VerticalArrange
HirozentalArrage
Button1click

وبهذا ننتهي من التمرين
تحياتي