Τώρα είναι Πέμ 27 Ιουν 2019 03:27 pm

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




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 11 Δημοσιεύσεις ] 
Συγγραφέας Μήνυμα
 Θέμα δημοσίευσης: Ρίζες εξισώσεων
ΔημοσίευσηΔημοσιεύτηκε: Τετ 14 Δεκ 2005 01:45 pm 
Να γίνει αλγόριθμος που να υπολογίζει το γινόμενο και τον μέσο όρο των ριζών των εξισώσεων χ^2+34=65 και χ^3+89=90 και να εμφανίζει το άθροισμα των μέσων όρων τους.


Κορυφή
  
 
 Θέμα δημοσίευσης: Re: Ρίζες εξισώσεων
ΔημοσίευσηΔημοσιεύτηκε: Τετ 02 Απρ 2008 08:51 pm 
Χωρίς σύνδεση

Εγγραφή: Τετ 02 Απρ 2008 08:48 pm
Δημοσιεύσεις: 6
Ego dokimasa na kano ena programma alla mu evgaze ena sfalma pu espaga to kefali mu na to vro alla den ta katafera. Ligi voitheia ?

*********************************************

Syntax: [ Download ] [ Hide ]
ΠΡΟΓΡΑΜΜΑ Ρίζες
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: ω,ζ,η,μ,ν,ρ,Ε,ο,π,ζ,κ,λ,γ,Δ,λ,β,κ,α
ΑΡΧΗ
  ΓΡΑΨΕ 'Δώσε τον συντελεστή α της πρώτης εξίσωσης της μορφής αχ^2 +βχ +γ=0.'
  ΔΙΑΒΑΣΕ α
  ΓΡΑΨΕ 'Δώσε τον β.'
  ΔΙΑΒΑΣΕ β
  ΓΡΑΨΕ 'Δώσε τον γ.'
  ΔΙΑΒΑΣΕ γ
  Δ <-- β^2 -4*α*γ
  κ <-- (-β + Τ_Ρ(Δ))/2*α
  λ <-- (-β - Τ_Ρ(Δ))/2*α
  γ <-- κ*λ
  ζ <-- (κ+λ)/2
  ΓΡΑΨΕ 'Δώσε τον συντελεστή α της δεύτερης εξίσωσης της μορφής αχ^2 +βχ +γ=0.'
  ΔΙΑΒΑΣΕ ο
  ΓΡΑΨΕ 'Δώσε τον β.'
  ΔΙΑΒΑΣΕ π
  ΓΡΑΨΕ 'Δώσε τον γ.'
  ΔΙΑΒΑΣΕ ρ
  Ε <-- π^2 - 4*ο*ρ
  μ <-- (-π + Τ_Ρ(Ε))/2*ο
  ν <-- (-π - Τ_Ρ(Ε))/2*ο
  ρ <-- μ*ν
  η <-- (μ+ν)/2
  ω <-- η+ζ

  ΓΡΑΨΕ 'Το άρθροισμα των μέσων όρων των ριζών των δύο εξισώσεων είναι:', ω

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Ρίζες


*********************************************

Mou evgaze sfalma stin grammi 3 (metavlites) kai elege pos anamenotan anagnoristiko, eno den exo afisei kamia metavliti ekso.
Eyxaristo.


Κορυφή
 Προφίλ  
 
 Θέμα δημοσίευσης: Re: Ρίζες εξισώσεων
ΔημοσίευσηΔημοσιεύτηκε: Τετ 02 Απρ 2008 08:54 pm 
Χωρίς σύνδεση

Εγγραφή: Τετ 02 Απρ 2008 08:48 pm
Δημοσιεύσεις: 6
ego piga na to kano gia opoiadipote 2thmia eksisosi :P, alla apla den boro na katalavo pu einai to lathos.


Κορυφή
 Προφίλ  
 
 Θέμα δημοσίευσης: Re: Ρίζες εξισώσεων
ΔημοσίευσηΔημοσιεύτηκε: Τετ 02 Απρ 2008 09:54 pm 
Χωρίς σύνδεση

Εγγραφή: Τετ 02 Απρ 2008 08:48 pm
Δημοσιεύσεις: 6
gia to kanoniko pu zituses :


****************************************
Syntax: [ Download ] [ Hide ]
ΠΡΟΓΡΑΜΜΑ Μ_Ο
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: χ,κ,λ,ψ,ω

