Θέματα Γ+Δ Part1
Θέματα Γ+Δ : Part 1:⌗
Άσκηση 1:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ01
ΜΕΤΑΒΛΗΤΕΣ: α , β ,απ
ΑΡΧΗ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΔΙΑΒΑΣΕ α , β
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ " Δώσε 1 για πρόσθεση , 2 για αφαίρεση , 3 για πολλαπλασιασμό , 4 για διαίρεση
ΔΙΑΒΑΣΕ απ
ΜΕΧΡΙΣ_ΟΤΟΥ (απ=1) Η (απ=2) Η (απ=3) Η (απ=4)
ΑΝ απ =1 ΤΟΤΕ
ΓΡΑΨΕ α+β
ΑΛΛΙΩΣ_ΑΝ απ=2 ΤΟΤΕ
ΓΡΑΨΕ α-β
ΑΛΛΙΩΣ ΑΝ απ=3 ΤΟΤΕ
ΓΡΑΨΕ α*β
ΑΛΛΙΩΣ
ΑΝ β!=0 ΤΟΤΕ
ΓΡΑΨΕ α/β
ΑΛΛΙΩΣ
ΓΡΑΨΕ " Μη επιτρεπτή πράξη "
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 2:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ02
ΜΕΤΑΒΛΗΤΕΣ:
ΧΑΡΑΚΤΗΡΕΣ: παιδια , παιδιβ ,παιδιγ
ΑΚΕΡΑΙΟΙ: scorea , scoreb ,scoreg
ΑΡΧΗ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΓΡΑΨΕ " ΔΩΣΕ ΤΟ ΟΝΟΜΑ ΤΟΥ ΠΡΩΤΟΥ ΠΑΙΔΙΟΥ"
ΔΙΑΒΑΣΕ παιδια
ΓΡΑΨΕ " ΔΩΣΕ ΤΟ ΣΚΟΡ ΤΟΥ ΠΡΩΤΟΥ ΠΑΙΔΙΟΥ "
ΔΙΑΒΑΣΕ scorea
ΓΡΑΨΕ " ΔΩΣΕ ΤΟ ΟΝΟΜΑ ΤΟΥ ΔΕΥΤΕΡΟΥ ΠΑΙΔΙΟΥ"
ΔΙΑΒΑΣΕ παιδιβ
ΓΡΑΨΕ " ΔΩΣΕ ΤΟ ΣΚΟΡ ΤΟΥ ΔΕΥΤΕΡΟΥ ΠΑΙΔΙΟΥ "
ΔΙΑΒΑΣΕ scoreb
ΓΡΑΨΕ " ΔΩΣΕ ΤΟ ΟΝΟΜΑ ΤΟΥ ΤΡΙΤΟΥ ΠΑΙΔΙΟΥ"
ΔΙΑΒΑΣΕ παιδιγ
ΓΡΑΨΕ " ΔΩΣΕ ΤΟ ΣΚΟΡ ΤΟΥ ΤΡΙΤΟΥ ΠΑΙΔΙΟΥ "
ΔΙΑΒΑΣΕ scoreg
AN ( scorea > scoreb ) ΚΑΙ ( scorea > scoreg) TOTE
ΑΝ scoreb > scoreg ΤΟΤΕ
ΓΡΑΨΕ παιδια,παιδιβ,παιδιγ
ΑΛΛΙΩΣ
ΓΡΑΨΕ παιδια,παιδιγ,παιδιβ
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ_ΑΝ ( scorea < scoreb ) ΚΑΙ ( scoreb > scoreg) TOTE
ΑΝ scorea > scoreg ΤΟΤΕ
ΓΡΑΨΕ παιδιβ,παιδια,παιδιγ
ΑΛΛΙΩΣ
ΓΡΑΨΕ παιδιβ,παιδια,παιδιγ
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
ΑΝ scoreb > scoreg ΤΟΤΕ
ΓΡΑΨΕ παιδιγ,παιδιβ,παιδια
ΑΛΛΙΩΣ
ΓΡΑΨΕ παιδιγ,παιδια,παιδιβ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 3:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ03
ΜΕΤΑΒΛΗΤΕΣ:
ΧΑΡΑΚΤΗΡΕΣ: απαντηση
ΑΚΕΡΑΙΟΙ: ναι ,οχι
ΑΡΧΗ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ναι=0
οχι=0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣΗΣ
ΔΙΑΒΑΣΕ απαντηση
ΑΝ απαντηση= "ΝΑΙ" ΤΟΤΕ
ΓΡΑΨΕ "ΟΧΙ"
ναι= ναι + 1
ΑΛΛΙΩΣ_ΑΝ απαντηση= "ΟΧΙ" ΤΟΤΕ
ΓΡΑΨΕ "ΝΑΙ"
οχι = οχι + 1
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ (απαντηση != "ΝΑΙ" ) ΚΑΙ (απαντηση != "ΟΧΙ")
ΓΡΑΨΕ "Πλήθος των ναι : ", ναι
ΓΡΑΨΕ "Πλήθος των όχι : " , οχι
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 4:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ04
ΜΕΤΑΒΛΗΤΕΣ:
ΠΡΑΓΜΑΤΙΚΕΣ: ΑΡΙΘΜΟΣ
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ
ΜΕΧΡΙΣ_ΟΤΟΥ (ΑΡΙΘΜΟΣ>=100 ΚΑΙ ΑΡΙΘΜΟΣ<=999)
ΑΡΙΘΜΟΣ<- ΑΡΙΘΜΟΣ+50
ΑΡΙΘΜΟΣ<- ΑΡΙΘΜΟΣDIV100
AΡΙΘΜΟΣ<-ΑΡΙΘΜΟΣ*100
ΓΡΑΨΕ ΑΡΙΘΜΟΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 5:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ05
ΜΕΤΑΒΛΗΤΕΣ:
ΠΡΑΓΜΑΤΙΚΕΣ: ΑΡΙΘΜΟΣ
ΑΚΕΡΑΙΕΣ: ΗΛΙΚΙΑ,ΧΡΟΝΟΛΟΓΙΑ
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΧΡΟΝΟΛΟΓΙΑ,ΗΛΙΚΙΑ
ΧΡΟΝΟΣ_ΓΕΝΝΗΣΗΣ<-ΧΡΟΝΟΛΟΓΙΑ-ΗΛΙΚΙΑ
ΓΡΑΨΕ ΧΡΟΝΟΣ_ΓΕΝΝΗΣΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 6:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ06
ΜΕΤΑΒΛΗΤΕΣ:
ΧΑΡΑΚΤΗΡΕΣ: απαντηση
ΠΡΑΓΜΑΤΙΚΟΙ: βαθμοςα ,βαθμοςβ ,μο, ποσοστο
ΔΙΑΒΑΣΕ βαθμοςα, βαθμοςβ
μο = ( βαθμοςα + βαθμοςβ )/2
ΑΝ ( βαθμοςα > βαθμοςβ ) ΤΟΤΕ
ποσοστο= ( (βαθμοςα div βαθμοςβ )+ (βαθμοςα mod βαθμοςβ ) -1)*100
ΑΛΛΙΩΣ_ΑΝ ( βαθμοςα < βαθμοςβ ) ΤΟΤΕ
ποσοστο= ( (βαθμοςβ div βαθμοςα )+ (βαθμοςβ mod βαθμοςα ) -1)*100
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 7:⌗
ΠΡΟΓΡΑΜΜΑ AΣK07
ΣΤΑΘΕΡΕΣ:
πάγιο = 2
ΜΕΤΑΒΛΗΤΕΣ:
ΑΚΕΡΑΙΕΣ: mb ,counter
ΠΡΑΓΜΑΤΙΚΕΣ: χρέωση, φόρος, ΦΠΑ ,χρεωση1
ΧΑΡΑΚΤΗΡΕΣ: Ονομα,Ονομα1
ΑΡΧΗ
counter<-0
ΟΣΟ counter<2
ΔΙΑΒΑΣΕ όνομα, mb
ΑΝ mb <= 200 ΤΟΤΕ
χρέωση <- πάγιο + 0.04 * mb
ΑΛΛΙΩΣ_ΑΝ mb <= 500 ΤΟΤΕ
χρέωση <- πάγιο + 0.04 * 200 + 0.05 * (mb - 200)
ΑΛΛΙΩΣ_ΑΝ mb <= 1024 ΤΟΤΕ
χρέωση <- πάγιο + 0.04 * 200 + 0.05 * 500 + 0.10 * (mb - 500)
ΑΛΛΙΩΣ_ΑΝ mb > 1024
χρέωση <- πάγιο + 0.04 * 200 + 0.05 * 500 + 0.10 * 140 + 0.23 * (mb - 1024)
ΤΕΛΟΣ_ΑΝ
φόρος <- χρέωση * 0.02
ΦΠΑ <- χρέωση * 0.24
χρέωση <- χρέωση + φόρος + ΦΠΑ
ΑΝ counter=0 ΤΟΤΕ
χρεωση1<-χρεωση
Ονομα1<-Ονομα
ΤΕΛΟΣ_ΑΝ
counter<- counter+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
AN χρεωση1>χρεωση ΤΟΤΕ
ΓΡΑΨΕ Ονομα1 ,"Πλήρωσε περισσότερα"
ΑΛΛΙΩΣ
ΓΡΑΨΕ Ονομα ,"Πλήρωσε περισσότερα"
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΑΣΚ07
Άσκηση 8Α:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ08A
ΜΕΤΑΒΛΗΤΕΣ:
ΑΚΕΡΑΙΕΣ:Χ
ΠΡΑΓΜΑΤΙΚΕΣ:fx
ΑΡΧΗ
ΔΙΑΒΑΣΕ Χ
ΑΝ Χ=1 ΤΟΤΕ
ΓΡΑΨΕ: "Η συνάρτηση δεν ορίζεται για χ=1"
ΑΛΛΙΩΣ
fx<- (4*X+ημ(X))
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ fx
ΤΕΛΟΣ ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 8Β:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ08B
ΜΕΤΑΒΛΗΤΕΣ:
ΑΚΕΡΑΙΕΣ:Χ
ΠΡΑΓΜΑΤΙΚΕΣ:fx
ΑΡΧΗ
ΔΙΑΒΑΣΕ Χ
ΑΝ Χ=1 ΤΟΤΕ
ΓΡΑΨΕ: "Η συνάρτηση δεν ορίζεται για χ=1"
ΑΛΛΙΩΣ
fx<- (4*α*χ^2-(2^(1/2)))
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ fx
ΤΕΛΟΣ ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 8C:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ08D
ΜΕΤΑΒΛΗΤΕΣ:
ΑΚΕΡΑΙΕΣ:Χ
ΠΡΑΓΜΑΤΙΚΕΣ:fx
ΑΡΧΗ
ΔΙΑΒΑΣΕ Χ
ΑΝ Χ=1 ΤΟΤΕ
ΓΡΑΨΕ: "Η συνάρτηση δεν ορίζεται για χ=1"
ΑΛΛΙΩΣ
fx<- (3*(X^(X^2))+ημ(3*X)-4)/((X-1)^2)
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ fx
ΤΕΛΟΣ ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 8C:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ08C
ΜΕΤΑΒΛΗΤΕΣ:
ΑΚΕΡΑΙΕΣ:Χ
ΠΡΑΓΜΑΤΙΚΕΣ:fx
ΑΡΧΗ
ΔΙΑΒΑΣΕ Χ
ΑΝ Χ=1 ΤΟΤΕ
ΓΡΑΨΕ: "Η συνάρτηση δεν ορίζεται για χ=1"
ΑΛΛΙΩΣ
fx<- (e^X-1)/3
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ fx
ΤΕΛΟΣ ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 8D:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ08D
ΜΕΤΑΒΛΗΤΕΣ:
ΑΚΕΡΑΙΕΣ:Χ
ΠΡΑΓΜΑΤΙΚΕΣ:fx
ΑΡΧΗ
ΔΙΑΒΑΣΕ Χ
ΑΝ Χ=1 ΤΟΤΕ
ΓΡΑΨΕ: "Η συνάρτηση δεν ορίζεται για χ=1"
ΑΛΛΙΩΣ
fx<- (3*(X^(X^2))+ημ(3*X)-4)/(X-1)^2
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ fx
ΤΕΛΟΣ ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 8E:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ08E
ΜΕΤΑΒΛΗΤΕΣ:
ΑΚΕΡΑΙΕΣ:Χ
ΠΡΑΓΜΑΤΙΚΕΣ:fx
ΑΡΧΗ
ΔΙΑΒΑΣΕ Χ
ΑΝ Χ=1 ΤΟΤΕ
ΓΡΑΨΕ: "Η συνάρτηση δεν ορίζεται για χ=1"
ΑΛΛΙΩΣ
fx<- ((3*(X^(X^2))+ημ(3*X)-4)/(X-1)^2)/(x-1)
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ fx
ΤΕΛΟΣ ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 9:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ09
ΜΕΤΑΒΛΗΤΕΣ:
ΠΡΑΓΜΑΤΙΚΕΣ:ΤΙΜΗΦΠΑ,ΦΠΑ,ΤΙΜΗ,ΤΙΜΗΧΩΡΙΣ
ΧΑΡΑΚΤΗΡΕΣ: ΕΠΙΛΟΓΗ
ΑΡΧΗ
ΔΙΑΒΑΣΕ ΕΠΙΛΟΓΗ
ΟΣΟ ΕΠΙΛΟΓΗ!='δ' ΕΠΑΝΑΛΑΒΕ
ΑΝ ΕΠΙΛΟΓΗ='α' ΤΟΤΕ
ΔΙΑΒΑΣΕ ΤΙΜΗ
ΤΙΜΗ<- ΤΙΜΗ + ΤΙΜΗ*ΦΠΑ
ΑΛΛΙΩΣ_ΑΝ ΕΠΙΛΟΓΗ='β' ΤΟΤΕ
ΔΙΑΒΑΣΕ ΤΙΜΗ
ΤΙΜΗ<- ΤΙΜΗ-ΤΙΜΗ*ΦΠΑ
ΑΛΛΙΩΣ_ΑΝ ΕΠΙΛΟΓΗ='δ' ΤΟΤΕ
ΔΙΑΒΑΣΕ ΤΙΜΗΧΩΡΙΣ,ΤΙΜΗΦΠΑ
ΤΙΜΗ<- ( ΤΙΜΗΦΠΑ-ΤΙΜΗΧΩΡΙΣ )/ΤΙΜΗΧΩΡΙΣ
ΑΛΛΙΩΣ
ΓΡΑΨΕ "INVALID "
ΤΕΛΟΣ_ΑΝ
ΔΙΑΒΑΣΕ ΕΠΙΛΟΓΗ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Άσκηση 10:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚΗΣΗ10
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Χωρητικότητα, Μέγεθος, Πλήθος_Αρχείων, Πλήθος_12Άνω, Min1, Min2
ΠΡΑΓΜΑΤΙΚΕΣ: Ποσοστό
ΧΑΡΑΚΤΗΡΕΣ: Όνομα, Όνομα_Min1, Όνομα_Min2
ΛΟΓΙΚΕΣ: Τέλος_Αποθήκευσης
ΑΡΧΗ
! Γ1
Πλήθος_Αρχείων <-- 0
Πλήθος_10Άνω <-- 0
Χωρητικότητα <-- 600
Τέλος_Αποθήκευσης <-- ΨΕΥΔΗΣ
Min1 <-- 1001 ! Βλέπε παράδειγμα 3, Κεφάλαιο 2
Min2 <-- 1002
Όνομα_Min1 <-- 'ΤΥΧΑΙΟ' ! Σημαντική Λεπτομέρεια που δυστυχώς παραλείπεται συχνά
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΔΩΣΤΕ ΟΝΟΜΑ ΑΡΧΕΙΟΥ: '
ΔΙΑΒΑΣΕ Όνομα
ΓΡΑΨΕ 'ΔΩΣΤΕ ΜΕΓΕΘΟΣ ΑΡΧΕΙΟΥ: '
ΔΙΑΒΑΣΕ Μέγεθος
ΑΝ Χωρητικότητα - Μέγεθος > 0 ΤΟΤΕ
Χωρητικότητα <-- Χωρητικότητα - Μέγεθος
Πλήθος_Αρχείων <-- Πλήθος_Αρχείων + 1 ! Γ2
ΓΡΑΨΕ 'Επιτρεπτή αποθήκευση'
ΑΝ Μέγεθος > 10 ΤΟΤΕ ! Γ2
Πλήθος_10Άνω <-- Πλήθος_10Άνω + 1
ΤΕΛΟΣ_ΑΝ
! Γ3
ΑΝ Μέγεθος < Min2 ΤΟΤΕ
ΑΝ Μέγεθος < Min1 ΤΟΤΕ
Min2 <-- Min1
Όνομα_Min2 <-- Όνομα_Min1
Min1 <-- Μέγεθος
Όνομα_Min1 <-- Όνομα
ΑΛΛΙΩΣ
Min2 <-- Μέγεθος
Όνομα_Min2 <-- Όνομα
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
Τέλος_Αποθήκευσης <-- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ (Τέλος_Αποθήκευσης = ΑΛΗΘΗΣ)
! Γ2
Ποσοστό <-- Πλήθος_12Άνω / Πλήθος_Αρχείων * 100
ΓΡΑΨΕ 'Ποσοστό Αρχείων Άνω των 12GB: ', Ποσοστό
! Γ3
ΓΡΑΨΕ 'Μικρότερο Αρχείο 1: ', Όνομα_Min1, ' Χωρητικότητα: ', Min1
ΓΡΑΨΕ 'Μικρότερο Αρχείο 2: ', Όνομα_Min2, ' Χωρητικότητα: ', Min2
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Υποστηρίξτε το Project για να συνεχίσουμε να παράγουμε εκπαιδευτικό υλικό.⌗
Προσοχή: Από τις 28 Δεκεμβρίου το Project Panellinies_AEPP απενεργοποιεί όλες τις διαφημίσεις πάνω στο εκπαιδευτικό υλικό. Τo Project πλέον λειτουργεί και υποστηρίζεται αποκλειστικά από τις χορηγίες σας σε Basic Attention Token (BAT) μέσω του Brave Browser στο κανάλι στο Youtube καθώς και σε άλλα κρυπτονομίσματα στις παρακάτω διευθύνσεις:
Bitcoin: bc1q6j959m3whh44ztr8k6p7545n5pzcsncple7qmy
Ethereum: 0x3f27F05Ca28a5B5F876A3A7d435E2E852756F873
Cardano: addr1qxewtm0y5yk2mgf93ct4ghguus2shu34fu786t62j3tv7296evenhmr0ltmx3hdyw4d6d8gj8qspry5pe3raaw4nu8as7jsr9l
Monero: 46ewn3rgXMSceuEUEng1bze1RzG61rEiFV3hJ6VKuzvHU62jPntydJRBcFinQ62Pad8AvdoX9YbQcY5HKX3Cr3UQPkhiQ4L
VeChain:0x3f27F05Ca28a5B5F876A3A7d435E2E852756F873
Shiba:0x3f27F05Ca28a5B5F876A3A7d435E2E852756F873
AIOZ:0x3f27F05Ca28a5B5F876A3A7d435E2E852756F873
Για το πώς θα κερδίσετε δωρεάν BAT, διαβάστε αυτό το άρθρο κάνοντας κλικ εδώ
