Αποστολέας Θέμα: Pascal  (Αναγνώστηκε 36635 φορές)

aleremain

  • Θαμώνας
  • ***
  • Μηνύματα: 28
Απ: Pascal
« Απάντηση #120 στις: 24 Μάρ 2009, 05:08:01 μμ »
Στη σελίδα του ypepth, δεν έχει βγει κάτι επίσημα;

vellamos

  • Νέος
  • *
  • Μηνύματα: 4
Απ: Pascal
« Απάντηση #121 στις: 24 Μάρ 2009, 08:53:41 μμ »
εγω σαν μαθητης μπορω να πω οτι ειναι πολυ ευκολος ο προγραμματισμος.λυνο πρωτα στο χαρτι ολα τα προγραμματα και ειναι πιο ευκολο. ισως πρεπει να το δοκιμασεται και οι καθηγητες στα παιδια. ειδικα οι πινακες ειναι πολυ ευκολοι. φιλικα και ελπιζω να μην προσβαλω καποιον

iliasthes

  • Δεινόσαυρος
  • *****
  • Μηνύματα: 790
Απ: Pascal
« Απάντηση #122 στις: 24 Μάρ 2009, 09:33:18 μμ »
Όλα είναι εύκολα, αρκεί να θέλεις να τα μάθεις. Αν θέλεις (αν έχεις κίνητρο δηλαδή) και σου αρέσει κάτι το μαθαίνεις. Οι μέθοδοι είναι πολλές και κάθε μέθοδος έχει αποτέλεσμα και σε διαφορετικά άτομα. Άλλοι προτιμάνε να λύνουνε σε χαρτί, άλλοι το θεωρούνε βαρετό, αφού βρήκες τον τρόπο που μαθαίνεις καλύτερα εσύ, αυτό είναι καλό για σένα και σε βοηθάει να μάθεις καλύτερα.

Επέτρεψε μου όμως κάτι. Οι πίνακες είναι εκτός ύλης. Είναι στο Κεφ 14.

xryka

  • Βετεράνος
  • ****
  • Μηνύματα: 66
  • Γράψτε το προσωπικό σας σλόγκαν!
Απ: Pascal
« Απάντηση #123 στις: 25 Μάρ 2009, 08:42:56 μμ »
Η ομάδα Α θα δώσει παν-νιες το πρώτο δεκαήμερο του Ιουνίου...προφανώς μετά τις ενδοσχολικές εξετάσεις.

xryka

  • Βετεράνος
  • ****
  • Μηνύματα: 66
  • Γράψτε το προσωπικό σας σλόγκαν!
Απ: Pascal
« Απάντηση #124 στις: 29 Μάρ 2009, 10:11:22 μμ »
Τις ασκήσεις 2 και 3 σελίδα 124 τις έχει λύσει κανείς;;;
Πώς τις κάνατε με επανάληψη όπου θα καλεί τις διαδικασίες για διάβασμα και υπολογισμό ή χωρίς οπότε θα χουμε ξεχωριστές μεταβλητές για τα 4 διαμερίσματα;

xristina

  • Οπαδός
  • **
  • Μηνύματα: 13
Απ: Pascal
« Απάντηση #125 στις: 30 Μάρ 2009, 12:01:59 πμ »
Σου στελνω τη λύση της 3 άσκησης
Κώδικας: Text
  1. program askisi3;
  2. Var embado1,embado2,embado3,embado4,dapanh:real;
  3.      pososto1,pososto2,pososto3,pososto4:real;
  4.      xrewsh1,xrewsh2,xrewsh3,xrewsh4:real;
  5.  
  6. procedure eisagwgi(Var emb1,emb2,emb3,emb4,d:real);
  7. Begin
  8. writeln('Δώσε το εμβαδό του 1ου διαμερίσματος:');
  9. readln(emb1);
  10. writeln('Δώσε το εμβαδό του 2ου διαμερίσματος:');
  11. readln(emb2);
  12. writeln('Δώσε το εμβαδό του 3ου διαμερίσματος:');
  13. readln(emb3);
  14. writeln('Δώσε το εμβαδό του 4ου διαμερίσματος:');
  15. readln(emb4);
  16. writeln('Δώσε τη συνολική δαπάνη πετρελαίου:');
  17. readln(d);
  18. End;
  19.  
  20. Procedure ypologismos(em1,em2,em3,em4,dap: real; Var pos1,pos2,pos3,pos4,xr1,xr2,xr3,xr4:real);
  21. Begin
  22. pos1:=em1/(em1+em2+em3+em4);
  23. pos2:=em2/(em1+em2+em3+em4);
  24. pos3:=em3/(em1+em2+em3+em4);
  25. pos4:=em4/(em1+em2+em3+em4);
  26. xr1:=pos1*dap;
  27. xr2:=pos2*dap;
  28. xr3:=pos3*dap;
  29. xr4:=pos4*dap;
  30. End;
  31.  
  32. Procedure apotelesmata(e1,e2,e3,e4,dapa,p1,p2,p3,p4,x1,x2,x3,x4:real);
  33. begin
  34. writeln('αξία πετρελαίου        ',dapa:10:2);
  35. writeln('διαμέρισμα      εμβαδόν    ποσοστά      χρέωση πετρελαίου');
  36. writeln('________________________________________________ ');
  37. writeln('________________________________________________ ');
  38. writeln('διαμέρισμα1    ',e1:10:2,p1:10:2,x1:10:2);
  39. writeln('διαμέρισμα2    ',e2:10:2,p2:10:2,x2:10:2);
  40. writeln('διαμέρισμα3    ',e3:10:2,p3:10:2,x3:10:2);
  41. writeln('διαμέρισμα4    ',e4:10:2,p4:10:2,x4:10:2);
  42. writeln('________________________________________________ ');
  43. writeln('________________________________________________ ');
  44. writeln('                ',(e1+e2+e3+e4):10:2,'    1.000');
  45. end;
  46.  
  47. Begin
  48. eisagwgi(embado1,embado2,embado3,embado4,dapanh);
  49. ypologismos( embado1,embado2,embado3,embado4,dapanh,pososto1,pososto2,pososto3,pososto4,xrewsh1,xrewsh2,xrewsh3,xrewsh4);
  50. apotelesmata(embado1,embado2,embado3,embado4,dapanh,pososto1,pososto2,pososto3,pososto4,xrewsh1,xrewsh2,xrewsh3,xrewsh4);
  51. End.
  52.  
  53. [code]

xristina

  • Οπαδός
  • **
  • Μηνύματα: 13
Απ: Pascal
« Απάντηση #126 στις: 30 Μάρ 2009, 12:03:26 πμ »
και η 2 άσκηση
Κώδικας: Pascal
  1. program askisi2;
  2. uses crt;
  3. Var
  4. i,n:byte;
  5. a,b, apotelesma:real;
  6.  telestis:char;
  7.  
  8. procedure eisagwgi;
  9. Begin
  10. Writeln('Δώστε τον πρώτο αριθμό:');
  11. readln(a);
  12. writeln('Δώστε τον δεύτερο αριθμό:');
  13. readln(b);
  14. End;
  15.  
  16. procedure praksi;
  17. Begin
  18. writeln('1. Για πρόσθεση των δύο αριθμών δώστε "+":');
  19. writeln('2. Για αφαίρεση των δύο αριθμών δώστε "-":');
  20. writeln('3. Για διαίρεση των δύο αριθμών δώστε "/":');
  21. writeln('4. Για πολλαπλασιασμό των δύο αριθμών δώστε "*":');
  22. readln(telestis);
  23. end;
  24.  
  25. procedure ypologismos;
  26. Begin
  27. case telestis of
  28. '+':apotelesma:= a+b;  
  29. '-':apotelesma:= a-b;  
  30. '*':apotelesma:= a*b;
  31. '/': begin
  32. if b=0 then
  33. writeln('Δεν μπορεί να γίνει διαίρεση με το 0')
  34. else
  35. apotelesma:= a/b;
  36. end;
  37. else
  38. writeln('Ο χαρακτήρας που δώσατε δεν αντιστοιχεί σε κάποια πράξη');
  39. end;
  40. end;
  41.  
  42. procedure eksodos;
  43. Begin
  44. writeln('To αποτέλεσμα είναι:',apotelesma:12:2);
  45. end;
  46.  
  47. BEGIN
  48. writeln('Δώστε τον αριθμό των αριθμό των πράξεων που θέλετε να εκτελέσετε:');
  49. readln(n);     
  50. for i:=1 to n do begin
  51. clrscr;
  52. eisagwgi;
  53. praksi;
  54. ypologismos;
  55. eksodos;
  56. writeln('Πατήστε ένα πλήκτρο για συνέχεια');
  57. readkey;
  58. end;   
  59. END.
  60.  

gergerman

  • Θαμώνας
  • ***
  • Μηνύματα: 25
Απ: Pascal
« Απάντηση #127 στις: 30 Μάρ 2009, 08:10:48 μμ »
Γεια σας συναδελφοι. Μια ερώτηση ήθελα να κάνω ...

Μπορεί κανείς να μου διευκρινήσει πως παριστάνεται ένα υποπρόγραμμα με λογικό διάγραμμα? Στο βιβλίο έχει ένα ορθογώνιο με 2 κάθετες γραμμές στο οποίο φαντάζομαι γράφουμε το όνομα του υποπρογράμματος που καλούμε. Ο ορισμός το υποπρογράμματος που γίνεται?

Επίσης στον ψευδοκώδικα, πώς γίνεται η όλη διαδικασία?Εγώ λέω ως εξής:ορίζουμε κάτω από το ΑΡΧΗ του προγράμματος το υποπρόγραμμα π.χ. 'διαδικασία εκτύπωσε' και μέσα στο κυρίως πρόγραμμα γράφουμε 'κάλεσε εκτύπωσε'.

Εσείς τι λέτε?

xryka

  • Βετεράνος
  • ****
  • Μηνύματα: 66
  • Γράψτε το προσωπικό σας σλόγκαν!
Απ: Pascal
« Απάντηση #128 στις: 30 Μάρ 2009, 09:52:18 μμ »
Ευχαριστώ πολύ!
έτσι τις έκανα και γω αλλά μου φάνηκε χαζό να χρησιμοποιήσουμε τόσες μεταβλητές...
άλλη μια απορία....η αναδρομή στο κεφάλαιο 12 είναι στην ύλη ή επειδή είναι εκτός για τα λογικά διαγράμματα και τον ψευδοκώδικα θεωρούμε και εδώ ότι είναι εκτός;;;

iliasthes

  • Δεινόσαυρος
  • *****
  • Μηνύματα: 790
Απ: Pascal
« Απάντηση #129 στις: 31 Μάρ 2009, 12:05:58 πμ »
Σύμφωνα με την διευκρινιστική εγκύκλιο, ο,τι έχει σχέση με αναδρομή δεν το αναφέρουμε, ούτε τις ασκήσεις που απαιτούνε τις σχετικές γνώσεις λύνουμε.

nefeli

  • Θαμώνας
  • ***
  • Μηνύματα: 45
Απ: Pascal
« Απάντηση #130 στις: 31 Μάρ 2009, 06:41:34 μμ »
Καλησπέρα συνάδελφοι

Η Ομάδα Α θα δώσει μεν πανελλαδικές εξετάσεις τον Ιούνιο, αλλά απ'ότι διαβάζω όχι μετά από τις ενδοσχολικές εξετάσεις αλλά πριν από αυτές. Οι ενδοσχολικές θα γίνουν, τουλάχιστον όπως μέχρι στιγμής έχουν ανακοινώσει μετά και μέχρι τις 26 Ιουνίου. Εγώ δεν καταλαβαίνω πώς θα προλάβουμε να εκδόσουμε αποτελέσματα, πτυχια κτλ μέχρι τις 30 Ιουνίου. Αν κάποιος γνωρίζει κάτι άλλο, ας μας το πει.

Επίσης ανεβάζω μια λύση για τη δραστηριότητα 4 της σελίδας 127 του βιβλίου. Οι παρατηρήσεις σας είναι ευπρόσδεκτες.

nefeli

  • Θαμώνας
  • ***
  • Μηνύματα: 45
Απ: Pascal
« Απάντηση #131 στις: 31 Μάρ 2009, 06:49:33 μμ »
Μάλλον κάτι έγινε με την επισύναψη του αρχείου και το ξαναστέλνω.

iliasthes

  • Δεινόσαυρος
  • *****
  • Μηνύματα: 790
Απ: Pascal
« Απάντηση #132 στις: 31 Μάρ 2009, 10:25:49 μμ »
Έτσι όπως τα λες είναι, αλλάζουν φαίνεται τα πράγματα από φέτος. Μην αγχώνεσαι για τα αποτελέσματα, μπορεί να σου πει ο Υπουργός να καθίσεις μέχρι 10 Ιουλίου, γιατί να καθόμαστε από 30 Ιουνίου; ;D

aleremain

  • Θαμώνας
  • ***
  • Μηνύματα: 28
Απ: Pascal
« Απάντηση #133 στις: 01 Απρ 2009, 06:23:10 μμ »
κάθε χρόνο τελειώναμε 31 Μαίου, φέτος θα πιάσουμε Ιούλιο  :o ??? :(

iliasthes

  • Δεινόσαυρος
  • *****
  • Μηνύματα: 790
Απ: Pascal
« Απάντηση #134 στις: 01 Απρ 2009, 07:28:05 μμ »
Εμένα αυτό που μου χαλάει το πρόγραμμα είναι πως δεν θα μείνουνε ελεύθερες μέρες να ασχοληθούμε με λοιπά θέματα, για την προετοιμασία της επόμενης χρονιάς και κυρίως την συντήρηση των εργαστηρίων. Πχ Πέρσι κάναμε τις εγγραφές τον Ιούνιο, το να έχεις 10-15 γονείς να περιμένουν για εγγραφή και την ίδια στιγμή σε διπλανή αίθουσα κάποιοι μαθητές να γράφουν εξετάσεις είναι μη λειτουργικό