ΑΡΧΗ
  χ <-- -Τ_Ρ(99)
  ω <-- Τ_Ρ(99)
  ψ <-- 189^(1/3)
  κ <-- χ*ω*ψ
  λ <-- (χ+ψ+ω)/3
  ΓΡΑΨΕ 'Το γινόμενο των τριών ριζών είναι:', κ
  ΓΡΑΨΕ 'Ο Μ.Ο. των ριζών είναι:'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Μ_Ο


****************************************


Κορυφή
 Προφίλ  
 
 Θέμα δημοσίευσης: Re: Ρίζες εξισώσεων
ΔημοσίευσηΔημοσιεύτηκε: Τετ 02 Απρ 2008 10:05 pm 
Χωρίς σύνδεση
Διαχειριστής

Εγγραφή: Παρ 28 Φεβ 2003 06:10 pm
Δημοσιεύσεις: 84
jimakos έγραψε:
Ego dokimasa na kano ena programma alla mu evgaze ena sfalma pu espaga to kefali mu na to vro alla den ta katafera. Ligi voitheia ?
Mou evgaze sfalma stin grammi 3 (metavlites) kai elege pos anamenotan anagnoristiko, eno den exo afisei kamia metavliti ekso.
Eyxaristo.

Κατέβασε την νέα έκδοση της ΓλωσσοΜάθειας και θα σου δείξει αναλυτικά όλα σου τα λάθη.
=====> http://spinet.gr/glossomatheia/download <=====


Κορυφή
 Προφίλ  
 
 Θέμα δημοσίευσης: Re: Ρίζες εξισώσεων
ΔημοσίευσηΔημοσιεύτηκε: Πέμ 10 Απρ 2008 10:15 pm 
Χωρίς σύνδεση

Εγγραφή: Τετ 02 Απρ 2008 08:48 pm
Δημοσιεύσεις: 6
file spin, katevasa tin 9.0.8 kai ekana paste ton kodika k mu evgaze oti i metavliti 'η' xrisimopoieite idi ap to programma i kati tetoio. Katalava to lathos, to diorthosa kai nomizo pos auto einai sosto :

*********************************
Syntax: [ Download ] [ Hide ]
ΠΡΟΓΡΑΜΜΑ Ρίζες
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: ω,ζ,χ,μ,ν,ρ,Ε,ο,π,γ,Δ,λ,β,κ,α
ΑΡΧΗ
  ΓΡΑΨΕ 'Δώσε τον συντελεστή α της πρώτης εξίσωσης της μορφής αχ^2 +βχ +γ=0.'
  ΔΙΑΒΑΣΕ α
  ΓΡΑΨΕ 'Δώσε τον β.'
  ΔΙΑΒΑΣΕ β
  ΓΡΑΨΕ 'Δώσε τον γ.'
  ΔΙΑΒΑΣΕ γ
  Δ <-- β^2 -4*α*γ
  κ <-- (-β + Τ_Ρ(Δ))/2*α
  λ <-- (-β - Τ_Ρ(Δ))/2*α
  γ <-- κ*λ
  ζ <-- (κ+λ)/2
  ΓΡΑΨΕ 'Δώσε τον συντελεστή α της δεύτερης εξίσωσης της μορφής αχ^2 +βχ +γ=0.'
  ΔΙΑΒΑΣΕ ο
  ΓΡΑΨΕ 'Δώσε τον β.'
  ΔΙΑΒΑΣΕ π
  ΓΡΑΨΕ 'Δώσε τον γ.'
  ΔΙΑΒΑΣΕ ρ
  Ε <-- π^2 - 4*ο*ρ
  μ <-- (-π + Τ_Ρ(Ε))/2*ο
  ν <-- (-π - Τ_Ρ(Ε))/2*ο
  ρ <-- μ*ν
  χ <-- (μ+ν)/2
  ω <-- χ+ζ

  ΓΡΑΨΕ 'Το άρθροισμα των μέσων όρων των ριζών των δύο εξισώσεων είναι:', ω

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Ρίζες

*********************************
S' eyxaristo poli gia ti voitheia.


Κορυφή
 Προφίλ  
 
 Θέμα δημοσίευσης: Re: Ρίζες εξισώσεων
ΔημοσίευσηΔημοσιεύτηκε: Πέμ 07 Αύγ 2008 01:03 pm 
Χωρίς σύνδεση

