ΠΡΟΓΡΑΜΜΑ θεμα4 ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ι, BASE[4], κ, μετρ, ιδια, θ1, θ2 ΧΑΡΑΚΤΗΡΕΣ: DNA[1000], ακολ[4], DNA2[1000], RNA[1000] ΛΟΓΙΚΕΣ: ΒΡΕΘΗΚΕ ΑΡΧΗ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 4 BASE[ι] <- 0 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 1000 ΓΡΑΨΕ "δωσε το ", ι, " στοιχειο της ακολουθιας" ΔΙΑΒΑΣΕ DNA[ι] ΟΣΟ DNA[ι] <> 'A' ΚΑΙ DNA[ι] <> 'T' ΚΑΙ DNA[ι] <> 'C' ΚΑΙ DNA[ι] <> 'G' ΕΠΑΝΑΛΑΒΕ ΓΡΑΨΕ "ΠΡΠΕΙ ΝΑ ΔΩΣΕΙΣ ΕΝΑ ΕΚ ΤΩΝ: 'C,G,T,A'" ΔΙΑΒΑΣΕ DNA[ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΝ DNA[ι] = 'A' ΤΟΤΕ BASE[1] <- BASE[1] + 1 ΑΛΛΙΩΣ_ΑΝ DNA[ι] = 'C' ΤΟΤΕ BASE[2] <- BASE[2] + 1 ΑΛΛΙΩΣ_ΑΝ DNA[ι] = 'G' ΤΟΤΕ BASE[3] <- BASE[3] + 1 ΑΛΛΙΩΣ BASE[4] <- BASE[4] + 1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ "η καθε βαση με τη σειρα a,c,g,t εμφανιστηκε τις παρακατω φορες" ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 4 ΓΡΑΨΕ BASE[ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ κ <- 0 ΒΡΕΘΗΚΕ <- ΨΕΥΔΗΣ ακολ[1] <- 'A' ακολ[2] <- 'T' ακολ[3] <- 'G' ακολ[4] <- 'C' ΟΣΟ κ <= 996 ΚΑΙ ΒΡΕΘΗΚΕ = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ μετρ <- 1 ΒΡΕΘΗΚΕ <- ΑΛΗΘΗΣ ΓΙΑ ι ΑΠΟ 1 + κ ΜΕΧΡΙ 4 + κ ΑΝ DNA[ι] <> ακολ[μετρ] ΤΟΤΕ ΒΡΕΘΗΚΕ <- ΨΕΥΔΗΣ ΤΕΛΟΣ_ΑΝ μετρ <- μετρ + 1 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ κ <- κ + 1 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΝ ΒΡΕΘΗΚΕ = ΑΛΗΘΗΣ ΤΟΤΕ ΓΡΑΨΕ "Η ΑΚΟΛΟΥΘΙΑ 'atgc' βρεθηκε" ΑΛΛΙΩΣ ΓΡΑΨΕ "Η ΑΚΟΛΟΥΘΙΑ 'atgc' δεν βρεθηκε" ΤΕΛΟΣ_ΑΝ !ΓΙΑ ΝΑ ΕΛΕΓΞΩ ΑΝ ΥΠΑΡΧΕΙ Η ΑΚΟΛΟΥΘΙΑ ΘΑ ΕΛΕΓΞΩ ΑΡΧΙΚΑ ΑΠΟ 1 ΜΕΧΡΙ 4 !ΕΠΕΙΤΑ ΑΠΟ 2 ΜΕΧΡΙ 5 ΕΠΕΙΤΑ ΑΠΟ 3 ΜΕΧΡΙ 6 Κ.Ο.Κ ΜΕΧΡΙ ΝΑ ΤΗ ΒΡΩ ΜΙΑ ΦΟΡΑ !ΑΝ ΤΗ ΒΡΩ ΜΙΑ ΦΟΡΑ ΔΕΝ ΨΑΧΝΩ ΑΝ ΥΠΑΡΧΕΙ ΚΑΙ ΔΕΥΤΕΡΗ.Η ΜΕΤΑΒΛΗΤΗ μετρ ΓΙΑ ΚΑΘΕ 4ΑΔΑ !ΑΥΞΑΝΕΙ ΑΠΟ ΤΟ 1 ΜΕΧΡΙ ΤΟ 4 ΚΑΙ Ο ΠΙΝΑΚΑΣ ακολ ΠΕΡΙΕΧΕΙ ΤΗΝ ΖΗΤΟΥΜΕΝΗ ΑΚΟΛΟΥΘΙΑ ΠΟΥ ΘΕΛΩ ΝΑ ΒΡΩ !ΤΟ Κ ΕΙΝΑΙ <=996 ΕΠΕΙΔΗ ΤΟ ΑΝΩ ΟΡΙΟ ΣΤΗ ΓΙΑ ΕΙΝΑΙ ΤΟ 1000 ΟΠΟΤΕ Κ+4<=1000 ΑΡΑ Κ<=996 ιδια <- 0 ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 1000 ΓΡΑΨΕ "δωσε το ", ι, " στοιχειο της ακολουθιας του ποντικου" ΔΙΑΒΑΣΕ DNA2[ι] ΑΝ DNA2[ι] = DNA[ι] ΤΟΤΕ ιδια <- ιδια + 1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ "το ποσοστο ομοιοτητας ανθρωπου-ποντικιου ειναι ", 100*ιδια/1000, "%" ΓΡΑΨΕ "δωσε θ1,θ2" ΔΙΑΒΑΣΕ θ1, θ2 ΓΙΑ ι ΑΠΟ θ1 ΜΕΧΡΙ θ2 ΑΝ DNA[ι] = 'A' ΤΟΤΕ RNA[ι] <- 'U' ΑΛΛΙΩΣ_ΑΝ DNA[ι] = 'T' ΤΟΤΕ RNA[ι] <- 'A' ΑΛΛΙΩΣ_ΑΝ DNA[ι] = 'C' ΤΟΤΕ RNA[ι] <- 'G' ΑΛΛΙΩΣ RNA[ι] <- 'C' ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ "Η ΑΚΟΛΟΥΘΙΑ RNA EINAI :" ΓΙΑ ι ΑΠΟ θ1 ΜΕΧΡΙ θ2 ΓΡΑΨΕ RNA[ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