CSC-SY

السلام عليكم

اليوم أنا حبيت حول البسودو كود اللي عطانا اياه الدكتور إلى كود

في البرنامج اللي بتدخل فيه عدد الطلاب وعلامة كل واحد وهو بعدين بيعطيك المعدل وعدد الناجحين والراسبين

ومين مجمع أكثر شي ومين أقل شي علما أن نسبة النجاح من 60

فحبيت حط الكود هون بركي حدا بيستفيد منه

طبعا الكود بالباسكال لا حدا يئلي سي بلس أو فيجول بيسسك ..!!

program first(input,output);

var
n,sum,num,i,s,w,max,min:integer;
x : real ;
begin
i :=1 ;
sum := 0;
s:= 0 ;
w:= 0;
min := 10000;
max := 0 ;

readln(n);
writeln ('--------');
while(n>=i) do
begin
readln (num);
sum := sum + num;
if (num>=60) then
s := s + 1;
if (num< 60) then
w := w + 1;
if (max < num) then
max := num;
if (min > num) then
min := num;
i := i +1;
end;
writeln ('---------');
writeln (sum,' magmo3 ala3dad');
x := sum/2;
writeln ( x :4:4,' almo3adal ');
writeln (min,' alaal');
writeln (max,' alaksar');
writeln (s,' alnaghen');
writeln (w,' alrasben');

readln;
end.

مع تحياتي

شكرااااااااااا بورير من زماان نزلون ودائما اذا اجا ع بالك تنزل وظيفة عاطينا ياها دكتور البرمجة لا تتردد

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

واو شكرا كتير
وانا معك kanty_Manty

بس الدكتور ما بيهمو الكود
المهم الطريقه للحل Kanty_MantyI love

1. Oranges
2. Apples
3. Bananas

فكرة حلوة انو ننقل كل الوظايف اللي بيعطينا ياهون الدكتور لكود الباسكال ونتشارك فيهون
بس أنا عندي فكرة انو كل فترة ننزل كم مسألة نجيبهون من الانترنت هون على المنتدى ونتناقش بحلها لانو متل ما قال الدكتور لازم نتدرب كتييير
فإذا حدا ممكن يساعد بوضع مسائل ياريت يرد ومنتفق على طريقة المناقشة بعدين

 

Matrix Computation system

Our medium size project

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

شو هي خوارزمية جديدة

مرحبا يا مهندسين ..!!

ومن الأول خليكون حركين شوي

وأفكاركن كلا لماعة وزهبية ...

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

فالي عنده شي كوشة مسائل يزتهن هون بكري بنحاول نفرمهن ..!

ان شاءالله قريبا رح نزللكون مسألتين خارجيات نتناقش فيهون
واذا مو حابين الخارجيات منتناقش بالوظيفة اللي عطانا ياها اليوم شو رأيكون؟؟؟؟؟؟

 

Matrix Computation system

Our medium size project

اي الوظيفة
نريد قراءة X مرفوع لقوة n
power يعني
فشوو اقتراحاتكن

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

مرحبا زملا ..

على فكرة العاملي سهلة ما فيها شي هاد الحل

كل ما في الأمر انو عملنا حلقة تكرارية

بتاخذ قيمة العدد اول مرة وثاني مرة بتنقص منو واحد وبتضربو

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

program amely(input,output);

var a,d : integer;

begin

d:=1;
readln(a);
while (a>0) do
begin
d:=a*d;
a:=a-1;
end;

writeln (d);
readln;

end.

وهاي تاع الأس كمان ماشي حالها

program oss(input,output);

var x,n : integer;

begin

readln(x,n);

while(n>1) do
begin
x:= x*x;
n:=n-1;
end;

writeln(x);
readln;
end.

استاز en.karam1989 ما عنا غير هدول شو بدنا نساوي ..!

آنسة shashi نزلي المسألتين مو مشكلة

يلا باي

أنا رح نزل المسائل بس بموضوع جديد ليكون خصيصاً لمناقشة المسائل الخارجية ...... أما بالنسبة لوظائف الدكتور فبعتقد أنو لازم كل حدا يجرب لحالو اول شي ليصير عنا خبرة ذاتية وبعدين منتناقش فيها

 

Matrix Computation system

Our medium size project

والله معك حق كل واحد لازم يجرب لحاله اول الشي ...

بدي أسأل سؤال عن مسألة أعطاها الدكتور بالمحاضرة السابقة هي أنو مجموع الأعداد الزوجية من 1 لـ 100
الطريقة التي اتبعها الدكتور هي التالية :
start
sum =0
number = 1
while (number >50) Do
sum = sum + number*2
number = number +1
stop
السؤال هو انو نحنا حطينا *2 لانو حطينا الشرط لل50؟؟؟؟
بس اذا شلنا *2 ماعاد تطلع معنا اعداد زوجية ؟؟؟؟؟

 

Matrix Computation system

Our medium size project

أول الشي في البسودود كود تاعك لازم تحطي > وليس <

بعدين هو الدكتور فضل هذه الطريقة لأنو الحقلة بتكون فيها بتخلص

أسرع من لو خلينا الشرط للـ 100 وأكيد إذا ما حطينا NUMBER*2

راح يجمعلنا كل الأعداد الفردية والزوجية من الـ 1 حتى 50 مشان

حطينا *2

الطريقة الأوضح هي كالتالي :

start
sum =0
number =2
while (number <100) Do
sum = sum + number
number = number + 2
stop

شكرا كتير بورير
يعني الخلاصة بالنسبة لهي المسألة إذا في حدا عندو مشكلة فيها رح أعرض الحلين:
الحل الأول باستخدم الشرط للـ 50
Start
Sum = 0
Number =1
While (number =<50) Do
sum = sum + number *2
number = number +1
print sum
stop
بالنسبة للطريقة التانية اللي منستخدم فيها الشرط للـ 100
Start
Sum = 0
Number =2
While (number<=100) Do
Sum = sum + Number
Number = Number + 2
Print sum
Stop
منلاحظ عند التطبيق رح يكون قيميتي الـsum نفسها بالطريقتين ولا الـnumber ما بتغير بشكل متماثل بالطريقتين وهادا دليل على صحة الحلين

 

Matrix Computation system

Our medium size project

هافكرة كتير حلوة شكرا كتير بورير

اكتشفت أن كودي تاع الأس كان فيه خطأ وهذا الخطأ كثير بنوقع فيه

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

لازم نعم x =x*x فكل مرة عم تتغير قيمة x فما عم يزبط برنامج الأس

مشان هيك لازم نكون مخزنين قيمة الـ x بمتحول جديد مثلا m ما دخله بالحلقة أبداً ( يعني قيمته بتضل ثابتة على طول الحلقة )

وهيك بيكون الكود الجديد

program oss(input,output);

var x,n,m : integer;

begin

readln(x,n);
m:=x;
while(n>1) do
begin
x:= x*m;
n:=n-1;
end;

writeln(x);
readln;
end.

والله بورير شكلك عم تضارب على الشباب هون بس مبين معي انك كفو ولازم ضمك للشلة العتيدة