CSC-SY

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

الوظيفة الاولى
program wazzz;
{this program do the following :you enter a char one by one if it's "." exit
replace the small letter in each word with capital(the first letter)
replace the number with motamem which =9-number}
var ch,ch1 : char;
countchr: integer;
countnum: integer;
counter3: integer;
begin
writeln('enter the text');
countchr:=0;
countnum:=0;
counter3:=0;
while (ch <> '.') do
begin
ch1:=ch;
read (ch);
case ch of
'0'..'9' :
begin
ch:=chr(ord('9')-ord(ch) + ord('0') ) ;
countnum:=countnum+1;
end;
'a'..'z':
begin
countchr:= countchr+1;
if (ch1 = ' ') or (ch1= ',') or (ch1= '"') then
ch:=chr(ord('A')+ord(ch)-ord('a'));
end;
else
counter3:=counter3+1;
end;
write(ch);
end;
writeln('the number of the letters',countchr);
writeln('the number of numbers are',countnum);
writeln('number of the symbols',counter3+countnum+countchr);
readln;
readln;
end.

program twa;
{tanathor array }
const maxn=100;
var A:array [1..maxn]of integer;
b:boolean;
n:integer;
i:integer;
begin
writeln('please enter the number n');
readln(n);
writeln('please enter the elements to the array');
For i:=1 to n do
readln(A[i]);
b:=true;
For i:=1 to n do
if (A[i]<>A[n-i+1]) then
b:=false;
writeln('the matrix is ',b);
if (b=true) then
writeln('The matrix is equal')
else if (b=false) then writeln('The matrix is not equal');
readln;
end.

الوظيفة التالتة تبع المصفوفة الثنائية
program was;
const z= 100;
var A: array [1..z,1..z]of integer;
B: array [1..z,1..z]of integer;
t, v,m,sumv, sum1,sum2, n,i,j:integer;
f,k,l, sumq1, sumq2, summ, sumrec, sum, sum11,sum22:integer;
g:boolean;
begin
writeln('enter the length of the array');
readln(n);
for i:=1 to n do begin
for j:=1 to n do
readln(A[i,j]); end;
sum1:=0;
for i:=1 to n do begin
sum1:=(sum1+A[i,1]); end; sum11:=0;
for i:=1 to n do begin
sum11:=sum11+A[i,n]; end; sum2:=0;
for j:=1 to n do begin
sum2:=(sum2+A[1,j]); end; sum22:=0;
for j:=1 to n do begin
sum22:=sum22+A[n,j]; end;
sum:=sum1+sum11+sum22+sum2-A[1,1]-A[1,n]-A[n,n]-A[n,1];
writeln('the sum of the circumfence is',sum);

for i:=1 to n do begin
write(' ');
for j:=1 to n do
write(A[i,j],' ');
writeln(' ');
end;

writeln('enter m number of lines to show u the sum');
readln(m);
if (m>n) or (m<0) then begin
writeln('please try again');
g:=false;
readln(m);
while (m>n) do
readln(m)
end
else v:=n-m;
for j:=v+1 to n do
for i:=1 to n do
sumv:=sumv+A[j,i];
writeln('the sum of the last ',m,' lines is ',sumv);

f:=2; sumrec:=0;
for i:=1 to n do
begin
for j:=f to n do
sumrec:=sumrec+A[i,j];
f:=f+1;
end;
writeln('the sum for the rectangle is ',sumrec);

for f := 1 to n-1 do
begin
j:= n;
for i := 1 to n-f do
begin
if a[i,j] < a[i+1,j-1] then
begin
t := a[i,j];
a[i,j] := a[i+1,j-1];
a[i+1,j-1] := t;
end;
j:= j-1
end;
end;
for i := 1 to n do
begin
writeln(' ');
for j := 1 to n do
write(a[i,j] , ' ');
writeln(' ');
end;
readln;
end.

end.

طبعاً انا منتظر انو ننتاقش بالحل نحنا ما بدنا نغش حالنا بدنا نشوف افكار الكل وطبعاً لح ناقش بحلي انا كمان

عنجد يسلمو وسيم بس بدي اسالك مشان وظيفة هالاسبوع تبع التناظر كمان

هلأ نحنا بنفحص صف صف ولا العنصر الأول a[1,1] مع العنصر a[n,n] . ؟

