• Downloads
  • ! Read Me !
  • Μαθήματα
  • Φοιτητικά
  • Τεχνικά Θέματα
  • Συζητήσεις
  • Happy Hour!
  • About THMMY.gr
 V  < 
Search:  
Welcome, Guest. Please login or register.
June 17, 2025, 13:14:57 pm

Login with username, password and session length
Links
  Thmmy.gr portal
   Forum
   Downloads
   Ενεργ. Λογαριασμού
   Επικοινωνία
  
  Χρήσιμα links
   Σελίδα τμήματος
   Βιβλιοθήκη Τμήματος
   Elearning
   Φοιτητικά fora
   Πρόγραμμα Λέσχης
   Πρακτική Άσκηση
   Ηλεκτρονική Εξυπηρέτηση Φοιτητών
   Διανομή Συγγραμμάτων
   Ψηφιακό Καταθετήριο Διπλωματικών
   Πληροφορίες Καθηγητών
   Instagram @thmmy.gr
   mTHMMY
  
  Φοιτητικές Ομάδες
   ACM
   Aristurtle
   ART
   ASAT
   BEAM
   BEST Thessaloniki
   EESTEC LC Thessaloniki
   EΜΒ Auth
   IAESTE Thessaloniki
   IEEE φοιτητικό παράρτημα ΑΠΘ
   SpaceDot
   VROOM
   Panther
  
Πίνακας Ελέγχου
Welcome, Guest. Please login or register.
June 17, 2025, 13:14:57 pm

Login with username, password and session length

Αναζήτηση

Google

THMMY.gr Web
Πρόσφατα
Αποτελέσματα Εξεταστικής ...
by george14
[Today at 12:08:25]

[ΨEE] Γενικές απορίες και...
by Juror8
[Today at 12:06:57]

Ισραήλ - Ιράν: Πόλεμος στ...
by okan
[Today at 02:33:21]

Τι ακούτε αυτήν τη στιγμή...
by Katarameno
[Today at 02:29:21]

[Οργάνωση Υπολογιστών] Γε...
by RAFI
[June 16, 2025, 22:46:54 pm]

[Σ.Π.Η.Ε.] Γενικές απορίε...
by Nikos_313
[June 16, 2025, 19:49:00 pm]

[ΘΤΠΑ] Γενικές απορίες κα...
by Nikos_313
[June 16, 2025, 16:56:56 pm]

[Εφ.Θερμοδυναμική] Γενικέ...
by Λαμπτήρας
[June 16, 2025, 15:55:08 pm]

[Αρχές Οικονομίας] Να επι...
by _Trob
[June 16, 2025, 13:28:21 pm]

[Σ.Α.Π.Γ.] Εργασία 2025
by Nikos_313
[June 16, 2025, 12:13:45 pm]

Πρακτική Άσκηση ΤΗΜΜΥ 201...
by George_RT
[June 16, 2025, 10:22:18 am]

[Διανεμημένη Παραγωγή] Γε...
by Διάλεξις
[June 16, 2025, 01:56:37 am]

Αντικατάστασης πυκνωτή σε...
by nmpampal
[June 15, 2025, 16:25:56 pm]

[Σ.Π.Η.Ε.] Παλιά θέματα -...
by nmpampal
[June 15, 2025, 06:43:15 am]

Το thmmy.gr στο instagram...
by Mr Watson
[June 15, 2025, 00:50:23 am]

[Λογισμός ΙΙ] Απορίες σε...
by el mariachi
[June 14, 2025, 20:47:07 pm]

ΠΡΟΣΟΧΗ στο ανέβασμα θεμά...
by tzortzis
[June 14, 2025, 16:54:08 pm]

Ρυθμίσεις Θεμάτων της Ανώ...
by el mariachi
[June 14, 2025, 11:56:45 am]

Πότε θα βγει το μάθημα; -...
by Nikos_313
[June 14, 2025, 10:00:55 am]

