Procedures - Άσκηση 1 - Χαρακτηρισμός ακινήτου με βάση την τιμή του

Ετικέτες: 
Ένα μεσιτικό γραφείο χαρακτηρίζει με βάση την τιμή τους τα ακίνητά που διαχειρίζεται όπως φαίνεται στον παρακάτω πίνακα:
 
Τιμή Ακινήτου
Χαρακτηρισμός
Μικρότερη από 150.000
Φθηνό
150.000 έως 250.000
Ακριβό
Μεγαλύτερη από 250.000
Πολύ Ακριβό
Να κατασκευάσετε πρόγραμμα σε Pascal το οποίο:
  • Διαβάζει την τιμή του ακινήτου.
  • Καλεί διαδικασία με όνομα "AKINHTO" η οποία δέχεται την τιμή του ακινήτου και επιστρέφει τον χαρακτηρισμό του ακινήτου.
  • Εμφανίζει με κατάλληλο μήνυμα τον χαρακτηρισμό του ακινήτου.
 
Λύση: 
program mesitiko;
var
timh:real;
xarakthrismos:string[15];
Procedure AKINHTO(timh:real; var xarakthrismos:string);
begin
if (timh<150000)
    then xarakthrismos:='Φθηνό';
if (timh>=150000) and (timh<=250000)
    then xarakthrismos:='Ακριβό';
if (timh>250000)
    then xarakthrismos:='Πολύ Ακριβό';
end;

 
begin
write('Δώσε τιμή ακινήτου..:');
readln(timh);
AKINHTO(timh,xarakthrismos);
writeln('Με βάση τη τιμή του αυτό το ακινήτο χαρακτηρίζεται ως..:',xarakthrismos);
end.
 
Παρατηρήσεις: 
Οι παράμετροι στις διαδικασίες χωρίζονται σε δύο κατηγορίες, στις παραμέτρους τιμών (value parameter) και στις παραμέτρους μεταβλητών (variable parameter). Οι παράμετροι τιμών δεν επιστρέφουν τιμές από τη διαδικασία στο πρόγραμμα, τις χρησιμοποιούμε για να περάσουμε απλά τιμές από το πρόγραμμα προς τη διαδικασία γι' αυτό και πολλές φορές ονομάζονται παράμετροι εισόδου. Οι παράμετροι μεταβλητών μπορούν να μεταφέρουν μια τιμή από το πρόγραμμα στη διαδικασία αλλά και το αντίστροφο. Οι παράμετροι μεταβλητών δηλώνονται στην επικεφαλίδα της διαδικασίας μετά τη λέξη var. Στην άσκησή μας έχουμε 2 παραμέτρους, την παράμετρο timh η οποία είναι παράμετρος τιμής και την παράμετρο xarakthrismos η οποία είναι παράμετρος μεταβλητής και επιστρέφει τον χαρακτηρισμό του ακινήτου στο πρόγραμμα.