Εγγραφή: Παρ 27 Ιαν 2006 07:40 pm
Δημοσιεύσεις: 6
Den kserw polla sthn trith gumnasiou eixa asxolithei ligo. twra tha paw 3 likeiou kai eipa na riksw mia matia
na thimitho tipota. An kanw lathos diorthosteme. Nomizw oti sou bgazei sfalma sthn trith seira giati exeis dosei duo fores th metablith λ.


Κορυφή
 Προφίλ  
 
 Θέμα δημοσίευσης: Re: Ρίζες εξισώσεων
ΔημοσίευσηΔημοσιεύτηκε: Κυρ 10 Αύγ 2008 12:45 am 
Χωρίς σύνδεση

Εγγραφή: Τετ 02 Απρ 2008 08:48 pm
Δημοσιεύσεις: 6
oxi re c.. mia fora to exo to 'λ'. den me evgaze lathos se auto. thxns pantos

(kai esi 3i likeiu texnologiki e ? :P )


Κορυφή
 Προφίλ  
 
 Θέμα δημοσίευσης: Re: Ρίζες εξισώσεων
ΔημοσίευσηΔημοσιεύτηκε: Δευτ 11 Αύγ 2008 04:32 pm 
Χωρίς σύνδεση

Εγγραφή: Παρ 27 Ιαν 2006 07:40 pm
Δημοσιεύσεις: 6
twra tha paw 3h likeiou. den exw ksekinhsh akoma mathimata, monos mou to psaxnw.


Κορυφή
 Προφίλ  
 
 Θέμα δημοσίευσης: Re: Ρίζες εξισώσεων
ΔημοσίευσηΔημοσιεύτηκε: Τετ 22 Οκτ 2008 01:53 pm 
Χωρίς σύνδεση

Εγγραφή: Τετ 22 Οκτ 2008 12:08 pm
Δημοσιεύσεις: 31
Τοποθεσία: Αθήνα
Καταρχας για σας , και γω μαθητης (το real name mou einai Yuris) της 3ης λυκειου ειμαι και βλεποντας το προγραμμα σου, νομιζω πως πρεπει να παρεις περιπτωσεις σχετικα με την διακρινουσα (αν ειναι αρνητικη ή μηδεν ) εννοω.

_________________
"The ultimate measure of a man is not where he stands in moments of comfort and convenience, but where he stands at times of challenge and controversy."
- Martin Luther King Jr. -


Κορυφή
 Προφίλ  
 
 Θέμα δημοσίευσης: Re: Ρίζες εξισώσεων
ΔημοσίευσηΔημοσιεύτηκε: Τρί 09 Οκτ 2012 06:46 pm 
Χωρίς σύνδεση

Εγγραφή: Τρί 09 Οκτ 2012 06:43 pm
Δημοσιεύσεις: 1
Syntax: [ Download ] [ Hide ]
Πρόγραμμα Ρίζες
Μεταβλητές
  Πραγματικές:α,β,γ,δ,χ1,χ2
Αρχή
  Γράψε 'Δώσε τους συντελεστές α,β,γ της δευτεροβάθμιας εξίσωσης α*(χ^2)+β*χ+γ'
  Διάβασε α,β,γ
  δ <-- (β^2)-4*α*γ
  Αν δ>0 τοτε
    χ1 <-- (-β+(δ^(1/2)))/(2*α)
    χ2 <-- (-β-(δ^(1/2)))/(2*α)
    Γράψε 'οι ρίζες στο R είναι',χ1,χ2
  Αλλιώς_αν δ=0 τότε
    χ1 <-- (-β/(2*α))
    χ2 <-- χ1
    γράψε 'οι διπλή ρίζα της εξίσωσης στο R είναι',χ1
  !Αλλιώς_αν δ<0 τότε
    !χ1 <-- (-β+((-δ)^(1/2)))i/(2*α)
    !χ2 <-- (-β-((-δ)^(1/2)))i/(2*α)
    !γράψε 'οι ρίζες της εξίσωσης στο σύνολο C είναι',χ1,χ2
  Αλλιώς
    γράψε 'δεν υπάρχουν ρίζες στο R'
  Τέλος_αν
τέλος_προγράμματος


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

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


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

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


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

Αναζήτηση για:
Μετάβαση σε:  
cron
Προβολές σελίδων: website counters