Τώρα είναι Παρ 29 Μαρ 2024 02:18 pm

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 
Συγγραφέας Μήνυμα
ΔημοσίευσηΔημοσιεύτηκε: Κυρ 10 Οκτ 2004 01:55 pm 
Χωρίς σύνδεση

Εγγραφή: Σάβ 09 Οκτ 2004 10:47 pm
Δημοσιεύσεις: 1
Τοποθεσία: Pyrgos Hleias
Syntax: [ Download ] [ Hide ]
ΠΡΟΓΡΑΜΜΑ Δευτεροβάθμια_Εξίσωση

ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: Α,Β,Γ,Δ
  ΧΑΡΑΚΤΗΡΕΣ: Ζ

ΑΡΧΗ

  ΟΣΟ Ζ <> 'exit' ΕΠΑΝΑΛΑΒΕ

    ΓΡΑΨΕ 'Αν θέλετε να συνεχίσετε με νέο υπολογισμό πατήστε Enter. Αν θέλετε να τερματίσετε το πρόγραμμα πληκτρολογίστε exit και δύο φορές Enter'
    ΔΙΑΒΑΣΕ Ζ
    ΑΝ Ζ='exit' ΤΟΤΕ
      ΤΕΡΜΑΤΙΣΜΟΣ
    ΤΕΛΟΣ_ΑΝ

    ΓΡΑΨΕ 'Έστω ή Εξίσωση αχ^2+βχ+γ=0'
    ΓΡΑΨΕ 'Πληκτρολογίστε τον συντελεστή του Δευτεροβάθμιου όρου (α)'
    ΔΙΑΒΑΣΕ Α
    ΓΡΑΨΕ 'Πληκτρολογίστε τον συντελεστή του Πρωτοβάθμιου όρου(β)'
    ΔΙΑΒΑΣΕ Β
    ΓΡΑΨΕ 'Πληκτρολογίστε τον σταθερό όρο(γ)'
    ΔΙΑΒΑΣΕ Γ
    ΑΝ A=0 ΤΟΤΕ
      ΑΝ (Β<>0) ΚΑΙ (Γ<>0) ΤΟΤΕ
        ΓΡΑΨΕ 'Η ρίζα της εξίσωσης είναι: ρ=',-Γ/Β:0:2
      ΑΛΛΙΩΣ_ΑΝ (Β<>0) ΚΑΙ (Γ=0) ΤΟΤΕ
        ΓΡΑΨΕ 'Η ρίζα της εξίσωσης είναι: ρ=0'
      ΑΛΛΙΩΣ_ΑΝ (Β=0) ΚΑΙ (Γ<>0) ΤΟΤΕ
        ΓΡΑΨΕ 'Η εξίσωση είναι αδύνατη!!!!'
      ΑΛΛΙΩΣ_ΑΝ (Β=0) ΚΑΙ (Γ=0) ΤΟΤΕ
        ΓΡΑΨΕ 'Η εξίσωση έχει άπειρες ρίζες'
      ΤΕΛΟΣ_ΑΝ

    ΑΛΛΙΩΣ
      Δ <-- Β^2-4*Α*Γ
      ΑΝ Δ>0 ΤΟΤΕ
        ΓΡΑΨΕ 'Οι ρίζες της εξίσωσης είναι: ρ1=',(-Β+ Τ_Ρ(Δ))/2*Α:0:2,' και ρ2=',(-Β- Τ_Ρ(Δ))/2*Α:0:2
      ΑΛΛΙΩΣ_ΑΝ Δ=0 ΤΟΤΕ
        ΓΡΑΨΕ 'Η ρίζα της εξίσωσης είναι: ρ=',-Β/2*Α:0:2
      ΑΛΛΙΩΣ_ΑΝ Δ<0 ΤΟΤΕ
        ΓΡΑΨΕ 'Η εξίσωση ειναι αδύνατη στο σύνολο των Πραγματικών'
        ΓΡΑΨΕ 'Οι ρίζες της εξίσωσης στο σύνολο των Μιγαδικών είναι: ρ1=',(-Β)/2*Α:0:1,'+i',Τ_Ρ((-Δ))/2*Α:0:1,' και ρ2=',(-Β)/2*Α:0:1,'-i',Τ_Ρ((-Δ))/2*Α:0:1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Δευτεροβάθμια_Εξίσωση

 


Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
Τελευταίες δημοσιεύσεις:  Ταξινόμηση ανά  
Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]


Μέλη σε σύνδεση

Μέλη σε αυτή την Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 17 επισκέπτες


Δεν μπορείτε να δημοσιεύετε νέα θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να απαντάτε σε θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επεξεργάζεστε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να διαγράφετε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επισυνάπτετε αρχεία σε αυτή τη Δ. Συζήτηση

Αναζήτηση για:
Μετάβαση σε:  
Προβολές: