CSC-SY

نظرية فيثاغورث Pythagoras

تقوم نظرية فيثاغورث على أن مجموع مربعي الضلعين القائمين في مثلث قائم الزاوية يساوي مربع الوتر

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

المطلوب:
أكتب برنامجاً يقوم بما يلي
1- قراءة عدد صحيح من المستخدم max
2- إيجاد جميع الثلاثيات من الأرقام (a,b,c) التي تقع ضمن المجال [0 max] و تحقق نظرية فيثاغورث كما يلي : a*a + b*b = c*c
3- يجب طباعة هذه الثلاثيات على الخرج في ستة أعمدة كما في الشكل التالي:
ممكن تساعدونا لو سمحتو بحل هذه المعضلة بلغة الجافا وشكرا سلفا

هي الحل .. بس على الباسكال ....
هو كأنو خوارزمية .. و ممكن ينفهم بسهولة ...
بس إذا استعصى عليك شي رمز اسآل عنو .. لأنو بيقلولي أنو رموزي مو واضحة ...

program  test ;
var
 a,b,n,k:integer;
 c:real;
begin
 readln(n);
  for a:=1 to n do
    for b:=a to n do
      begin
        k:=a*a+b*b ;
        c :=sqrt(k);
        while (c>=1) do
           c:=c-1;
        if c=0 then
          begin
            k:=round(sqrt(k));
            writeln (a,'*',a,'*',b,'*',b,'=',k,'*',k);
          end;
     end;
    readln;
end.

العداد من الصفر لو سمحتي

  for a:=1 to n do

        while (c>=1) do
           c:=c-1;
        if c=0 then
          begin
            k:=round(sqrt(k));
            writeln (a,'*',a,'*',b,'*',b,'=',k,'*',k);
          end;

قصدي المتحول c ما لو طعمة والحلقات تبعو مو مفهومة

هلأ هاد المتحول C شو شغلتو؟؟؟؟
لا تواخذيني بس فايت بالحيط شوي من فحص الجبر.....

هلق اسامة ليش مهتم بالبرمجة 1 مو انت هلق بالبرمجة 2 ؟؟؟!!!!

مرحبا الف شكلر وتحية ل الاخت فرح ومشكور كل عضو شاركني من قلبي
تقبلو تحياتي الخواجة اسامة

كتب en.karam1989:

العداد من الصفر لو سمحتي

كتب farah online:

  for a:=1 to n do

هو صحيح رياضيا خطأ نبلش من الصفر
بس هيك نص السؤال

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

        while (c>=1) do
           c:=c-1;
        if c=0 then
          begin
            k:=round(sqrt(k));
            writeln (a,'*',a,'*',b,'*',b,'=',k,'*',k);
          end;

هلأ مشان المتحول c ... لح إحكي بس لا تتضحك عليي لأنو ما بعرف إذا في تابع جاهز بيعطيني هالشغلة ...
هلأ بعد ما أحسب مجموع مربعي العددين a,b بدي أجذرو ..
و إذا كان الجذر عدد صحيح باخدو (عم أفترض أنو الأطوال لازم تكون integer )
كيف بدي أعرف إذا كان هالعدد العجيب integer و لا لأ ..؟؟؟
بطرح منو واحدات حتى يصير أقل من الواحد ....
هلأ إذا بقي معي شي ( و هالباقي بكون أكيد أقل من واحد يعني بعد الفاصلة ) لح يكون العدد الأصلي قبل الطرح مو integer
أما إذا ما بقي بكون integer ....
بس ما بعرف إذا في تابع جاهز بيعطيني شو بعد الفاصلة أو إذا كان العدد integer b و لا لأ .. مشان هيك لجأت لهالطريقة .... معتة مو هيك ..

كتب farah online:

هلأ مشان المتحول c ... لح إحكي بس لا تتضحك عليي لأنو ما بعرف إذا في تابع جاهز بيعطيني هالشغلة ...
هلأ بعد ما أحسب مجموع مربعي العددين a,b بدي أجذرو ..
و إذا كان الجذر عدد صحيح باخدو (عم أفترض أنو الأطوال لازم تكون integer )
كيف بدي أعرف إذا كان هالعدد العجيب integer و لا لأ ..؟؟؟
بطرح منو واحدات حتى يصير أقل من الواحد ....
هلأ إذا بقي معي شي ( و هالباقي بكون أكيد أقل من واحد يعني بعد الفاصلة ) لح يكون العدد الأصلي قبل الطرح مو integer
أما إذا ما بقي بكون integer ....
بس ما بعرف إذا في تابع جاهز بيعطيني شو بعد الفاصلة أو إذا كان العدد integer b و لا لأ .. مشان هيك لجأت لهالطريقة .... معتة مو هيك ..

ممم
إذا من شان هيك ففي طرق أسهل من هيك بكتير
وأسهلها
c mod 1
بيعطيكي باقي قسمة العدد على واحد واللي هو القسم الكسري للعدد

وبالتالي فيكي تشيلي المتحول c بهي العلاقة
sqrt(k) mod 1

كتب en.karam1989:

كتب farah online:

هلأ مشان المتحول c ... لح إحكي بس لا تتضحك عليي لأنو ما بعرف إذا في تابع جاهز بيعطيني هالشغلة ...
هلأ بعد ما أحسب مجموع مربعي العددين a,b بدي أجذرو ..
و إذا كان الجذر عدد صحيح باخدو (عم أفترض أنو الأطوال لازم تكون integer )
كيف بدي أعرف إذا كان هالعدد العجيب integer و لا لأ ..؟؟؟
بطرح منو واحدات حتى يصير أقل من الواحد ....
هلأ إذا بقي معي شي ( و هالباقي بكون أكيد أقل من واحد يعني بعد الفاصلة ) لح يكون العدد الأصلي قبل الطرح مو integer
أما إذا ما بقي بكون integer ....
بس ما بعرف إذا في تابع جاهز بيعطيني شو بعد الفاصلة أو إذا كان العدد integer b و لا لأ .. مشان هيك لجأت لهالطريقة .... معتة مو هيك ..

ممم
إذا من شان هيك ففي طرق أسهل من هيك بكتير
وأسهلها
c mod 1
بيعطيكي باقي قسمة العدد على واحد واللي هو القسم الكسري للعدد

وبالتالي فيكي تشيلي المتحول c بهي العلاقة
sqrt(k) mod 1

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

كتب farah online:

بس ما بعرف إذا في تابع جاهز بيعطيني شو بعد الفاصلة أو إذا كان العدد integer b و لا لأ .. مشان هيك لجأت لهالطريقة .... معتة مو هيك ..

 
{to check if c has an integral value in pascal}
 
if (abs(frac(c)) < 0.001)
 
 {where}
 
frac(2.332) = 0.332    {for example}
 
{we could use }
 
if (frac(c) = 0)
 
{but this is not completely true since double functions are not accurate, for example:} 
 
sqrt(9) = 3.00001    {this can happen}
 
{so the first formula is the best} 
 

        while (c>=1) do
           c:=c-1;
        if c=0 then
          begin
            k:=round(sqrt(k));
            writeln (a,'*',a,'*',b,'*',b,'=',k,'*',k);
          end;
     end;
    readln;
end.

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

كتب Ammar_N:

كتب farah online:

بس ما بعرف إذا في تابع جاهز بيعطيني شو بعد الفاصلة أو إذا كان العدد integer b و لا لأ .. مشان هيك لجأت لهالطريقة .... معتة مو هيك ..

 
{to check if c has an integral value in pascal}
 
if (abs(frac(c)) < 0.001)
 
 {where}
 
frac(2.332) = 0.332    {for example}
 
{we could use }
 
if (frac(c) = 0)
 
{but this is not completely true since double functions are not accurate, for example:} 
 
sqrt(9) = 3.00001    {this can happen}
 
{so the first formula is the best} 
 

شكراً كتييير أستاذ عمار على المعلومة ....
هي أول مرة بسمع بهالتابع ....

السلام عليكم

بس أنا عندي تعليق صغير وشوي مالو علاقة بالسؤال بس إن شاء الله يكون مفيد:

هلق الخوارزمية المطروحة فوق لحل السؤال صحيحة 100% وواضحة وبسيطة (straightforword brute force)

بس أنا خطر على بالي شغلة: أنو عدد عمليات الجذر يلي بدنا نساويها يساوي مربع maxn

أي لما يكون maxn يساوي 1000 مثلاُ بيصير بدنا 1000000 عملية جذر

ولما بيكون maxn بيساوي 1000000 بيصير بدنا 1000000000000 عملية جذر

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

خلينا نلاحظ هل الملاحظة:

إذا الأعداد 3 - 4 - 5 حققت العلاقة فينا نستنتج أنو

6 - 8 - 10 كمان بتحقق و 9 12 15 إلخ....

معناها هون مو ضروري أنو نجرب كل هدول يلي نتجو عن 3 و 4 و 5
لأنو من أول بنعرف أنو رح يطلعوا

بس كمان في ملاحظة تانية أخطر

إذا مثلاُ 5 و8 ما طلعوا بيعطوا شي من العلاقة معناها كل الأعداد التالية لا تعطي شيئاُ:

10 16 - 15 24 - 20 32 ........

وكمان مو ضروري نجربهم وبنطبق هذا الشيء على كل الحالات يلي بتطلع معنا

فيننا نستنتج من الملاحظات السابقة أنو كل عدد مو ضروري نجربو مع كل الأعداد التانية وإنما:

بنجربو مع الأعداد فقط التي يكون هذا العدد واثاني أوليان فيما بينهما

مثلاُ ما لازم نجرب 4 و 18 ليش؟

لأنو نحنا حنكون جربنا 2 و 9

إذا كانو 2 و 9 عطو عدد مثلاُ x

بنستنتج أنو 4 و 18 حيعطوا 2x

وإذا كانوا 2 و 9 ما عطوا شي معناها 4 و 18 ما حيعطوا شي ولا تجرب تربع وتجذر

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

أرجو أن يكون الكلام السابق حقق فائدة ما

والسلام عليكم

بس بصراحة ما اقتنعت أبداً أنو في عدد بقسمو على واحد بكون في باقي ....!!!!

يعني بالمختصر قصدي x mod 1 = 0 شو ما كانت x
فينا نقول هالحكي مو غلط بس دايماً بكون الجواب 0

مقارنتك بين ال10/21 و ال 1/2.1 صحيحية فقط بالجواب النهائي لأنو لو كانو الحالتين متطابقين متل ما عم تقول كان الباقي 1 مو 0.1 ....
برجع بقلك إذا عندك أربع تفاحات و نص و بدك تقسمون على شخص واحد شو بتعمل ..؟؟؟ بتعطي ياهون كلون و ما بصفي باقي .....

يعني لسا ما قنعتني ....

الباقي 0.1 مو 1
ما رح نفوت فيها
بس لازم تكوني اقتنعتي أنو في باقي (سواءً كان 0.1 أو 1)

قصدي أنك ما عم تفرقي بين القسمة الصحيحة والقسمة الحقيقية
div صحيح
\ حقيقي

أيم الDIV على جنب ... نحنا هلأ عم نحكي عن ال MOD
و الMOD تعريفاً هو باقي القسمة ..... مو هيك .... ؟؟؟

أما إذا ما كان ال mod هو باقي القسمة إنما هو
mod= العدد - (ناتج قسمة العدد (div) *المقسوم عليه)
ساعتها بكون حكيك عن ال mod صح ... بس مية بالمية أي عدد بقسمو على 1 بكون الباقي 0 فلا تعذب حالك و تقنعني بهالقصة ....

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

خلص ما عاد أتدخل
تصطفلي
بكرة انشالله بس تاخدي الخورازميات 2
بتلاقي هي العلاقة بوشك بأول بحث
ووقتها بدك تقتنعي شئتي أم أبيتي
(ما لك مصلحة ما تقتنعي )

تمام اخي عضو فعال شكرا كتير اليك وشكرا الاخت فرح سلفا

لاحظي معي

-------------------------------

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