Δημιουργώντας το πρώτο μας πρόγραμμα (Μέσος Όρος)

ben

Με βάση το προηγούμενο μας πρόγραμμα

http://www.greek-visions.com/t886-topic

Ξεκινάμε ένα μικρό προγραμματάκι

Δημιουργία εισαγωγής του ονόματος του, ενός μαθήματος και διάβασμα βαθμολογίας και εξετάσεων του και ο μέσος όρος του

Κώδικας:
program vathmologia;
uses crt;
var onoma:string;
vath1,vath2:integer;
mo:real;
Begin
write('Όνομα μαθητή:');
read(onoma);
write('Πρώτος Βαθμός:');
read(vath1);
write('Δεύτερος Βαθμός:');
read(vath2);
mo:=vath1 vath2/2;
write('Ο μέσος όρος είναι:',mo:2:2);
End.

Έβαλα εύκολες λέξεις δεν είναι δύσκολο να καταλάβετε τι εννοώ από εκεί και έπειτα:

write=γράψε
read=διάβασε

Του λέμε να διαβάσει την μεταβλητή που του δηλώσαμε (είτε κείμενο είτε πραγματικός είτε ότι άλλο είναι)
Και μετά όταν θέλουμε να μας εμφανίσει ένα κείμενο για να ξέρουμε βεβαία τι διαβάζει και τι όχι βάζουμε αυτάκια όπως έχει και πάνω στην εικόνα με αγκύλες δίπλα...
Πάντα βάζουμε το γράψε και μετά το διάβασε για να μην γίνει κανένα λάθος.
Στην συνεχεία

Παράθεση:

mo:=vath1 vath2/2;
write('Ο μέσος όρος είναι:',mo:2:2);

Η πάνω η πράξη είναι που κάνουμε για να βρούμε τον μεσώ όρο το μόνο που αλλάζει όπως αυτό που έχουμε στο var και σε άλλα είναι το ίσον που δηλώνει μια πράξη

Τέλος για να εμφανίσει του λέμε γράψε του βάζουμε το μήνυμα που θέλουμε μετά κώμα και την μεταβλητή που θέλουμε και για να μην βγει "ατσούμπαλος" αριθμός βάζουμε μορφοποίηση 2:2 για να βγει δεκαδικός ή κάτι άλλο

*Στην εικόνα λείπει ένα ερωτηματικό γι αυτό πάρτε τον κωδικά από το θέμα

Πατάμε αυτό που έχω βάλει σε κουτάκι και το πρόγραμμα μας τρέχει κανονικά
Τα πνευματικά δικαιώματα αυτού του άρθρου υπόκεινται υπό την ιδιοκτησία του ιστοχώρου μας http://greekvisions.blogspot.gr και www.greek-visions.com.
Για οποιαδήποτε αναδημοσίευση παρακαλούμε να αναφέρετε ως πηγή τουλάχιστον ένα από τα δύο ιστολόγια.

About ben

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.