Προγραμματισμός Η/Υ (2010-11)

[.moonwillow]

Τι εννοεις ?για το double precision?

http://mycourses.ntua.gr/courses/CIVIL1 ... -I-007.pdf
σ αυτην για παράδειγμα...

Στην συγκεκριμένη, πρέπει να έχεις ακρίβεια 10 εις την -10.

Δηλαδή, πρέπει ο όρος που θα βρείς στο ν βήμα, μείον τον όρο του ν-1 βήματος, να είναι μικρότερο ή ίσο του 10 εις την -10.

αν αυτή η συνθήκη ισχύει, τότε εκτυπώνω τον όρο του ν βήματος, αλλιώς κάνω ξανά έλεγχο;

ευχαριστώ πολύ πάντως!

[BM]

Αν ισχύει, σημαίνει ότι έχεις την επιθυμητή ακρίβεια, άρα είσαι κομπλέ και το εκτυπώνεις.

[jveltsi13]

αν θέλω να μετατρέψω ενάν πίνακα π.χ. Β(Ι) σε εναν αλλο ΙΒ(Ι) που θα εχει για τιμέσ του, τις ακέραιες του πρώτου πωσ το κάνω? δλδ αν Β(1)=3,14 να εχς ΙΒ(1)=3..

[petran13]

ναι

[BM]

Φίλε moonwillow, τώρα που το ξαναβλέπω, ίσως εννοεί πως πρέπει να διαφέρει ο ν όρος από το πραγματικό ημίτονο λιγότερο από 10^-10.
Δηλαδή, έστω πως το ημίτονο ενός αριθμού κάνει α, ενώ εσύ από την σειρά αυτή βρήκες β. Σταματάς τις πράξεις όταν α-β < 10^-10.

Και αυτό, και αυτό που σου είπα πριν, σωστά είναι. Απλά, δεν διεκρινίζει τι θέλει.

[.moonwillow]

χμμμ, οκay ευχαριστώ
όντως δεν το προσδιορίζει στην άσκηση....

[jveltsi13]

μια λυση για το 3ο θεμα της επαναληπτικησ 2009-2010.σιγουρα υπάρχει κ πιο συντομη...
program orth
L=6
G=25000
AMR=350
FCD=20000
FYD=500000
H=0.4
20 B=0.25
AM1=AMR/(B*(H**2)*FCD)
W=0.84*(1-SQRT(1-2.4*AM1))
R=W*FCD/FYD
IF(R.LT.0.014) go to 10
H=H+0.05
go to 20
10 write(*,*) 'h='
write(6,1000) H
W1=B*H*L*G
1000 format(F5.2)
B=0.25
40 H=0.5
AM1=AMR/(B*(H**2)*FCD)
W=0.84*(1-SQRT(1-2.4*AM1))
R=W*FCD/FYD
IF(R.LT.0.014) go to 30
B=B+0.05
go to 40
30 write(*,*) 'b='
write(6,2000) B
W2=B*H*L*G
2000 format(F5.2)
if(W1.GT.W2) go to 50
go to 60
50 write(*,*) 'stin deyteri exoume mikrotero varos dokou'
60 write(*,*) 'stin prwti exoume mikrotero varos dokou'
stop
end

[FancyVagina]

στο βιβλιο στη σελιδα 135 στην bubble sort, μηπως στο IF που ειναι 2 σειρες μετα την εντολη 20, το GO TO 300 θα επρεπε να ηταν GO TO 200?

[BM]

Παιδιά, αντί για τη φυσαλίδα, μπορούμε να κάνουμε το εξής για ταξινόμιση;

Κώδικας: Επιλογή όλων

        dimension a(5)
        read (*,*) (a(i),i=1,5)
666    continue
        do 100 i=2,5
        if (a(i).le.a(i-1)) goto 100
        aa=a(i)
        a(i)=a(i-1)
        a(i-1)=aa
        goto 666
100    continue
        write (*,*) (a(i),i=1,5)

Το τρέχω, και τα ταξινομεί κανονικά. Δεν νομίζω να είναι λάθος..

[ZIVI7]

Βασικα jveltsi13 αν στη δευτερη εχουμε μικροτερο βαρος δοκου θα σου γραψει και τα 2 write..... θελει να αριθμησεις και το στοπ και ενδιαμεσα να βαλεις ενα go to να πηγαινει στο stop.