وكمان انو بدي اسألك متأكد من ظريفة تناظر المصفوفة وجربتها لانو انا هالسؤال طلع عندي فيه غلط منطقي مع انو اشتغل صح ؟؟

عم انتظرك خبرنا بسرعة

التقرير موجود بمناقشة مواد السنة الأولى...
هووووووون

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

طيب انا حليتها بدون المثلث العلوي والسفلي وزبطت بيصير ؟؟
وبعدين شلون بدون القطر الرئيسي يعني ما بيأثر ؟؟

وبعتقد السؤال التاني بدك تعرف نمط متل اللي عطتنا اياه بحصة حل المسائل تبع الdays هيك قالولي

أنا بعتقد مشان الوظيفة الأخيرة أنو المقصود بالمصفوفة المتناظرة هي المصفوفة بمعناها الرياضي أي الصف الأول يساوي العمود الأول والصف الثاني يساوي العمود الثاني وهكذا

رح قلكون كم فكرة عالماشي عن مسألتي الوظيفة :
بالنسبة للمسألة الأولى :
المصفوفة الثنائية البعد تكون متناظرة عندما تتساوى عناصرها على طرفي القطر الرئيسي
لذا فيكون المثلث العلوي والمثلث السفلي طبوقان أي خلايا كل منهما تساوي بقيمها الخلايا المقابلة لها

بالنسبة للمسألة التانية :
وسيط كسلسلة محرفية تعني (String) وهي (Dynamic Array) تستطيع استيعا 255 محرف وليس شرط أن تملأ بكاملها بالمحارف وتتم كتابتها في قسم التصريح عن المتحولات (Var) كما يلي :
s : string;
وتكتب داخل البرنامج كما يلي :
s := 'house' {this is the input
وعند ملئها بالمحارف كل محرف يأخذ (index) خاص به تلقائياً ولا حاجة لاستخدام حلقة تكرارية لملئها ويمكن طلب خانة ما منها بالشكل التالي :
s[3] then the output will be
u

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

شاشي أرجو منك توضيح فكرتك إذا ممكن لأني لهلأ ماني فاهم الوظيفة الثانية

N.Sham ممكن السؤال الأول ينحل بعدة طرق وكلها صحيحة يعني مثلا أنا حليتها بطريقة التناظر الرياضي وطلع حلي صحيح ( يعني متناظرة على مثلي القطر الرئيسي ) فالبرمجة السؤال ممكن ينحل بأكثر من طريقةوكلها صحيحة المهم أن البرنامج يشتغل

هلق بالنسبة للطلب الأول ثانياً عنا تعبير رياضي متل
2*3+2-1=5 صح او غلط طيب بركي في عنا متحولات او دخل المستخدم نجمة او شي بلا طعمة متل wase*2=3 يعني إذا بدنا ناقش كل الحالات ما لح نخلص من شان هيك عم حاول حلها على انو هي اكتر من تعبير رياضي متل اول مثال .بس معقدة كتيير وما لح يطلع معي شي هادا غير المتراجحات لعمى هي لحالو خوارزمية بحالها بقى ما بنعرف انا بالنسبة إلي ما لح قدمها واعلى ما بيخلهوم يركبوه اصلا ما وضحو جماعة المدرسين هالنقاط وتركوها للتأويل وبالنسبة للطلب الثاني انا لح حلو بشكل عادي حاكم انت لما عم تدخلو ارقام هو الكموبيتر عم بيشوفها احرف مو ارقام من شان هيك لازم نعمل العملية التالية
number =ord9-ord number+ord 0هيك على ما اظن بصراحة حاسس حالي انو ما لح يطلع شي بإيدي لانو مو الحق علينا الحق على يلي حط السؤال يلي ما وضح بالتفصيل شو نعمل

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

يعني شو كانو بيخسروا لو حطو توضيح للمقصود من السؤال وحتى سؤال المصفوفة مو كتير واضح كيف بدنا نحلو على أي طريقة انا حليتو على طريقة الرياضيات تبع تناظر مصفوفة

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

وبعدين سؤال تاني هلأ لما تكون مصفوفة بعدها n=1 بتعتبر مربعة ؟؟؟

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

بالنسبة لحل الأول فهو كالتالي
program wse;
type mat=array[1..10,1..10]of integer;
var a:mat;
n,i,j,max:integer;
ok:boolean;
function simitric(n:integer):boolean;
var i,j:integer;
error:boolean;
begin
i:=1;
error:=false;
while (i<=n ) and (not error) do
begin
j:=1;
while (j<=n) and (not error) do
begin
if a[i,j]<>a[j,i] then
error:=true
else
j:=j+1;
end;
i:=i+1;
end;
simitric:=not error;
end; {end fo function simitric}
procedure max1(n:integer;var max:integer);
var i,j:integer;
begin
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]>max then
max:=a[i,j];
end; {end for procedure max1 }
function max2(n:integer):integer;
var i,j,max:integer;
begin
max:=a[1,1];
for i:= 1 to n do
for j:=1 to n do
if a[i,j]>max then
max:=a[i,j];
max2:=max;
end; { end fo function max2}
begin {mian program}
writeln('please inter long the matrix');
readln(n);
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
ok:=simitric(n);
if ok=true then
writeln('the matrix is simitric')
else
writeln('the matrix is not simitric');

