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

[تمرين] ترتيب مجموعه قيم تصاعديا - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : تمارين دلفي وحلول (https://delphi4arab.net/forum/forumdisplay.php?fid=16)
+--- الموضوع : [تمرين] ترتيب مجموعه قيم تصاعديا (/showthread.php?tid=1618)

[تمرين] ترتيب مجموعه قيم تصاعديا - TF6M - 06-02-2010

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

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

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

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

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

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

بالتوفيق ,,

[تمرين] ترتيب مجموعه قيم تصاعديا - alouma - 30-11-2011

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

PHP كود :
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 - 30-11-2011

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

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

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

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

[تمرين] ترتيب مجموعه قيم تصاعديا - laidm88 - 21-04-2012

السلام عليكم ورحمة الله
انا مبتدأ في البرمجة بلغة الدلفي هل من الممكن وضع اجابة عن
سؤال ترتيب القيم عددية
وبارك الله فيكم

[تمرين] ترتيب مجموعه قيم تصاعديا - King SofT - 01-05-2012

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

انا جاوبت على التمرين بلغة الباسكال مع افتراض
ان القيم هي اعداد صحيحة

PHP كود :
PROGRAM ordination;
type
Rec=Record addr:string[10]; value:integer; end;
var T:array[1..10]of Rec;
    min,i,j,Z:integer;a:Shortstring;
begin
 //---- la romlassage ---
For i:=1 to 10 do
    begin
    Writeln('addr de T',i);
   Readln(T[i].addr);
    Writeln('value de T',i);
   Readln(T[i].value);
   end;
For i:=1 to 10 do
    for j:= 1 to 10 do
        if T[j].value > T[i].value then
        begin
           Z:=T[i].value;
           a:=T[i].addr;
           T[i]:= T[j];
           T[j].value:=Z;
           T[j].addr:=a;
        end;
        //-------l affichage -----------
     for i:=1 to 10 do
         writeln('Addr= ',T[i].Addr,' value= ',T[i].value);
readln;
readln;

end. 

بالتوفيق

[تمرين] ترتيب مجموعه قيم تصاعديا - sadwolf - 21-03-2013

السلام عليكم

ممكن شرح خصوصا هنا

PHP كود :
if T[j].value > T[i].value then 

كأني اقول اذا كان (تي 1 اكبر من تي 1) ؟ وهما متساويين
وهنا نفس الوضع

PHP كود :
Z:=T[i].value;
           a:=T[i].addr;
           T[i]:= T[j];
           T[j].value:=Z;
           T[j].addr:=a; 

[تمرين] ترتيب مجموعه قيم تصاعديا - King SofT - 28-03-2013

sadwolf كتب :
PHP كود :
if T[j].value > T[i].value then
كأني اقول اذا كان (تي 1 اكبر من تي 1) ؟ وهما متساويين
[/PHP]

[COLOR="DarkGreen"]
وعليكم السلام اخي
اولا ان القيمتين ليستا متاويتان لان الاولى T[iiiiii] والثانية T[jjjjj]

ساعطيك شرح مبسط عن طريقة الترتيب

في كل مرة نثبت خانة من الخانات بالمتغير i ثم نقارنها مع باقي خانات الجدول الموالية لها
فعند وجود قيمة اصغر منها (اي الخانة i ) نقوم بايتبدالهما ببعض وذالك بهذا الجزء:[/COLOR]

كود :
begin
           Z:=T[i].value;
           a:=T[i].addr;
           T[i]:= T[j];
           T[j].value:=Z;
           T[j].addr:=a;
        end;

[COLOR="DarkGreen"]
بالتوفيق [/COLOR]

[تمرين] ترتيب مجموعه قيم تصاعديا - محمد عبد العزيز - 31-03-2013

sadwolf كتب :
PHP كود :
if t[j].value > t[i].value then
كأني اقول اذا كان (تي 1 اكبر من تي 1) ؟ وهما متساويين

صحيح، هما متساويتين عند البداية وهذا خطا من صاحب الحل مع ذلك يمكن تجاهله لانه لا يؤثر على النتيجة