برنامج بلغة باسكال,باستخدام الريكورد والملفات

#127 مايو 2006 في 20:37 صاحب الموضوع

شباب ممكن تعينوني في لغة الباسكال صراحة انا ما دخلتها واتمنى مساعدتكم..

طلب مني اكتب برنامج كالتالي:

((اكتب برنامج باستخدام لغة باسكال يعمل على إدخال عدد N من الطلاب مع تقديراتهم الجامعية (بمعنى إدخال عدد مواد الرسوب) باستخدام الريكورد والملفات ومن ثم يقوم البرنامج بعرض أسماء الناجحين فقط (في حال كون عدد مواد الرسوب المدخلة 3 مواد وأقل) حسب الترتيب الابجدي للحروف بالنسبة لاسماء الطلاب..))

صراحة انا لا اعرف لغة الباسكال واشتغل على بيئة دوت نت ومحتاج حل هذه المسألة ضروري..

شاكر تعاونكم..

#227 مايو 2006 في 21:12

اعتقد انه المنتدى مثلما قال الأخوة ليس لحل الفروض المنزلية

نموت وتحيا ...................فلسطين .

#327 مايو 2006 في 21:20

ما في مشكلة يا أخي أكتب برنامجك بلغة dot net والأخوة سيساعدونك في تعديل syntax إلى delphi32,

فالمنتدى ليس لحل الواجبات المدرسية,

راجع قوانين المنتدى :rolleyes:

سأتغيب عن المنتدى وستكون لي زيارات خفيفة بين الحين و الحين

يا صاحب الهم إن الهم منفرج.....................أبشر بخير فإن الفارج الله.

اليأس يقطع أحيانا بصاحبه..........................لا تيأس فإن الكافي الله.

الله يحدث بعد العسر ميسرة.........................لا تفزعن فإن الصانع الله.

إذا بليت فثق بالله وارض به...................فإن الذي يكشف البلوى هو الله.

و الله ما لك غير الله من أحد.......................فحسبك الله في كل لك الله

أخوكم مراد

#427 مايو 2006 في 21:39

والله يا اخوان مش واجب مدرسي..

وتراني احلف بالله..

لكن إن كنتم تريدونه بالدوت نت بالنسبة للفيجوال بيسك فسأحاول أن اوضح لكم..

اولاً:

للتعامل مع الملفات استخدم الأمر imports system.io

ومن ثم تعمل زر يسأل المستخدم بإدخال عدد الطلاب..

ومن ثم Loop لعدد N من الطلاب..

وبالنسبة للترتيب فبإمكاني التحايل بعدة طرق..

لكني صراحة لا اعرف في الباسكال شيء..

إن الله في عون العبد مادام العبد في عون اخيه..

واقسم بالله من جديد أنه ليس فرض منزلي..

شاكر تعاونكم..

للإضافة..

لا أعرف عن الدلفي شيء سوى أنها نسخة مطورة عن الباسكال..

#527 مايو 2006 في 21:55

تعلمون عندما رأيت أن احداً رد علي والله استبشرت خيراً لكني عندما فتحت الرد لأقراه تفأجأت..

ليست المشكلة أن البعض منا يعلم عدة لغات لكن المشكلة في كون إذا لم يكن يعرف من أين يبدأ في لغة معينة..

عندما طرح علي أحد المبرمجين هذا السؤال كتحدٍ منه لعلمه أني لم أتعلم التربو باسكال أو الدلفي (وكأن حال لسانه يقول أنت فقط مجرد هاو ببيئة الدوت نت) تمنيت لو أني درست هذه اللغة وحتى أني إلى الآن نزلت لغة (مفسر التربو باسكال، وكذا نسخة الدلفي) وذلك لحبي للتعلم..

لكن أنا لا أعلم من أين ابدأ..

