Τύποι οριζόμενοι από το χρήστη

Διομήδης Σπινέλλης
Τμήμα Διοικητικής Επιστήμης και Τεχνολογίας
Οικονομικό Πανεπιστήμιο Αθηνών
dds@aueb.gr

Ορισμός τύπων

H Pascal μας επιτρέπει να ορίσουμε νέους τύπους βασισμένους σε τύπους που υπάρχουν με τη δήλωση TYPE. Η δήλωση αυτή γίνεται πριν από τη δήλωση των μεταβλητών.

Παράδειγμα:

type
	force = real;
	mass = real;
	acc = real;

var
	carMass : mass;
	carAcc : acc;

function theForce(m : mass; a : acc) : force;
begin
	theForce := m * a
end;

begin
	readln(carMass);
	readln(carAcc);
	writeln(theForce(carMass, carAcc)
end.

Τύποι υποπεριοχής

Μπορούμε ακόμα να ορίσουμε νέους τύπους ως τύπους υποπεριοχής σε σχέση με υπάρχοντες τακικούς τύπους.

Παράδειγμα:

type
	upper = 'A' .. 'Z';
	lower = 'a' .. 'z';
	months = 1..12;

Απαριθμήσιμοι τακτικοί τύποι

Τέλος, μπορούμε να ορίσουμε απαριθμήσιμους τακτικούς τύπους ως σύνολο ονομασμένων τιμών με διάταξη που ορίζει ο χρήστης.

Παράδειγμα:

type
	ScreenColor = (Red, Green, Blue);
	Shape = (Line, Triangle, Rectangle, Circle);

Τους απαριθμήσιμους τακτικούς τύπους μπορούμε να τους χρησιμοποιήσουμε σχεδόν όπως και τους υπόλοιπους τακτικούς τύπους. Δεν μπορούμε να τους διαβάσουμε με την εντολή ReadLn και να τους τυπώσουμε με την εντολή WriteLn.

Παράδειγμα:

Program EnumExample;
type
	ScreenColor = (Red, Green, Blue);
var
	Color : ScreenColor;
begin
	Color := Red;
	while Color < Blue do
	begin
		writeln(ord(Color));
		Color := succ(Color)
	end
end.

Βιβλιογραφία

Θ. Αλεβίζου, Α. Καμπουρέλη Μαθήματα προγραμματισμού: Εισαγωγή με τη γλώσσα Pascal. σ. 194-201. Θυμέλη, 1995.

Doug Cooper and Michael Clancy. Oh! Pascal, pages 300–302. W. W. Norton & Company, second edition, 1985.

Ασκήσεις

Pascal 05

Να γραφεί πρόγραμμα σε Pascal το οποίο να διαβάζει από το χρήστη το ύψος από την επιφάνεια της γης στο οποίο βρίσκεται ένα αντικείμενο και να τυπώνει το χρόνο που θα διαρκέσει η ελεύθερη πτώση του σύμφωνα με τους παρακάτω περιορισμούς:
1. Ο υπολογισμός να γίνεται με τη βοήθεια συνάρτησης.
2. Όλοι οι τύποι φυσικών μεγεθών να οριστούν ξεχωριστά.
3. Η σταθερά της βαρύτητας να οριστεί ως σταθερά της Pascal.

Περισσότερες λεπτομέρειες για τις ασκήσεις

Περιεχόμενα