
05-05-09

14:11
ΠΡΟΓΡΑΜΜΑ ΑΚΣΗΣΗ_ΕΞ_ΑΣΚΗΣΗ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:j,k,i,ΠΙΝ[100],temp
ΛΟΓΙΚΕΣ:done
ΑΡΧΗ
j <-- 1
ΓΡΑΨΕ 'Δώστε το 1ο στοιχείο του πίνακα'
ΔΙΑΒΑΣΕ ΠΙΝ[1]
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 100
ΓΡΑΨΕ 'Δώστε το ',i,'ο στοιχείο του πίνακα'
ΔΙΑΒΑΣΕ temp
done <-- ΨΕΥΔΗΣ
k <-- 1
ΟΣΟ k<=j ΕΠΑΝΑΛΑΒΕ
ΑΝ temp=ΠΙΝ[k] ΤΟΤΕ
k <-- j
done <-- ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
k <-- k+1
ΤΕΛΟΣ_ΑΝ
ΑΝ done=ΑΛΗΘΗΣ ΤΟΤΕ
k <-- 1
ΓΡΑΨΕ 'Δώστε το ',i,'ο στοιχείο του πίνακα ξανά'
ΔΙΑΒΑΣΕ temp
done <-- ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΠΙΝ <-- temp
j <-- j+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Φίλε μια χαρά τρέχει
!!! δες το στην γλωσσομάθεια για του λόγου το αληθές.....:no1:

ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:j,k,i,ΠΙΝ[100],temp
ΛΟΓΙΚΕΣ:done
ΑΡΧΗ
j <-- 1
ΓΡΑΨΕ 'Δώστε το 1ο στοιχείο του πίνακα'
ΔΙΑΒΑΣΕ ΠΙΝ[1]
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 100
ΓΡΑΨΕ 'Δώστε το ',i,'ο στοιχείο του πίνακα'
ΔΙΑΒΑΣΕ temp
done <-- ΨΕΥΔΗΣ
k <-- 1
ΟΣΟ k<=j ΕΠΑΝΑΛΑΒΕ
ΑΝ temp=ΠΙΝ[k] ΤΟΤΕ
k <-- j
done <-- ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
k <-- k+1
ΤΕΛΟΣ_ΑΝ
ΑΝ done=ΑΛΗΘΗΣ ΤΟΤΕ
k <-- 1
ΓΡΑΨΕ 'Δώστε το ',i,'ο στοιχείο του πίνακα ξανά'
ΔΙΑΒΑΣΕ temp
done <-- ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΠΙΝ <-- temp
j <-- j+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Φίλε μια χαρά τρέχει



Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.