ασκησεις σε pascal

[tls_2010]

Καλησπερα....

Παιδια θα ηθελα να με βοηθησετε με την παρακατω εργασια προγραμματισμου σε γλωσσα pascal...Ειναι αναγκη να γινει μεχρι σημερα στις 9 το βραδυ γιατι μετα πρεπει να την στειλω με e-mail...Ευχαριστω εκ των προτερων...

 

ΑΣΚΗΣΗ

Οι αριθμοί για τους οποίους το άθροισμα των κύβων των ψηφίων τους είναι ίσο με τον ίδιο τον αριθμό λέγονται αριθμοί Αrmstrong (π.χ. 153 = 1^3 +5^3 +3^3). Να γραφεί πρόγραμμα που θα περιλαμβάνει τα παρακάτω :

• την συνάρτηση Cube που θα επιστρέφει την τρίτη δύναμη ενός μονοψήφιου ακέραιου αριθμού,

• την διαδικασία Separate που θα δέχεται έναν ακέραιο αριθμό και θα επιστρέφει τα ψηφία από τα οποία αποτελείται και

• την συνάρτηση Sum_Cube που θα δέχεται έναν ακέραιο αριθμό και θα επιστρέφει το άθροισμα των κύβων των ψηφίων του.

Το κυρίως πρόγραμμα θα βρίσκει και θα εμφανίζει ποιοι είναι αριθμοί Αrmstrong στο διάστημα

(1-999).

[bosei]

Απ' ό,τι έχω καταλάβει εδώ στο forum για να σου δώσουν απάντηση πρέπει να δείξεις που κολάς και μέχρι που έχεις φτάσει...

Υ.Γ έτοιμη απάντηση δεν νομίζω να πάρεις

[thanos713]

153 = 13 +53 +33

Τι γίνεται εδώ?

[tls_2010]

Εκει ακριβως κολλαω και εγω.αυτοι λέγονται αριθμοί Αrmstrong...πρεπει να βρω με καποιον τροπο τον τυπο αυτο ετσι ωστε να μπορεσω να την λυσω...γιαυτο ζητησα βοηθεια απο εσας μηπως ξερατε κατι περισσοτερο και με βοηθουσατε...

 

---------- Προσθήκη στις 17:35 ---------- Προηγούμενο μήνυμα στις 17:32 ----------

 

α σορρυ λαθος στην διατυπωση...ειναι 153=1εις την 3 +5 εισ την 3 + 3 εισ την 3

[macabre_sunsets]

Πού ακριβώς κολλάς ακριβώς; Στο να βρεις τα ψηφία των αριθμών ώστε να κάνεις τις πράξεις; Ποιον τύπο ψάχνεις να βρεις;

[tls_2010]

κολλαω στο οτι δν ξερω που ακριβως στο κυριως προγραμμα να χρησιμοποιησω ολες τις συναρτησεις που ζηταει ετσι ωστε να φτιαξω τον τυπο και θα τυπωνει το σωστο αποτελεσμα...την πρωτη και την τριτη συναρτηση την ξερω να της κανω λιγο η δευτερη με πεδευει...

[macabre_sunsets]

>main()
{
  for i=0 to 999
  {
     c = sum_cube(i);
     if (c == i)
     {
        Woohoo we found armstrong
     }
  }
}

cube(int)
{
  
}

separate(int)
{
  
}

sum_cube(int)
{
  a = separate(int);
  b = cube(a[0])+cube(a[1])+cube(a[2]);
  return b;
}

 

Ένα πολύ πρόχειρο "σχεδιάγραμμα" για το πώς να χρησιμοποιήσεις τις συναρτήσεις.

[thanos713]

α σορρυ λαθος στην διατυπωση...ειναι 153=1εις την 3 +5 εισ την 3 + 3 εισ την 3

Πες το έτσι να μην τρελαθούμε κιόλας... Είναι πανεύκολο, σκέψου αυτό που σου είπε ο macabre...

[tls_2010]

Ευχαριστω παιδια για την βοηθεια σας το εκανα και πιστευω δουλευει σωστα......ευχαριστω ξανα...