Τώρα είναι Πέμ 28 Μαρ 2024 09:37 pm

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 3 Δημοσιεύσεις ] 
Συγγραφέας Μήνυμα
 Θέμα δημοσίευσης: Συγκέντρωση μηδενικών
ΔημοσίευσηΔημοσιεύτηκε: Παρ 22 Δεκ 2006 04:37 pm 
Χωρίς σύνδεση

Εγγραφή: Παρ 22 Δεκ 2006 03:22 pm
Δημοσιεύσεις: 3
Τοποθεσία: Ξυλοκαστρο
Syntax: [ Download ] [ Hide ]
Εστω μονοδιάστατος πίνακας ακεραίων με 200 στοιχεία. Να γραφεί πρόγραμμα που να κατασκευάζει έναν δεύτερο πίνακα που να περιέχει τα στοιχεία του πρωτου με την ίδια σειρά, έχοντας όμως τα μηδενικά μαζεμένα στο τέλος του.

π.χ. Αν ο πίνακας είναι της μορφής

Α[4  54  0  32  0  28  ...  7]
ο Β να είναι της μορφής
Β[4  54  32  28  ...  0  0]

 

:(


Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
 Θέμα δημοσίευσης: Re: Συγκέντρωση μηδενικών
ΔημοσίευσηΔημοσιεύτηκε: Τρί 29 Ιαν 2008 10:23 pm 
Χωρίς σύνδεση

Εγγραφή: Τρί 29 Ιαν 2008 10:17 pm
Δημοσιεύσεις: 1
Syntax: [ Download ] [ Hide ]
ΠΡΟΓΡΑΜΜΑ Πινακες

Μεταβλητές
  Ακέραιες : Χ[200], Υ[200] , ι, κ, λ

ΑΡΧΗ
  λ <-- 1
  ι <-- 1
  κ <-- 1
  Για ι απο 1 μέχρι 200

    Γράψε 'Δώσε στοιχείο'
    Διάβασε Χ[ι]
  Τέλος_Επανάληψης
  Για ι απο 1 μέχρι 200
    Αν Χ[ι]=0 τότε
      Υ[11-κ] <-- Χ[ι]
      κ <-- κ+1
    Αλλιώς
      Υ[λ] <-- Χ[ι]
      λ <-- λ+1
    Τέλος_ΑΝ
  Τέλος_Επανάληψης

  Για ι από 1 μέχρι 200
  Γράψε Υ[ι]
  Τέλος_Επανάληψης

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ


Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
 Θέμα δημοσίευσης: Re: Συγκέντρωση μηδενικών
ΔημοσίευσηΔημοσιεύτηκε: Κυρ 03 Φεβ 2008 02:56 am 
Χωρίς σύνδεση

Εγγραφή: Δευτ 22 Οκτ 2007 12:46 pm
Δημοσιεύσεις: 15
Syntax: [ Download ] [ Hide ]
!Revised by Periptero  ***email periptero at gmail dot com ***
ΠΡΟΓΡΑΜΜΑ Πινακες
ΣΤΑΘΕΡΕΣ
  N=200
Μεταβλητές
  Ακέραιες : Χ[N], Υ[N] ,Z[N], ι, κ, λ
ΑΡΧΗ
  λ <-- 0
  ι <-- 1
  κ <-- 0
  Για ι απο 1 μέχρι N
    Γράψε 'Δώσε στοιχείο'
    Διάβασε Χ[ι]
  Τέλος_Επανάληψης
  Για ι απο 1 μέχρι N
    Αν Χ[ι]=0 τότε
      Z[κ+1] <-- Χ[ι]
      κ <-- κ+1
    Αλλιώς
      Υ[λ+1] <-- Χ[ι]
      λ <-- λ+1
    Τέλος_ΑΝ
  Τέλος_Επανάληψης
  Για ι από 1 μέχρι κ
    Υ[λ+ι] <-- Z[ι]
  Τέλος_Επανάληψης
  Για ι από 1 μέχρι N
    ΓΡΑΨΕ Υ[ι]
  Τέλος_Επανάληψης
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ


 


Μια πιο σωστή έκδοση του προγράμματος


Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
Τελευταίες δημοσιεύσεις:  Ταξινόμηση ανά  
Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 3 Δημοσιεύσεις ] 

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]


Μέλη σε σύνδεση

Μέλη σε αυτή την Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 6 επισκέπτες


Δεν μπορείτε να δημοσιεύετε νέα θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να απαντάτε σε θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επεξεργάζεστε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να διαγράφετε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επισυνάπτετε αρχεία σε αυτή τη Δ. Συζήτηση

Αναζήτηση για:
Μετάβαση σε:  
Προβολές: