Μπορειτε να βοηθησετε?

Ξεκίνησε από Alexis_vti, 21 Μαρ 2009, 04:18:47 ΜΜ

« προηγούμενο - επόμενο »

Alexis_vti

Θα ήθελα αν μπορειτε να με βοηθήσετε με αυτήν την ασκηση

Ευχαριστω πολύ!!!

Υ.Γ. Η προσπαθεια σας είναι πολύτιμη!!!


nikosx

ΠΡΟΓΡΑΜΜΑ A1
ΣΤΑΘΕΡΕΣ
  Ν=27
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ:Ι,ΟΡ[Ν],Κ,Τ
  ΠΡΑΓΜΑΤΙΚΕΣ:ΕΜΒ[Ν],Τ1
ΑΡΧΗ
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ 'ΔΩΣΕ ΟΡΟΦΟ ΔΙΑΜΕΡΙΣΜΑΤΟΣ'
      ΔΙΑΒΑΣΕ ΟΡ[Ι]
    ΜΕΧΡΙΣ_ΟΤΟΥ ΟΡ[Ι]>=1 ΚΑΙ ΟΡ[Ι]<=5 ΚΑΙ Α_Μ(ΟΡ[Ι])=ΟΡ[Ι]
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ 'ΔΩΣΕ ΕΜΒΑΔΟΝ ΔΙΑΜΕΡΙΣΜΑΤΟΣ'
      ΔΙΑΒΑΣΕ ΕΜΒ[Ι]
    ΜΕΧΡΙΣ_ΟΤΟΥ ΕΜΒ[Ι]>=20
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ Ν
    ΓΙΑ Κ ΑΠΟ Ν ΜΕΧΡΙ Ι ΜΕ ΒΗΜΑ -1
      ΑΝ ΟΡ[Κ]<ΟΡ[Κ-1] ΤΟΤΕ
        Τ <-- ΟΡ[Κ]
        ΟΡ[Κ] <-- ΟΡ[Κ-1]
        ΟΡ[Κ-1] <-- Τ
        Τ1 <-- ΕΜΒ[Κ]
        ΕΜΒ[Κ] <-- ΕΜΒ[Κ-1]
        ΕΜΒ[Κ-1] <-- Τ1
      ΑΛΛΙΩΣ_ΑΝ ΟΡ[Κ]=ΟΡ[Κ-1] ΤΟΤΕ
        ΑΝ ΕΜΒ[Κ]>ΕΜΒ[Κ-1] ΤΟΤΕ
          Τ1 <-- ΕΜΒ[Κ]
          ΕΜΒ[Κ] <-- ΕΜΒ[Κ-1]
          ΕΜΒ[Κ-1] <-- Τ1
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΡΑΨΕ 'ΔΙΑΜΕΡΙΣΜΑ',Ι,'ΤΟΥ',ΟΡ[Ι],'ΟΡΟΦΟΥ',ΕΜΒ[Ι],'Τ.Μ'
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Νίκος Ξένος
Καθηγητής Πληροφορικής
nxenos@sch.gr

Alexis_vti

Ευχαριστώ πολύ!!!!!! Με βοηθησατε πολυ!