program Mesos_Oros;

var bathmos1, bathmos2: byte;

var MO: real;

begin

bathmos1:=15;      { αρχική τιμή }

bathmos2:=18;      { αρχική τιμή }

MO:=(bathmos1+bathmos2)/2;

writeln ('Ο Μέσος Όρος είναι :', MO);

end.

program Mesos_Oros2;

var bathmos1, bathmos2: byte;

var MO: real;

begin

Write ('Δώσε τον 1^ο βαθμό : ');

readln (bathmos1);       { είσοδος από πληκτρολόγιο }

Write ('Δώσε τον 2^ο βαθμό: ');

readln (bathmos2);        { είσοδος από πληκτρολόγιο }

MO:=(bathmos1+bathmos2)/2;

writeln ('Ο Μέσος Όρος είναι :', MO);

 end.

Ορίζουμε την μεταβλητή ΜΟ (που αντιστοιχεί στο μέσο όρο) ως real (πραγματικό αριθμό.) Στο πρόβλημα η βαθμολογία δεν δίνεται από το πληκτρολόγιο. Οι βαθμολογίες έχουν αρχικές τιμές 15 και 18.

Στο πρόβλημα η βαθμολογία  δίνεται από το πληκτρολόγιο με την βοήθεια των εντολών εισόδου  readln

program XARAKTIRAS;

 var x: char;

begin

write ('Γράψε ένα χαρακτήρα: ');

readln (x);

Writeln ('O x = ',x);

end.

program KEIMENO;

var x: string;

begin

write (‘Γράψε μια φράση: ‘);

readln (x);

Writeln (‘O x = ‘,x);

end.

Εισάγουμε από το πληκτρολόγιο ένα μόνο χαρακτήρα ο οποίος αποθηκεύεται στην μεταβλητή x.

Εισάγουμε από το πληκτρολόγιο μια ολόκληρη φράση η οποία αποθηκεύεται στην μεταβλητή x.

program Logikes;

var x,y: boolean;

begin

x:=true;

y:=false;

Writeln ('O x = ',x);

Writeln ('O y = ',y);

end.

program Logikes1;

var x: boolean;

begin

x:=false;

if (x=true) then

   Writeln ('O x = TRUE');

  else

   Writeln ('O x = FALSE');

end.

Οι μεταβλητές Boolean παίρνουν μόνο δύο τιμές ή true (αλήθεια) ή false (ψέμα)

program Mathites2;

var Onoma, Eponimo: string;

begin

Onoma:='Anna';               { αρχική τιμή }

Eponimo:='Diamadi';        { αρχική τιμή }

Writeln ('Η Μαθήτρια  ', Onoma, ' ',Eponimo);

end.

program Mathites;

var Onoma, Eponimo: string;

begin

write ('Dose to ONOMA: ');

readln (Onoma);

write ('Dose to EPONYMO: ');

readln (Eponimo);

Writeln ('Ο Μαθητής  ', Onoma, ' ',Eponimo);

end.

Στο πρόβλημα τα ονόματα δεν δίνονται από το πληκτρολόγιο. Τα ονόματα έχουν αρχικές τιμές Anna και Diamadi.

Στο πρόβλημα τα ονόματα δίνονται από το πληκτρολόγιο με την βοήθεια των εντολών εισόδου  readln.

program Mathitologio;

var Onoma, Eponimo: string;

var bathmos1, bathmos2: byte;

var MO: real;

Begin

Write (‘Δώσε το Όνομα του μαθητή: ‘);

Readln (Onoma);

Write (‘Δώσε το Επώνυμο του μαθητή: ‘);

readln (Eponimo);

Write (‘Δώσε τον 1^ο Βαθμό : ‘);

readln (Bathmos1);

Write (‘Δώσε τον 2^ο Βαθμό : ‘);

readln (Bathmos2); 

MO:=(Bathmos1+Bathmos2)/2;

Write (‘Ο Μαθητής ‘, Onoma, ‘ ‘,Eponimo);

writeln(‘ έχει Μέσο Όρο : ‘,MO); 

end.

Program Stathera;

Const  mines = 12;   { δήλωση σταθεράς }

var miniatiko : integer;

var Synolo : integer;

Begin

Write(‘Δώσε το μηνιάτικο : ‘);

Readln(miniatiko);

Synolo:=miniatiko*mines;

Writeln(‘Ετήσιος μισθός = ‘, Synolo);

End.

Στο πρόγραμμα δίνονται από το πληκτρολόγιο το όνομα και το επώνυμο του μαθητή που αποθηκεύονται σε μεταβλητές τύπου string. Επίσης δίνονται οι δύο βαθμολογίες που αποθηκεύονται σε μεταβλητές τύπου Byte και τέλος υπολογίζεται ο μέσος όρος της βαθμολογίας που αποθηκεύεται σε μεταβλητή τύπου real.

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