وكيف أتعامل بهذه الأوامر التي طرحها لي واعلم انه بسؤال كان يقصد وضع سؤال متقدم لعلمه بأن الأساسيات في لغات البرمجة واحدة (Procedurs / Functions / loop / If statements ) وبأنه لو وضع سؤال سهل لكان بالإمكان حله بقليل من البحث..

وليس العيب بأني أريد أن أتعلم شي جديد في كل يوم..

لكن صراحة أني تفاجأت من ردة فعلكم في سؤالي ولا أعلم ماذا أقول..

مشكورين مرة أخرى..

اخوكم/ متعلم جديد

#628 مايو 2006 في 10:37

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

أخي متعلم جديد

لكل شيئ بداية، ربما حان الوقت لتتعلم Pascal...

كما إقترح الأخ مراد، أكتب البرنامج كاملا باللغة التي تعرفها و لك ان تحصل على نسخة مشابهة بلغة Pascal

أظهر لنا جهدك حتى يساعدك غيرك

#728 مايو 2006 في 13:26

حسناً انا معكم في كل كلمة..

لكن.. هل لي أن أعرف شيء واحد..

ماذا يقصد بكلمة RECORDS & FILES في الباسكال..

يعني هل يتم حفظ بيانات الطلاب في ملفات على الأقراص الصلبة..

ام هو فانكشن جاهز..

ولأني كما قلت لكم.. لا أعرف ماهي الباسكال أو ماهي الدلفي..

دلوني على طريقة العمل حتى استطيع أن اضعها في بيئة فيجوال دوت نت..

فأنا مثلاً استطيع كتابتها إلى ملفات على قرص معين.. أو باستخراجها من قاعدة بيانات..

وشكراً

تم تعديل هذه المشاركة بواسطة متعلم جديد في 28 مايو 2006 في 13:35

#828 مايو 2006 في 13:39

كما قال الشباب ضع محاولتك باللغة التي تعرفها وبعد ذلك ستجد رد ...

قسم الدلفي يختلف عن قسم الفيجوال بيسك ... نحن لا نتعامل مع الطلبات الجاهزة ولا بد أن يرقى السؤال الى مستوى القسم الراقي ..

اقتباس
ماذا يقصد بكلمة RECORDS & FILES في الباسكال..
يعني هل يتم حفظ بيانات الطلاب في ملفات على الأقراص الصلبة..
ام هو فانكشن جاهز..

اقتباس
واشتغل على بيئة دوت نت

ماذا يعني هذا في الدوت نت ؟

كيف ستقوم بحفظ بيانات الطلاب هناك ؟

لا نريد كود ... ضع أفكارك حول الموضوع حتى بشكل نقاط ...

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس
حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم
و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "

#929 مايو 2006 في 02:33

السلام عليكم

اخى متعلم جديد

الـRecord =Structure in DOT NET

Files=Files in DOT NET

'==========================

مقارنة بسيطة

VB.NET

Structure Student
		Public FirstName As String
		Public LastName
		Public Age As Int32

	End Structure
	Dim students(99) As Student

Pascal

T

YPE Student=RECORD
FirstName:char;
	LastName:char;
	Age:integer;
	END;
	VAR students:ARRAY[1..100] OF Student;

فقط ضع خوارزم البرنامج كما ذكر الاخوة

اقتباس
قسم الدلفي يختلف عن قسم الفيجوال بيسك

<_< الطلبات الجاهزة مرفوضه قطعا فى جميع الاقسام

VB.NET and C# Comparison

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده

screen_shot_2011-05-19_at_12.44.49_pm.pn

#1029 مايو 2006 في 13:57

TYPE
 TStudent=RECORD
 FirstName:String;
 LastName:String;
 Age: Byte; // لا للتبذير
END;

VAR
students:ARRAY[1..100] OF TStudent;

#1130 مايو 2006 في 01:51

مشكور على تصحيح الكود اخى دلتا

لم اكتب كود دلفى من ثلاث سنوات يبدو انى نسيت كل شئ