Πρόγραμμα με Διαδικασίες με παραμέτρους και κυρίως πρόγραμμα μαζί
program Ex_with_procedures;
var
a,b,c:integer;
procedure diadikasia(var x,z,sum:integer);
begin
writeln('Αυτό κάνει η διαδικασία μου, προσθέτει 2 τιμές και εμφανίζει το αποτέλεσμα στην οθόνη');
sum := x + z;
end;
begin {αυτό είναι το κυρίως μου πρόγραμμα}
writeln('Θα δοκιμάσω μια διαδικασία');
a:= 5;
b:= 4;
diadikasia(a,b,c);{εδώ καλώ τη διαδικασία μου}
writeln(c);
end.
program Ex_with_procedures;
var
a,b,c:integer;
procedure diadikasia(var x,z,sum:integer);
begin
writeln('Αυτό κάνει η διαδικασία μου, προσθέτει 2 τιμές και εμφανίζει το αποτέλεσμα στην οθόνη');
sum := x + z;
end;
begin {αυτό είναι το κυρίως μου πρόγραμμα}
writeln('Θα δοκιμάσω μια διαδικασία');
a:= 5;
b:= 4;
diadikasia(a,b,c);{εδώ καλώ τη διαδικασία μου}
writeln(c);
end.
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου