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

xryka

  • Βετεράνος
  • ****
  • Μηνύματα: 66
  • Γράψτε το προσωπικό σας σλόγκαν!
Απ: Pascal
« Απάντηση #90 στις: 05 Μάρ 2009, 08:35:05 πμ »
Ωραία ας επικοινωνήσουμε όλοι με τουσ συμβούλους μας για να δούμε μήπως γίνει κατι......

Βρακόπουλος Αθανάσιος Λ.

  • Θαμώνας
  • ***
  • Μηνύματα: 35
Απ: Pascal
« Απάντηση #91 στις: 05 Μάρ 2009, 12:13:58 μμ »
Θα σας πρότεινα για το akeraio_meros

Function AM(A:Real):Integer;
   var i:Integer;
   Begin
       Pr:=1;
       If A<0 then Begin
           pr:=-1;
           A :=A*(-1);
       End;
       I:=0;
       While (I<=A) do I:=I+1;
       AM:=(I-1)*Pr;
   end.


για το strog αργότερα.
Βρακόπουλος Αθανάσιος
« Τελευταία τροποποίηση: 06 Μάρ 2009, 09:14:24 πμ από val »

xristina

  • Οπαδός
  • **
  • Μηνύματα: 13
Απ: Pascal
« Απάντηση #92 στις: 05 Μάρ 2009, 02:56:43 μμ »
Ωραία ας επικοινωνήσουμε όλοι με τουσ συμβούλους μας για να δούμε μήπως γίνει κατι......
Εγω έστειλα ένα mail στο σύμβουλο μας...για να δουμε...έστω για του χρόνου

kathrin

  • Νέος
  • *
  • Μηνύματα: 2
Απ: Pascal
« Απάντηση #93 στις: 06 Μάρ 2009, 10:23:18 πμ »
καλημέρα είμαι καινούρια στο forum.
βρίσκομαι στο κεφάλαιο 12 και χρειάζομαι μια λύση στις άσκησεις 1 σελ 123 και 4 σελ 124.
Ενώ δεν υπάρχουν λάθη, κατα την κλήση της διαδικασίας οι υπολογισμοί ειναι μηδέν

iliasthes

  • Δεινόσαυρος
  • *****
  • Μηνύματα: 790
Απ: Pascal
« Απάντηση #94 στις: 10 Μάρ 2009, 12:41:22 μμ »


Αν θέλεις στείλε την λύση σου, κάποιο μικρό λαθάκι θα κρύβεται από πίσω. Αλλιώς το απογευματάκι που θα πάω στο σπίτι θα ανεβάσω την λύση.
« Τελευταία τροποποίηση: 10 Μάρ 2009, 03:12:45 μμ από iliasthes »

iliasthes

  • Δεινόσαυρος
  • *****
  • Μηνύματα: 790
Απ: Pascal
« Απάντηση #95 στις: 10 Μάρ 2009, 03:28:10 μμ »
Ανεβάζω δυο αρχεία. Το πρώτο είναι οι λύσεις των ασκήσεων 1,2 και 5 από το κεφ 12(σελ, 123, 124 και 125), ένα φύλλο εξέτασης, ενσωματωμένο στις λύσεις, όπου ζητείται από τους μαθητές να τροποποιήσουν κατάλληλα την λύση της άσκησης 2. Το δεύτερο μια περίληψη μαθήματος για τις συναρτήσεις.

kathrin

  • Νέος
  • *
  • Μηνύματα: 2
Απ: Pascal
« Απάντηση #96 στις: 10 Μάρ 2009, 05:02:56 μμ »
Ευχαριστω παρα πολύ! Το προβλημά ήταν οι παράμετροι μεταβλητών!

kristi

  • Θαμώνας
  • ***
  • Μηνύματα: 28
Απ: Pascal
« Απάντηση #97 στις: 13 Μάρ 2009, 12:16:05 πμ »
Καλησπέρα παιδιά,
όποιος έχει λίγο χρόνο θα ήθελα να με βοηθήσει ανεβάζοντας την λύση της άσκησης 6(τετράπλευρο) σελ 108 κεφαλαιο 11.,κάπου μου κολλάει.
ευχαριστώ!!!

xristina

  • Οπαδός
  • **
  • Μηνύματα: 13
Απ: Pascal
« Απάντηση #98 στις: 13 Μάρ 2009, 10:33:13 πμ »
Να πως την έκανα εγώ
Κώδικας: Pascal
  1. program askisi6;
  2. var a,b,c,d,g:real;
  3.       ksana:char;
  4. begin
  5. repeat
  6.  writeln('Dwse tis tesseris pleyres tou tetrapleyrou');
  7.  readln(a,b,c,d);
  8.  writeln('Dwse th gwnia tou tetrapleyrou');
  9.  readln(g);
  10.    if (a=b) and (b=c) and (c=d)
  11.         then
  12.           if g=90
  13.                 then writeln('to tetrapleuro einai tetragwno')
  14.                 else writeln('to tetrapleuro einai rombos')
  15.         else if (a=c) and (b=d)
  16.                   then
  17.                      if g=90
  18.                          then writeln('to tetrapleuro einai or8ogwnio')
  19.                          else writeln('to tetrapleuro einai parallhlogramo')
  20.                    else writeln('to tetrapleuro einai tuxaio');
  21.   writeln('Theleis na ksanadokimaseis; Y or N');
  22.   readln(ksana);
  23.  until ksana='N';
  24.  end.  
  25.  

iliasthes

  • Δεινόσαυρος
  • *****
  • Μηνύματα: 790
Απ: Pascal
« Απάντηση #99 στις: 13 Μάρ 2009, 09:30:08 μμ »
Τι μπορείς να πάθεις αν δίνεις σημασία στο βιβλίο. Άσκηση 6 σελ 125, έχουμε ως δεδομένο έναν ακέραιο αριθμό σύμφωνα με την εκφώνηση και πρέπει να υπολογίζουμε με συνάρτηση και να εμφανίζουμε την τρίτη δύναμη του. Όταν δίνει την μορφή της εκτύπωσης παρουσιάζει τον αριθμό να εκτυπώνεται με δύο δεκαδικά ψηφία και την δύναμη με 4 δεκαδικά ψηφία. Δίνοντας την κατάλληλη μορφοποίηση στην εκτύπωση φυσικά ο compiler έβγαζε λάθος, το οποίο μου φαινόταν παράλογο  ;D ;D.

Παράλογος είναι αυτός που έγραψε το βιβλίο, χαχα.

xristina

  • Οπαδός
  • **
  • Μηνύματα: 13
Απ: Pascal
« Απάντηση #100 στις: 16 Μάρ 2009, 12:23:51 πμ »
Να κάνω μια ερωτησούλα την Άσκηση 11 σελ.126 την διδάσκουμε ή παει και αυτή στην αναδρομή που είναι εκτός ύλης;

iliasthes

  • Δεινόσαυρος
  • *****
  • Μηνύματα: 790
Απ: Pascal
« Απάντηση #101 στις: 16 Μάρ 2009, 07:29:40 μμ »
Προσωπικά την άφησα από έξω, από την στιγμή που έχει το παραγοντικό

nanakefa

  • Νέος
  • *
  • Μηνύματα: 5
Απ: Pascal
« Απάντηση #102 στις: 16 Μάρ 2009, 08:51:38 μμ »
γειά σας είμαι καινούρια στο forum.
 χρειάζομαι μια λύση για την άσκηση 3 σελίδα 107 , διότι δεν καταλαβαίνω αν θέλει επανάληψη με μετρητή (αφού ζητάει το πλήθος των εργατών) ή με γεγονός (αφού λέει ότι η επανάληψη  σταματάει όταν δοθεί αρνητικός αριθμός για ώρες εργασίας).
 

xristina

  • Οπαδός
  • **
  • Μηνύματα: 13
Απ: Pascal
« Απάντηση #103 στις: 16 Μάρ 2009, 11:27:41 μμ »
Και εγώ απέξω λέω να την αφήσω :)

xristina

  • Οπαδός
  • **
  • Μηνύματα: 13
Απ: Pascal
« Απάντηση #104 στις: 16 Μάρ 2009, 11:31:29 μμ »
γειά σας είμαι καινούρια στο forum.
 χρειάζομαι μια λύση για την άσκηση 3 σελίδα 107 , διότι δεν καταλαβαίνω αν θέλει επανάληψη με μετρητή (αφού ζητάει το πλήθος των εργατών) ή με γεγονός (αφού λέει ότι η επανάληψη  σταματάει όταν δοθεί αρνητικός αριθμός για ώρες εργασίας).

Μερικά μηνύματα πριν έχουμε γράψει 2 εκδοχές της λύσης. Στη σελίδα 6 της συζήτησης...αν δεν το βρίσκεις ξαναπες να το στειλουμε...