CSC-SY

مرحبا
هي الموضوع اللي حننزل فيه مسائل برمجية على قدنا يعني شي يتناسب مع منهاجنا مشان نقدر نحصل على خبرة منيحة بالحل
انا حاولت احصل على عدد من المسائل الخارجية والحمدالله لقيت الكتير منها بس المشكلة انو نحنا لحد الآن ما اخدنا كتير من الافكار اللي ممكن تساعدنا .... مشان هيك رح نبدا بمسألتين بسيطتين للغاية بتمنى تفيد هالمشاركة كل طلاب الأولى .... الله يوفقنا وما نحمل هالمادة اللعينة:(
وهي أول مسألتين
1
مثلث قائم الزاوية طول كل من ضلعيه B,A اكتب برنامج يقرأ طولي الضلعين القائمين ويحسب طول الوتر ومساحة المثلث والزاويتين المقابلتين للضلعين ثم يطبع النتائج بحيث يطبع لك نتيجة العنوان المناسب

2
اكتب برنامج يضرب العدد
(x)
بنفسه عدد محدد من المرات دون استخدام عملية الضرب
حيث يكون دخل البرنامج العدد
(x)
وعدد مرات ضربه بنفسه
(y)

المسألتين سهلين للغاية وفكرة التانية مشابه لأحد الوظايف اللي هلأ اخدينا

 

Matrix Computation system

Our medium size project

program waseem (i,o);
const  pi=3.14;
{no need to freek out }


var 	a,b,c:integer ;

begin 

	readln (a,b) ;

	c:=sqrt((a^2)+(b^2));

	{sqrtجذر while sqr تربيع  }

	

	writeln('the third line is c which is ',c);

 	s:=(a*b)/2;

	{s = Area}

	writeln('the area is =',S);

	{ لحساب الزوايا نحسب قيم الجيوب والتجب القيم ستكون بالراديان بشكل ابتدائي }

	sin(a):=a/c;

	cos(a):=b/c;

	cos(b):=a/c;

	sin(b):=b/c;

	writeln (sin(a),cos(a),sin(b),cos(b));

	{حساب الدائرة المارة برؤوس المثلث

	بما انه قائم فمركز الدائرة هو منتصف الوتر c} 

	r:=c/2;

	A2:=2*pi*(r*r);

	writeln('the area of the circle which pass throuh the rectangle is',A2);

	c2:=(2*pi*r);

	writeln('the circumference of the circle is',c2);

	{لحساب القوس تقديرياً نتبع القانون ف=ر*يه

	وذلك من اجل الزاوية الصغيرة حيث يمكن ان تكون الزاوية =الضلع بشكل تقريبي لا اكثر 

	arc:=r*a;

	writeln('the arc is',arc);

	جديدنا في الأسواق الدائرة المماسة لمثلث ترقبوه 

	كمان الدائرة في مركز كل رأس من رؤوس المثلث 

end.

_{تم تحرير الكود من قبل mpcabd وذلك لترتيب الصفحة.}

const  pi=3.14; -----> Pi is a predefined constant in Pascal you don't have to re-define it.
c:=sqrt((a^2)+(b^2)); -----> c := sqrt(sqr(a) + sqr(b));
s:=(a*b)/2; -----> s is not defined, and it must be defined as Real, and so must your other variables.
(sin(a):=a/c;
cos(a):=b/c;
cos(b):=a/c;
sin(b):=b/c; ) -----> It's better to use more helpful functions
-------------------------------------
Have you heard about the ArcSin and ArcCos?
These functions return the angle of a given value for sin or cos.
You can use them using the predefined function ArcTan.
ArcSin(x) = ArcTan(x/sqrt(1-sqr(x)))
ArcCos(x) = ArcTan(sqrt(1-sqr(x))/x)
eg.
ArcSin(1) = Pi/2
ArcSin(0.5) = Pi/6
ArcCos(0.5) = Pi/3
-------------------------------------
A2:=2*pi*(r*r); ------> A2 := Pi*sqr(r);
arc:=r*a; -------> ????

انا طول عمري بقول مادة الخوارزميات لازم تكون قبل البرمجة

هادا كمان برنامج حلو لترسم مثلث انت بتحدد طول اضلاعه

شكراً كتير عالفكرة الحلوة يا شاشي 
أنا صرلي 4 سنين عم طور حالي بمجال البرمجة وتعلمت لغات مثل Visual Basic, C كبداية وبعدين توجّهت لمجال تطوير مواقع الانترنت وتمكّنت من HTML و PHP وتعلمت كمان Javascript وأكيد MySQL
يعني باختصار عندي من أفكار المسائل كتير وبحب شاركها مع يلي بحب يتمرّن على البرمجة لأنو أنا تعلمت أنو الواحد ما بيصير عندو خبرة إلا إذا اشتغل بإيدو، والنصيحة منّي أنو إذا حبيت تتعلّم أي شي بمجال الكومبيوتر فالوسيلو الأفضل هي أنك تقرأ كتب انكليزية أو مترجمة وتشتغل بايدك.

آسف لأني طولت الحديث عليك، بالنسبة للمسائل يلي طرحتها والمسألة الأولى بالتحديد فالكابتن wazz كفى ووفّا ومشكور على مساهمتوا بالإضافات المفيدة والأفكار الرياضية يلي في كتير مو متذكرينها.
بالنسبة للمسألة الثانية، فهي بتعني إيجاد ناتج رفع العدد X للقوة Y والفكرة هي أنك تستخدم حلقتين تكرارية لتنفيذ الجمع بالطريقة التالية:

begin
  read x,y
  a = i = 1
  c = z = x
  while(i < y) do
    
      while(a < x) do
        z = z + c
        a = a + 1
  
    a = 1
    c = z
    i = i + 1

  write(x," ^ ",y," = ",z)

end  
 

بدك مين يسمع ...
و في كذا مادة في الكلية بتنعطى بترتيب خاطئ ...

نصيحتي للشباب أنو بحياتك لا تستنا حدا ليعلمك شي
ابدا انت اتعلم من كيسك وبعدين شو ماعلمك غيرك بكون ممتاز، واتأكد انو اذا اتبعت هالطريقة رح يتغير رأيك بالمواد والدكاترة لأنك رح تكتشف انهن عم يعطوك بطريقة صحيحة

وسلامي ل skyhawk و Dam

مسألة صغيرة ليلي بحب يتمرن عالتحليل والخوارزميات
##
قرائة مجال مفتوح للتابع y = x + 1 / x - 1
ودراسة نهايات التابع عند أطراف المجال وأكيد انتبه للمقام، وبعدين طباعة النتائج بشكل مفهوم.
##
الحل بسيط كتير، ويلي بحب يتحدا نفسوا يجرب توابع أعقد وأعم، أنا رح اطرح التوابع من الأبسط للأعقد مع الحل بعد فترة.

والله دبحتنا ياste3l يها المسألة لاني ما فهمت شو المطلوب

مرحبا بالنسبة للمسألة الأولى:

Program BST;
Var A,B,C,area:real;
i,f:integer;
Begin
Read(A,B);
C := sqrt(sqr(a)+sqr(b));
Area := A*B/2;
لكن الطلب "والزاويتين المقابلتين للضلعين"يحتاج إلى استخدام تابع function مشان هيك منأجله لوقته........
بالنسبة للمسألة التانية

المهم أنا اليوم بدي ناقشكون بهالمسألة هي مسألة دورة سابقة وجاية كما يلي:
اكتب بلغة الخوارزميات .. خوارزمية تقرأ سلسلة من حروف اللغة الانكليزية تمثل جملة تنتهي بالحرف '.' وتحسب عدد الكلمات في هذه الجملة والطول الوسطي لكلمات الجملة مثال :
لدى إدخال الجملة التالية :
knowing that many arab countries have taken steps to formulate relevant policies and implemetatic stratiges to build the informatio society , it becomes necessary to build upon all such efforts in promoting an intergrated plan of action for a future information society in the arab region.
يجب أن يكون ناتج الخوارزمية من الشكل :
عدد الكلمات : 45
عدد حروف اللغة الانلكيزية : 246
الطول الوسطي لكلمات الجملة : 5.47

بفضل دايماً النقاش يكون كتابة البرنامج كخوارزمية ما في داع للكود ...

 

Matrix Computation system

Our medium size project

أنا حليتها كما يلي :

start

wn = 0 ch = 0

read (c)

while ( c <> '  .  '  ) do

 read(c)

(  ' , '= If (c =' ' ) OR (c 

 wn = wn + 1

 Else

ch = ch + 1

avg=chr/wn stop

بس الشي اللي مالي متأكدة منه انو (else) بتنفي شرطي (if) ولا واحدا منهون لوجود (or)??????

 

Matrix Computation system

Our medium size project

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

عذراً من شاشي بس يبدو أنو الحل الجديد هو سوء فهم
الحل يلي نزلتو shashi لبرنامج بيضرب العدد x بالعدد y دون استخدام إشارة الضرب، أما المسألة المطروحة هيي ضرب العدد x بنفسه y مرة يعني رفع x للقوة y دون استخدام إشارة الضرب
شكراً لمشاركتك بالمسألة، على فكرة في منها بكتاب البرمجة 1
وحلك للمسألة كفكرة صحيحة تماماً بس بدها شوية تعديل لأنو في مششكلة صغيرة وهيي:
إذا كان عندك فاصلة ( ، ) وبعدها فراغ أول مرة بيحسب الفاصلة كلمة وبعدها كمان بيحسب الفراغ كلمة مع انو نحنا لسا ما كتبنا كلمة.
وبالنسبة لسؤالك عن else فنعم هيي بتفي شرطيّ if ، يعني if بتتنفّذ إذا كان واحد على الأقل من الشرطين محقق أو الاثنين سوى، أما else فبتتنفّذ لما بكون كلا الشرطين غير محقق

أنا بس حابة أسأل shashi أنو المسائل الخارجية من الإنترنت ولا من مرجع؟

سألت مرة رجل حيكم المسائل حلو تبع الكتاب العامات ’خر شي هدول فيهم مسائل حلوة كتيير عن جد وانا ناوي اشتغل فيهم وحسب ما سمعت اغلب افكار الامتحان بتجي منهم و
صحي اهلا وسهلا dream m نورت المنتدى

أنا رح حل المسألة بالطريقة التالية ( مع مراعاة عدم الإكتراث إلى طول الفراغ أو عدد الفواصل أي عدم حساب كل منها ككلمة واحد ومعاملة الفراغات كفراغ واحد زالفواصل كفاصلة واحدة)

begin

read(c)                                    قراءة محرف من النص

pw = 1				للتحقق من الكلمة السابقة

word_count = 0

char_count = 0

while ( c  <>  '.'  ) do

    if ( ( c = ',' ) or ( c = '  ' ) ) and pw = 1   then

        word_count = word_count + 1
        pw = 0			الحالة صفر تعني أن ما سبق ليس حرفاً أو كلمة

    else

        char_count = char_count + 1
        pw = 1			الحالة واحد تعني أن ما سبق كان حرفاً أو كلمة

    read(c)				قراءة المحرف التالي

avg = char_count / word_count                       حساب وسطي طول الكلمة

print ( word_count, char_count, avg)

end.

هلأ في مسائل في آخر كتاب البرمجة 1 وهامين بس أفكارهم لهلأ ما أخدناهم بس يمكن في منكم بيعرف عنن شي فيا ريت اللي بيعرف يطلعنا عالأفكار وشكراً الك يا wazzz وعلى فكرة أنا بعرفك بس انت لهلأ ما عرفتني مع أنو أنا بشعبتك ويمكن بفئتك ؟؟؟

بالنسبة للتمرين الثالث يتمارين كتاب البرمجة فأنا حليتو هيك

1- معطيات الدخل : - ميل كل من حاملي القطعتين a1, a2
                           - مجال كل من القطعتين [x11,x12] للأولى و[x21,x22] للثانية
                           - الثابت b لكل من القطعتين ( بفرض معادلة الحامل y= ax + b)  أي b1,b2
2- معلومات الخرج : نتيجة تظهر إذا كانت القطعتان متوازيتان أم متقاطعتان وإذا كانتا متقاطعتان إظهار فيما إذا كانت نقطة التقاطع تنتمي للقطعتين أم لواحد منهما ولحامل الأخرى أو إلى حاملي القطعتين
3- العلاقة بين معطيات الدخل ومعلومات الخرج :
        - إذا كان الميلان متساويان a1 = a2 تكون القطعتان متوازيتان، وإلا فالقطعتان متقاطعتان.
        - تنتمي نقطة التقاطع (x,y) إلى القطعة عندما يكون x ينتمي إلى مجال تلك القطعة وإلا فالنقطة تنتمي لحامل القطعة.

4- الخوارزمية كما يلي :

begin
   read (a1)			قراءة ميلي الحاملين
   read (a2)
   if ( a1 = a2 ) then		إذا كان الميلان متساويان فالقطعتان متوازيتان
	print "The two segments are parallel"
   else				وإلا فهما متقاطعتان
	read (b1)		قراءة ثوابت المعادلتين
	read (b2)
	
	read (x11)		قراءة مجال القطعة الأولى
	read (x12)

	read (x21)		قراءة مجال القطعة الثانية
	read (x22)
	
            x = (b2 - b1) / (a1 - a2)           إيجاد نقطة التقاطع بالحل المشترط للمعادلتين
            y = a1 * x + b1

	print "Intersection point is : (" , x , "," , y , ""

	if ( x > x11) and ( x < x12) then       اختبار إذا كانت النقطة تنتمي للقطعة الأولى
		print "Intersection point is on the first segment"
	else
		print "Intersection point is on first-segment's porter"

	if ( x > x21) and ( x < x22) then
		print "Intersection point is on the second segment"
	else
		print "Intersection point is on second-segment's porter"
end

والله أحلى موضوع للنقاش ste3l

حلو والله في عالم عم تشتغل كتير حلو هالشي انشالله ترفعوها للمادة من اول مرة مو متل ما صار معنا السنة الماضية حاكم تاتين الطلاب ضلوا حاملينها للمادة من بعد دورة الحملة يعني قدموها مرتين وما طلع معهن شي

الله يسمع منك مع اني بتوقع احمل كل شي عدا الانجليزي والقومية

يعني فعلاً هالباسكال مشكلة
يعني الدكتور بيعطينا مسألة بالجامعة،يعني، بنرجع عالبيت منحلها، تمام والحل صح
يعني فكرة مسألة جديدة ما عم نقدر نوصّلها،لهالشي إذا حدا عندو موقع أو أي مساعدة في حلول المسائل العامة لكتاب البرمجة-1-
يساعدنا إذا بيريد!!
وهي راح يومين عطلة على مسألتين الأولى منهن حليتها بس الحل غلط بحسب المعلم باسكال 7
برنامج من الثمانينات عم بيوقف بوجهنا....
وللعلم أنا نزلت كتب من الانترنت وفيها توضيح لبعض الأفكار اللي أخذناها بالجامعة
واتفاجأت بوجود توابع ما سمعانين فيها، مثل توابع الـstring
delete-pos-...etc
وشكراً للجميع،الرب يوفقنا كلنا!

بدي أسأل سؤال عن الإجرائية الـprocedure بالنسبة لهلمثال :

 program example;

var x:integer;

 procedure change;

 begin

 x := 1;

end;

begin

x := 0

change;

writeln(x);

  end.

هون بيكون خرج البرنامج x = 1

 وهالمثال التاني :

program example;

var x:integer;

 procedure change;

var x:integer;

begin

x := 1;

 end; begin

 x := 0

change;

writeln(x);

 end.

 وهون بيكون خرج البرنامج x = 0

شو الفرق وليش وقت عرفنا متحول داخل الاجرائية ما اتغيرت قيمته بالبرنامج؟؟؟؟؟؟؟؟

 

Matrix Computation system

Our medium size project

في شغلة خطيرة نوعا ما نبهنا عليها الدكتور حتى بس ما فهمنا عليه (لحتى رجعنا للكتاب)وهي انو لما بحط إجرائية
procedure was (A:byte);
غير لما تكون procedure was (var a:byte)
فعند إضافة var امام الوسائط فإن قيمة x لح تتغير إذا تغيرت قيمة a
الأمثلة
البرنامج الأول
procedure wase (a:byte)
begin
writeln (a) {15}
a:=10
writeln(a) {10}
end;
var x:byte;
begin
x:=15
writeln(x); 15
wase(x);
writeln(x); لح تضل 15
end.

المخرجات 15-15-10-15
البرنامج الثاني
procedure wase(var a:byte);
begin
writeln(a); 15
a:=10
writeln(a); 10
end;
var
x:byte;
begin
x:=15;
writeln(x); 15
wase(x);
writeln(x); 10
end.

outputs
15-15-10-10

note for my self: until now i can't spill procdre well
بيروح عليها علامات شي التهجة الغلط
لول (تعريب LOL حسب مجمع اللغة العربية الواقع في الحجر الأسود )

أنا حسب ما فهمت انو الـvar اللي منحطها بعد وسائط الاجرائية بتفيد انو هالوسائط رح تتغير ضمن الاجرائية وتخرج بقيم مختلفة عن القيم اللي دخلت فيها .... يعني كأننا عم نقول أنو هالوسائط عم تتحول من local إلى global وبالتالي التغيير اللي حيصل عليها ضمن الاجرائية رح يمتد ليكون تغير عليها ضمن البرنامج......
بتمنى حدا يجاوبني على سؤالي السابق ....
لانو بصراحة الاجرائيات جننتني .......

 

Matrix Computation system

Our medium size project

كتب shashi:

أنا حسب ما فهمت انو الـvar اللي منحطها بعد وسائط الاجرائية بتفيد انو هالوسائط رح تتغير ضمن الاجرائية وتخرج بقيم مختلفة عن القيم اللي دخلت فيها .... يعني كأننا عم نقول أنو هالوسائط عم تتحول من local إلى global وبالتالي التغيير اللي حيصل عليها ضمن الاجرائية رح يمتد ليكون تغير عليها ضمن البرنامج...... بتمنى حدا يجاوبني على سؤالي السابق .... لانو بصراحة الاجرائيات جننتني .......

Oh Shashi I think your teacher hasn't done his work correctly

In Pascal we consider a variable as global variable when we identify it in the main variable block.

So,Global variable is a variable that is known throughout the program and its procedures or functions.

procedure hi(a : byte);

This type of passing method is called PASS BY VALUE

procedure hi(var a : byte);

This type of passing method is called PASS BY REFERENCE.

We must pass by value if the parameters are not necessarily be changed in the procedure.

If the parameters need changing and the change is important to be known by the caller, use pass by reference.