**sliman**
2013-09-08, 16:24
1- حمل TURBO PASCAL 7 بالضغط على الرابط :
http://i0.wp.com/lacity09.files.wordpress.com/2009/07/turbo-pascal-7.jpg (ftp://ftp-developpez.com/pascal/turbo-pascal/tp7.zip)
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- وستظهر النتيجة مباشرة.
http://i0.wp.com/lacity09.files.wordpress.com/2009/07/turbo-pascal-7.jpg (ftp://ftp-developpez.com/pascal/turbo-pascal/tp7.zip)
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- وستظهر النتيجة مباشرة.