Αφαίρεση αρνητικών αριθμών από μια λίστα με την χρήση της μεθόδου pop()

Πρόγραμμα με συνάρτηση που αφαιρεί τους αρνητικούς αριθμούς από μία λίστα ακεραίων αριθμών.

Η διάσχιση της λίστας πρέπει να γίνει από το τέλος προς την αρχή της λίστας για να μην παραλείπονται θέσεις και να μην έχουμε το μήνυμα "out of range", δηλαδή να ελέγχουμε μία θέση της λίστας που δεν υπάρχει πλέον.

Πρόγραμμα

[1, -2, -5, 3, 5, 87, 23, 78, -1923, -5, -45, -53, 100]
[1, 3, 5, 87, 23, 78, 100]

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

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 (περίπου)




Απάντηση

Πρόγραμμα με χαρακτηρισμό βαθμού

Να γίνει πρόγραμμα σε Pascal που να διαβάζει έναν βαθμό από το 0 έως το 20 (επιτρέπονται δεκαδικά ψηφία) και να εμφανίζει τον  αντίστοιχο χαρακτηρισμό:

• Ανεπαρκώς αν ο βαθμός είναι μεγαλύτερος ή ίσος με το 0 και μικρότερος ή ίσος με το 9
• Μέτρια αν ο βαθμός είναι μεγαλύτερος από το 9 και μικρότερος ή ίσος με το 12
• Καλά αν ο βαθμός είναι μεγαλύτερος από το 12 και μικρότερος ή ίσος με το 15
• Πολύ Καλά αν ο βαθμός είναι μεγαλύτερος από το 15 και μικρότερος ή ίσος με το 18
• Άριστα αν ο βαθμός είναι μεγαλύτερος από το 18 και μικρότερος ή ίσος με το 20 

Λύση:

Program vathmos;
var v:real;
Begin
    repeat
        write('Δώσε έναν βαθμό μεταξύ 0 και 20 :');
        readln(v);
    until (v>=0) and (v<=20);
    if (v>=0) and (v<=9) then
    writeln('Ανεπαρκώς');
    if (v>9) and (v<=12) then
    writeln('Μέτρια');
    if (v>12) and (v<=15) then
    writeln('Καλά');
    if (v>15) and (v<=18) then
    writeln('Πολύ Καλά');
    if (v>18) and (v<=20) then
    writeln('Άριστα');
End.

Εύρεση μεγαλύτερου αριθμού

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

Λύση:

Program find_max;
var a,i,max,n:integer;
Begin
    write('Δώσε το πλήθος ν των αριθμών :');
    readln(n);
    write('Δώσε τον 1ο αριθμό :');
    readln(a);
    max:=a;
    for i:=2 to n do
    begin
        write('Δώσε τον ',i,'ο αριθμό :');
        readln(a);
        if a>max then
            max:=a;
    end;
    writeln('Ο μεγαλύτερος είναι ο :',max);
End.

Επίλυση πρωτοβάθμιας εξίσωσης με την PASCAL

Program prwtovathmia;
Uses crt;
Var a,b:integer;
x:real;
Begin
Clrscr;
Repeat
         Write('Δώσε τον Α:');
         Readln(a);
Until a<>0;
Write('Δώσε τον Β:');
Readln(b);
x:=-b/a;
Writeln('To x einai ',x:8:2);
Readln;
End.

Αντιστροφή διψήφιου αριθμού

program antistrofi;
var a,b,c,d:integer;
begin
repeat
    write('Δώσε έναν διψήφιο αριθμό:');
    readln(a);
until (a>=10) and (a<=99);
b:=a div 10;
c:=a mod 10;
d:=c*10+b;
writeln('Ο αντίστροφος είναι:',d);
End.

Ακέραια Διαίρεση

Πρόγραμμα σε Pascal που υπολογίζει το πηλίκο και το υπόλοιπο ακέραιας διαίρεσης.
Π.χ. Αν διαιρέσουμε το 9 με το 2, το πηλίκο είναι 4 (το 2 χωράει 4 φορές στο 9) και το υπόλοιπο είναι 1 (περισσεύει 1, 9-4 Χ 2=9-8=1).






Program diairesi;
Uses crt;
Var a,b,c,d:integer;
Begin
Clrscr;
     Write('Δώσε τον διαιρετέο:');
     Readln(a);
     Write('Δώσε τον διαιρέτη:');
     Readln(b);
     c:=a div b;
     d:=a mod b;
     Writeln('Το πηλίκο είναι:',c);
     Writeln('Το υπόλοιπο είναι:',d);
     Readln;
End.

Προπαίδεια με Pascal

Program multi;
uses crt;
var i,j:integer;
Begin
clrscr;
for i:=1 to 10 do
begin
    for j:=1 to 10 do
        write(i*j:5);
    writeln;
end;
readln;
End.

Άσκηση Pascal

Να γράψετε πρόγραμμα σε Pascal που διαβάζει 4 βαθμούς, υπολογίζει τον Μέσο Όρο τους και τον τυπώνει.
Αν ο Μέσος Όρος είναι πάνω από 15 θα τυπώνει το μήνυμα "Επιτυχών" αλλιώς θα τυπώνει το μήνυμα "Όχι Επιτυχών".

 Λύση Άσκησης

Winrar Πρόγραμμα συμπίεσης αρχείων

Winrar download

Ελεύθερο πρόγραμμα επεξεργασίας ήχου Audacity

Εδώ μπορούμε να κάνουμε download το ελεύθερο πρόγραμμα επεξεργασίας ήχου Audacity

Άσκηση με το πρόγραμμα Xara 3D 6

Δημιουργήστε με το πρόγραμμα επεξεργασίας 3Δ κειμένου XARA 3D την παρακάτω εικόνα. Δοκιμάστε την εξαγωγή της εικόνας σε μορφή στατικής εικόνας jpg, σε μορφή gif με διαφανές φόντο και σε μορφή animation gif!

05-04-11 Πρόγραμμα Πανελλαδικών Εξετάσεων σχολικού έτους 2010-2011 για την εισαγωγή στην Ανώτατη Εκπαίδευση

Πηγή: Υπουργείο Παιδείας

Πρόγραμμα