حمل turbo pascal 7 برابط مباشر وبدون تثبيت ومع الشرح

**sliman** · 2013-09-08, 16:24

1- حمل TURBO PASCAL 7 بالضغط على الرابط :

2- بعد التحميل ستجد الملف مضغوط قم بفك الضغط .

3- بعدها سوف تظهر 6 ملفات Dossier

و 5 ملفات Fichier .

4- من ضمن 6 ملفات Dossier يوجد ملف بعنوان BIN.

5- قم بفتح الملف BIN.

6- ابحث وستجد برنامج TURBO .

7- قم بفتح البرنامج وابدا البرمجة.

وهنا اضع في متناولكم برنامج للبحث عن العدد الاكبر بين عددين صحيحين لتجريب البرنامج :

program max;

uses crt;

var x,y,max:inetger;

begin

clrscr;

readln (x,y);

if x<y then max :=y

else max:=y;

write (max);

readkey;

end.

بعد الانتهاء من كنابة البرنامج قم بـ :

1- الضغط على compile ستظهر لائحة قم باختيار compile من تلك اللائحة.

2- ستظهر ناقذة اضغط على ok.

3-بعدها اضغط على RUN ستظهر لائحة قم باختيار RUN من تلك اللائحة.

4- ستظهر ناقذة والتي تنفذ البرنامج الذي قمت بكتابته.

5- ادخل العددين اللذين تريد المقارنة بينهما .

6- وستظهر النتيجة مباشرة.