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

Κώστας.Γ

  • Νέος
  • *
  • Μηνύματα: 5
Askhsh
« στις: 05 Μάρ 2013, 03:44:16 μμ »
Να γράψετε  πρόγραμμα που να υπολογίζει το γινόμενο όλων των περιττών αριθμών  από το 1 έως το 20
Είναι σωστό;


Program Peritoi;
var i,a :integer;
Begin
i:=1;
a:=i;
   While i<20 do
   begin
      a:=a*i;
      write(a,' ');
      i:=i+2;
   end;
end.   

Νίκος Αδαμόπουλος

  • Γενικός διαχειριστής
  • *****
  • Μηνύματα: 2780
  • Πύργος Ηλείας
    • ΚΕΠΛΗΝΕΤ Ηλείας
Απ: Askhsh
« Απάντηση #1 στις: 06 Μάρ 2013, 12:12:58 πμ »
Το έχεις δοκιμάσει σε κάποιον compiler ή έστω έχεις εκτελέσει τις εντολές με μολύβι και χαρτί;

Κώστας.Γ

  • Νέος
  • *
  • Μηνύματα: 5
Απ: Askhsh
« Απάντηση #2 στις: 06 Μάρ 2013, 01:13:40 πμ »
to ekana run me to Pame ala dn m fenontai swsta ta apotelesmata

Νίκος Αδαμόπουλος

  • Γενικός διαχειριστής
  • *****
  • Μηνύματα: 2780
  • Πύργος Ηλείας
    • ΚΕΠΛΗΝΕΤ Ηλείας
Απ: Askhsh
« Απάντηση #3 στις: 06 Μάρ 2013, 12:32:07 μμ »
(ας μη γράφουμε με greeklish)

Τι αποτελέσματα σου εμφανίζει;

Κώστας.Γ

  • Νέος
  • *
  • Μηνύματα: 5
Απ: Askhsh
« Απάντηση #4 στις: 06 Μάρ 2013, 03:48:38 μμ »
(Η νύστα έφταιγε  )
 
 Μου εμφανίζει θετικά αποτελέσματα και το τέταρτο είναι αρνητικό
και ειδικά για πολλαπλασιασμό είναι παράξενο νομίζω

Νίκος Αδαμόπουλος

  • Γενικός διαχειριστής
  • *****
  • Μηνύματα: 2780
  • Πύργος Ηλείας
    • ΚΕΠΛΗΝΕΤ Ηλείας
Απ: Askhsh
« Απάντηση #5 στις: 06 Μάρ 2013, 11:02:31 μμ »
To 4ο ή το 13ο...; Αν είναι εύκολο γράψε ακριβώς τι σου εμφανίζει...

nikolasmer

  • Ομάδα Νέου Λυκείου
  • *
  • Μηνύματα: 541
  • There can be only one...may it be AEPP.
Απ: Askhsh
« Απάντηση #6 στις: 07 Μάρ 2013, 11:54:43 πμ »
Να γράψετε  πρόγραμμα που να υπολογίζει το γινόμενο όλων των περιττών αριθμών  από το 1 έως το 20
Είναι σωστό;


Program Peritoi;
var i,a :integer;

Άλλαξέ το σε longint και είσαι τζιτζί.
Ο τύπος integer δε "φτάνει".
Απ' τα τσακάλια δεν γλυτώνεις μ'ευχές ή παρακάλια
(Κ. Βάρναλης)

Μερεντίτης Νικόλαος
Καθηγητής Πληροφορικής - Φροντιστής