سؤال بسيط جدا عن حل مسئله

والله مش فاهم حاجه لو ممكن توضح أكثر يعني إيه مصفوفه

و انا ايضا لم افهم شيئ .........ولكنهم يعربون لغات البرمجه على ما اعتقد

مازلت انتظر الاجابه.

إن مصفوفة أحادية البعد هي في اللغة البرمجية شعاع ولكن كما في الكلية لدينا ينادونها بمصفوفة أحادية البعد على كل الأحوال

يتم التصريح عنها في قسم TYPE

MYVECTOR =array [1.. N] of integer;

أما للتصريح عن متحول من هذا النمط

EXAMPLE:MYVECTRO;

حيث N هو ثابت بعد المصفوفة

for i:=1 to N do
 EXAMPLE:=0;

هذه الحلقة تقوم بتصفير المصفوفة

for i:=1 to N do
READLN (EXAMPLE);

أما هذه الحلقة فتقوم بقراءة عناصر المصفوفة

   for i:=1 to n do
     for j:= i to n do
     if EXAMPLE>EXAMPLE[j] then
       begin
         max:=EXAMPLE;
         EXAMPLE:=EXAMPLE[j];
         EXAMPLE[j]:=max;
      end;

تدعى هذه الخوارزمية خوارزمية الفرز الفقاعي وهناك طرق كثيرة لتحقيحها ولكنها بطيئة ومكلفة ولكنها أبسط خوارزمية فرز وقد درسناها في السنة الأولى عندما أعطونا درس المصفوفات

for i:=1 to N do
WRITWLN(EXAMPLE);

وهذه الحلقة هي من أجل الطباعة

أما بالنسبة لتحويلها إلى إجرائيات PROCEDURE فيتم ذلك عبر كتابة رأس إجرائية وتسميهل مثلاً READVECTOR وتمرر لها ARRAY من النمط MYVECTOR ومسبوقة بكلمة VAR وذلك يعني أنه سوف يتم إجراء تعديلات عليها

أما الطباعة فلا تحتاج إلى VAR ومهمتك هي الآن كتابة الإجرائيات مستفيداً من الشيفرة المكتوبة أعلاه وأسأل الله التوفيق لي ولك

والسلام عليكم

جزاك الله عني خيرا على هذه الاجابه الرائعه في الشرح

السؤال الان هل اذا قمت بنسخ و لصق الاكواد هذه الى باسكال سوف تعمل كما ورد في السؤال عن المسئله.

و شكرا جزيلا لك.

أعتذر أخ عامر عن تأخري في الرد وذلك لسوء ظروفي في هذه الفترة ..

لكن الأخوان كفو ووفو .

الكود الكامل الذي وضعه الاخ Toshiba_laptop هو :

program Project2;



const N = 10;
type
  MYVECTOR = array[1..N] of integer;

var
  EXAMPLE: MYVECTOR;
  i, j, max: integer;
begin

// إدخال المصفوفه
  for i := 1 to N do
  begin
    writeln('Enter ', i, ' of ', N);
    readln(EXAMPLE);
  end;


// ترتيب المصفوفه 
// بخوارزميه الترتيب الفقاعي
  for i := 1 to n do
    for j := i to n do
      if EXAMPLE > EXAMPLE[j] then
      begin
        max := EXAMPLE;
        EXAMPLE := EXAMPLE[j];
        EXAMPLE[j] := max;
      end;




// طباعه المصفوفه
  writeln;   
  for i := 1 to N do
    Write(EXAMPLE,' ');

readln;
end.

اشكرك جزيل الشكر