Αρχείο Ανακοινώσεων [Arch...
by Nikos_313
[June 14, 2025, 09:58:14 am]
Στατιστικά
Members
Total Members: 9961
Latest: Poli
Stats
Total Posts: 1426686
Total Topics: 31710
Online Today: 169
Online Ever: 2093
(April 17, 2025, 08:47:49 am)
Users Online
Users: 54
Guests: 82
Total: 136
paristetos
dimopoul
kvas
alexkont
gpap
Geoth
dimitris kiziridis
George_RT
panagiot
airam
Maximos7
giannisd
programmer2004
DimKaratzas
superkolios
acolak
noimaginationforthis
Gray139
MrGreekArrow
ggalamat
Roidos
Mr Watson
ellimoschou
pelopidt
kzmekos
ppoug
Vasilikikr
kmargaritis
Nikos_313
gmpatsol
Saint_GR
gdiakonikolhs
Raphael
melisste22
elenak
gp6
meliou
Billyskotsikas
nikitask
Διάλεξις
glavdakis
Denisivo
antontsiorvas
pkoko
Kass
AcademicWeapon!
mimaki
Εμφάνιση

Νέα για πρωτοετείς
Είσαι πρωτοετής;... Καλώς ήρθες! Μπορείς να βρεις πληροφορίες εδώ. Βοήθεια για τους καινούργιους μέσω χάρτη.
Κατεβάστε εδώ το Android Application για εύκολη πρόσβαση στο forum.
Ανεβάζετε τα θέματα των εξετάσεων στον τομέα Downloads με προσοχή στα ονόματα των αρχείων!

Νέα!
Για οποιοδήποτε πρόβλημα με register/login, στείλτε email στο contact@thmmy.gr.
THMMY.gr > Forum > Ηλεκτρονικοί Υπολογιστές και Τεχνικά Θέματα > Περί Υπολογιστών... > Software > Προγραμματισμός (C, VB, Delphi, PHP, ASP...) (Moderators: chatzikys, PolarBear) > Προγραμματάκι QuickBasic
0 Members and 1 Guest are viewing this topic.
Pages: [1] Go Down Print
Author Topic: Προγραμματάκι QuickBasic  (Read 2088 times)
Nessa NetMonster
Guest
Προγραμματάκι QuickBasic
« on: May 26, 2004, 13:37:30 pm »

Δείτε παιδιά ένα προγραμματάκι σε QuickBasic.

input n
for i=1 to n
input k
rem print mo;"+";k/n;"=";mo+k/n
mo=mo+k/n
next
print mo

Τι κάνει αυτό; Υπολογίζει το μέσο όρο mo n αριθμών, έτσι; Αμ δε! Δοκιμάστε το πχ με n=10 και τους αριθμούς 40 52 64 35 78 90 2 56 101 26. Για να δείτε το παράδοξο σε όλο του το μεγαλείο, βγάλτε το rem από την print και δείτε την πρόσθεση!

Ε, τέτοια πρόσθεση δεν έχω ξαναδεί...
Logged
Lurpak
Θαμώνας
****
Gender: Male
Posts: 390


Shocking ...isn't it?


View Profile
Re:Όποιος μπορεί να μου το εξηγήσει αυτό...
« Reply #1 on: May 26, 2004, 20:56:49 pm »

Quote from: Nessa NetMonster on May 26, 2004, 13:37:30 pm
Τι κάνει αυτό; Υπολογίζει το μέσο όρο mo n αριθμών, έτσι; Αμ δε!

Nessaki νομίζω οτι απαντάς μόνη σου, για ξανασκέψου λιγάκι τον κώδικα που έχεις γράψει. Στην επαναληπτική διαδικασία θα πρέπει να υπολογίζεται το άθροισμα και έξω από αυτήν ο μέσος όρος.
« Last Edit: May 26, 2004, 21:17:50 pm by Lurpak » Logged

Έχω ξεφύγει απ τα κλισέ,
πίνω Fanta και γράφω C
bakeneko
Veteran
Καταστραμμένος
******
Gender: Male
Posts: 7702


?


View Profile WWW
Re:Όποιος μπορεί να μου το εξηγήσει αυτό...
« Reply #2 on: May 27, 2004, 03:46:37 am »

'Η και αλλιώς να βάλεις mo=(mo+k)/2 (μέσα στο βρόγχο - εντάξει τώρα μη μου πείτε "βγαίνει λάθος για n=1"  Tongue )... Αν ασχολείσαι με παιδιά της Micro$oft αυτά παθαίνεις (άσχετο αλλά λέμε τώρα  Grin )
Logged

Lurpak
Θαμώνας
****
Gender: Male
Posts: 390


Shocking ...isn't it?


View Profile
Re:Όποιος μπορεί να μου το εξηγήσει αυτό...
« Reply #3 on: May 27, 2004, 04:18:41 am »

Quote from: Rattlehead on May 27, 2004, 03:46:37 am
'Η και αλλιώς να βάλεις mo=(mo+k)/2 (μέσα στο βρόγχο)

Βρε Ratt; Πως προέκυψε αυτό;

Nessa ο τύπος που χρησιμοποιείς είναι εν μέρη σωστός (μαθηματικά αλλά όχι προγραμματιστικά) και βγάζει αποτελέσματα αν το πηλίκο δεν είναι άρρητος αριθμός. Επίσης πρόσεξε πως ορίζεις τον mo, αν το έχεις ορίσει integer τοτε θα σου βγάζει πάλι λάθη.
« Last Edit: May 27, 2004, 04:25:45 am by Lurpak » Logged

Έχω ξεφύγει απ τα κλισέ,
πίνω Fanta και γράφω C
bakeneko
Veteran
Καταστραμμένος
******
Gender: Male
Posts: 7702


?


View Profile WWW
Re:Όποιος μπορεί να μου το εξηγήσει αυτό...
« Reply #4 on: May 27, 2004, 06:04:13 am »

Ναι πριν κοιμηθώ μου ήρθε στο μυαλό το λάθος μου και μπας και προλαβω να το διορθώσω..  Tongue καλά όλοι χαράματα κάνετε surfing!!? θα έπρεπει να μπει κάπως έτσι
input n
input k
mo=k
for i=2 to n
input k
mo=(mo+k)/n
next
αλλά αυτή η λύση είναι γενικά χάλια γι αυτό απορρίπτεται Tongue
« Last Edit: May 27, 2004, 06:06:08 am by Rattlehead » Logged

Nessa NetMonster
Guest
Re:Όποιος μπορεί να μου το εξηγήσει αυτό...
« Reply #5 on: May 27, 2004, 11:14:23 am »

Rattlehead... χε χε χε... καλή προσπάθεια. Grin Grin Grin

Ηθικόν δίδαγμα: Ποτέ μη γράφεις πρόγραμμα νυσταγμένος! Wink

Lurpak, το σκέφτηκα αυτό με το mo και ξαναέγραψα το ίδιο πρόγραμμα σε C. Όμως ακόμα και όταν το ορίζω σαν float κάνει τα ίδια και χειρότερα... μάλιστα έχω την εντύπωση ότι σε κάθε επανάληψη αφαιρεί από το mo κάτι σαν 0.0000002 ή 0.0000003, οπότε ανά δυο-τρεις επαναλήψεις εμφανίζεται μειωμένο κατά 0.000001 (αφού εκτυπώνει μόνο 6 δεκαδικά). Επίσης προσέχω να μη βάζω άρρητους (βάζω πλήθος 2, 10 ή 5) αλλά και πάλι για κάποιο λόγο μπερδεύεται.

Τι να πεις; ʼντε να το κάνω και σε Pascal... Sad
Logged
Lurpak
Θαμώνας
****
Gender: Male
Posts: 390


Shocking ...isn't it?


View Profile
Re:Όποιος μπορεί να μου το εξηγήσει αυτό...
« Reply #6 on: May 27, 2004, 11:19:19 am »

Nessa γενικά στον προγραμματισμό μπορούν να προκύψουν λαθάκια αυτής της τάξης μεγέθους σε διαιρέσεις. Γι' αυτό καλό θα είναι να ταποφεύγουμε τέτοιου είδους διαιρέσεις σε επαναληπτικές διαδικασίες γιατί τελικά προκύπτει σφάλμα. Γιατί δεν κάνεις ότι όλος ο κόσμος, να υπολογίσεις το sum στην επαναληπτική και μετά με "μία" διαίρεση τον mo;
Logged

Έχω ξεφύγει απ τα κλισέ,
πίνω Fanta και γράφω C
Pages: [1] Go Up Print
Jump to:  

Powered by SMF | SMF © 2006-2009, Simple Machines LLC
Scribbles2 | TinyPortal © Bloc | XHTML | CSS
Loading...