سؤال في لغة باسكال مهم جدا بالنسبة لي

يمكنك استخدام مصفوفة من نوع string

ويتم الادخال من العنصر 0 الي الرقم الاخير و تتم القرأة من العنصر الاخير الي العنصر 0 للمصفوفة.

وممكن استخدام مصفوفة دينماكية اذا كان عدد الاسطر غير معروف

procedure NombreRecords;
var
F,TEMP:TextFile;
i,j,k:integer;
ligne:string;
begin
//1
assignfile(f,'c:\text.txt');
reset(f);
i:=0;
while not(eof(f) do
begin
readln(f,ligne);
inc(i);
end;
close(f);
//2 et 3
assignfile(f,'c:\text.txt');
assignfile(TEMP,'c:\TEMP.txt');
reset(f);
REWRITE(temp);
j:=i;
while j>0 do
begin
 k:=0;
 reset(f);
 while not(eof(f)and (k<j) do
 begin
 readln(f,ligne);
 inc(k);
 end;
 writeln(temp,ligne);
 dec(j);
end;
//imprimer temp.txt
close(f);
close(temp);
end;

شكرا يا إخوان على الرد السريع وجعله الله في ميزان حسناتكم وزادكم الله علما وحلما

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

و شكرا

ياشباب برئيكم إيش أفضل كومبايلر للباسكال

وهل راح يختلف عن الدلفي بكثير

من ناحية الوحدات اللى يستخدمها

إستخدم فري باسكال، فهو اقرب كومبيلر للدلفي، وهناك تقريبا دعم ممتاز لمكتبات دلفي الاساسية ولكن ليس ل VCL

صدرت قبل اسابيع النسخة الثانية منه

http://www.freepascal.org

الميزة انك تستطيع البرمجة لويندوز ولينكس وماكنتوش ويوينكس، وايضا لمعالجات 64

ممتاز

طيب محمد لو رحت لموقع http://www.freepascal.org/download.html

واخترت

http://sourceforge.net/project/showfiles.php?group_id=2174

وحملت Win32 بالأخير

هل انا بالطريق الصحيح للمترجم هذا

نعم اخي، هذه هي النسخة الصحيحة، اخبرنا ماذا يحصل لك بعد تحميلها

كل شي تمام على مايبدووو

أحاول اكتب برامج خفيفه واتخطى مشاكل عدم العثور على وحده معينه او كود مايمكن استيعابه

لكن الحق يقال

الدلفي ريحتنا كثير :rolleyes: