Μέσο ύψος μαθητών

Program ypsos;
var s,i,y:integer;
mo:real;
Begin
s:=0;
i:=0;
repeat
write('Δώσε το ύψος του μαθητή: ');
readln(y);
i:=i+1;
s:=s+y;
until y=0;
mo:=s/(i-1);
writeln('Το μέσο ύψος είναι: ',mo:8:2);
End.

Εκτέλεση:

Δώσε το ύψος του μαθητή: 160
Δώσε το ύψος του μαθητή: 150
Δώσε το ύψος του μαθητή: 180
Δώσε το ύψος του μαθητή: 0
Το μέσο ύψος είναι:   163.33

Έλεγχος αν ένα τρίγωνο είναι ισοσκελές

Να γίνει πρόγραμμα σε pascal που να διαβάζει το μήκος των 3 πλευρών ενός τριγώνου και να ελέγχει και να εμφανίζει μήνυμα αν το τρίγωνο είναι ισοσκελές ή όχι. Ένα τρίγωνο είναι ισοσκελές όταν έχει δυο πλευρές ίσες.








Απάντηση

Αντίστροφη μέτρηση έως το 0

Να γίνει πρόγραμμα σε pascal που να διαβάζει έναν θετικό ακέραιο αριθμό και να εμφανίζει την αντίστροφη μέτρηση από αυτόν τον αριθμό έως το 0. Να γίνει χρήση της δομής επανάληψης repeat..until.






Απάντηση

Περίμετρος και εμβαδό κύκλου

Να γραφτεί πρόγραμμα σε Pascal που να διαβάζει την ακτίνα ενός κύκλου (σε εκατοστά) και να υπολογίζει και να εμφανίζει την περίμετρο και το εμβαδό του κύκλου.

Οι τύποι είναι:
Περίμετρος=2*π*ακτίνα
Εμβαδό=π*ακτίνα*ακτίνα (π * ακτίνα στο τετράγωνο)
Όπου π=3,14 (περίπου)




Απάντηση