Κοµπιουτεράκι µε functions
program Calculator4(input, output); var x1, x2, apotelesma: real; praxh: char; function PROSTHESE (x, y : real ): real; begin PROSTHESE := x + y end;…
program Calculator4(input, output); var x1, x2, apotelesma: real; praxh: char; function PROSTHESE (x, y : real ): real; begin PROSTHESE := x + y end;…
function DISECTO (ETOS: integer):boolean; {υπολογίζει αν το ETOS είναι δίσεκτο} begin DISECTO:= (ETOS mod 4 = 0) and ( (ETOS mod 100 <> 0) or (ETOS mod…
Γιατί Πρέπει να Μάθουμε την Pascal Η Pascal παραμένει πάντα μια πολύ χρήσιμη γλώσσα, ιδιαίτερα κατάλληλη για διδασκαλία. Οι C και C++ είναι πολύ συμβολικές…