max1(n,max);
writeln('the max value in the simitric matrix by procedure =',max);
writeln('the max value in the simitric by function =', max2(n));
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
readln;
end.

هي اضطريت عدل شوي على البرنامج

هلأ وسيم عندي تعليقات ع الحل :

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

تاني شي مابعرف ازا كان في داعي يكون عنا متحول boolean و global انا ماعملت هيك حليتو بانو يكون محلي وزبط .

وكمان قالولي طلاب الفئات اللي اخدو وخلصو قال قالتلون يحطو حلقة while بالتابع الأول مابعرف هو عم يزبط بلاه بس هي انسة منال هيك قالت.

وكمان سؤال انو لو كتبنا برات التابع واسندنا جواتو ما بيصير ؟؟ لاني هيك حليت

طولنا ماعليه بس شو بدنا نعمل

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

يا شباب ويا صبايا اللي أخدو اليوم العملي بس عندي كم سؤال ياريت تجاوبونا:

1- البرنامج بيدخلو أرقام بس من 0-9 يعني مثلاُ 22 بدنا ندخلها ما بيصير ولا بندخلها عنصرين بالمصفوفة ؟؟

2- الأعداد السالبة والموجبة مشمولة ولا نحنا بدنا عدد بدون اشارتو ؟؟

بانتظاركن

لا ستي الاعداد من 0 لل9 مو اكتر تعا من الحمار كيف ما بدو والاعداد سالبة ولا موجبة بدنا نمشيها اصلا انا حليت الطلب الثاني بس كرؤوس اقلام بكرا بدنا نجهز حالنا لنفهم اكتر شو بدهم لو كان بإيدي كنت حطيت الحل بس ما لي عرفان لهلق شو بدهم

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

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

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

لان مازبطت

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

التقرير اليوم انشرحت افكاره بحصة الآنسة منال وكل شي واضح جربو بس فيه وركزوا بالحكي اللي قالتو بيزبط وعفكرة كتير حلو الحل رح تتسلو فيه ع الرغم من انو طويل شوي ولو عندك أي سؤال روح اسأل الآنسة منال لانو اليوم سألناها وجاوبت ع كل الأسئلة وقالت اللي بدو شي يروح يسألها.

السلام عليكم ، طيب ياريت تقولنا شو شرحت وقالت ....

هاي شباب يا ريت تقولولي اذا كان في وظيفة برمجة للاحد لانه انا ما صح لي روح اليوم على الكلية و اذا كان في يا ريت تتكرموا و تحطولنا اياها و بنكون الكم من الشاكرين و لو ممكن نتناقش اكتر باللي صار معكم منشان تقرير البرمجة ما عرفت شو يعني تعرف بنى المعطيات و و الدخل و الخرج و مراحل الخوارزمية

يا شباب ما كان في وظايف جديدة من شان يلي ما نزل بس نزلت اسماء الطلاب وتقارير المبادىء هي شغلة بالنسبة للتقرير اول شي انت بتحكي عن كل شي عرفتو بالvar والtype يعني انت عرفت مصفوفة مثلا بتقول تم تحديد مصفوفة ثنائية احادية البعد .... ملؤها integerوبتحكي عن الدخل يعني شو دخلت انت عناصر المصفوفة وشو طلع هيك يعني هادا يلي فهمتو