Athroisma x proton arithmo se VB?

[therock]

Kalispera.Tha ithela na mou peite pos mporo na ftiakso stin vb ena programma pou tha vriskei to athroisma ton x proton arihmon?

[HaPagan]

Φαντάζομαι ότι το δύσκολο έγκειται στο να βρεις τους πρώτους αριθμούς , ε;

 

Μια πρώτη σκέψη που μου ήρθε είναι να βρεις αρχικά 20 πρώτους αριθμούς και να τους αποθηκεύσεις σε έναν πίνακα . Στη συνέχεια , με ένα for θα κάνεις την πρόσθεσή τους .

 

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

[lanista]

Ένας σύντομος αλγόριθμος είναι ο εξής ( σε C)

 

>
bool IsPrime(int x)
{
     int i;
         
     if ((x==1) || (x==2))  return true;

     for(i=2; i<(x-1); i++)
     {
             if ( x%i==0)  
             {
                    return false;
              }
      }
      return true ;
}

 

Δηλαδή διαιρείς τον χ με όλους τους αριθμούς από 2 ώς χ-1 . Αν το υπόλοιπο αυτής της διαίρεσης γίνει μηδέν ( mod ) τότε ο αριθμός δεν είναι πρώτος , αλλιώς αν ολοκληρωθούν όλες οι διαιρέσεις επιστρέφεις true .

 

 

Τωρα για να βρεις το άθροισμα (sum) των πρώτων n πρώτων αριθμών δουλέυεις ώς εξής :

>
int sum=0;
int t=0; 
int num=1;
while ( t<n )
{
      if (IsPrime(num) == true)
      {
              sum = sum + num ;
               t=t+1;
       }
        num=num+1;
}

 

Edited by Dionisos: Parakalw panta vazete ton kwdika mesa se

 tags![/u][/b]

[therock]

Se visual basic den ginetai ayto?Stin sxoli mas to eipan kapos sum = sum+i,alla den ta simeiosa.An kserei kaneis as pei ton tropo gia vb.

[HaPagan]

therock γίνεται και παραγίνεται ! Απλά το μόνο "πρόβλημα" είναι το πως θα εκτυπώσεις το αποτέλεσμα . Αυτό που μπορείς να κάνεις είναι να προσθέσεις στη φόρμα μια list και να κάνεις addItem τους αριθμούς που ελέγχεις . Και μετά στο τέλος , απλά εκτυπώνεις το άθροισμα σε ένα label ή text .

[therock]

I lista diladi ti na periexei?Pos na prostheso tous arithmous ennoeis?Sorry file mou alla eimai telios arxarios oson afora ton programmatismo!An mporeis ligi voithei peraitero parakalo!

 

Eyxaristo pantos pedia gia tis mexri tora apokriseis sas.

[therock]

Opa pedia sorry to eksefrasa lathos vasika!Otan enno proton,ennoo px san athroisma ton 20 proton,to athroisma apo 1 eos 20.Diladi 1+2+3+...+20.Aplos den imounsigkekrimenos ston xaraktirismo "proton"!Diko mou lathos... Tora pistevo pos i lisi einai poli poio eykoli etsi?

[HaPagan]

Ααααα πέστο τόση ώρα . :)

 

Απλά χρειάζεσαι ένα for που θα κάνει το άθροισμα . Εύκολο είναι !

 

Σε C:

 

>
int x,sum;

sum = 0;

for (x = 1 ; x <21 ; x++){
     sum = sum + x;
}

printf("%d",sum);

 

Η μετατροπή δεν είναι δύσκολη απλά εσύ αντί για int x , βάζεις dim x και το αποτέλεσμα εκτύπωσέ το σε ένα label ( label1.caption = sum ).

[therock]

prosthesa ena label,kai edosa kosika sto label ayto,oti mou peis alla opou int evala dim,alla mou to evgale olo kokkino!Ti ekana lathos?An mporeis dose mou odigies vima pros vima giati ksero poli liga...

[vagpap]

>
dim i as integer
dim sum as integer
sum=0

for i=1 to 20
  sum=sum+i
next i
label1.text=sum

 

Όπου 20 μπορείς να βάλεις όποιον αριθμό θες εσύ ή ακόμα και μεταβλητή που να δίνει ο χρήστης.

 

Τι εννοείς έδωσες κώδικα στο label? Σε ποιό σημείο του?

[therock]

Me diplo klik pano sto label!lol vlakei ekana?

[vagpap]

Με διπλό κλικ πάνω στο label, αν δεν κάνω λάθος, σου επιτρέπει να γράψεις κώδικα για το label_click event, που σημαίνει ότι πρέπει να κάνεις κλικ στο label για να το εκτελέσει. Μπορείς να βάλεις απλά ένα button και κάνοντας διπλό κλικ πάνω του να γράψεις τον κώδικά σου. Έτσι ο κώδικας θα εκτελεστεί στο κλικ που θα κάνεις στο κουμπί

[DarkOrion]

oson afora kai tous "pragmatikous" prwtous arithmous, kati indoi vrikan tropo na vriskoun tous prwtous arithmous se ena suggekrimeno sunolo, px apo 1 ws 1000.

epeidi omws eimai 3 gumnasiou kai den kserw na to testarw an pragmatika douleuei (stin thewria arithmwn kaname kati mal@kies tou stul na deikseis oti o 4x^2 einai artios kai tetoia, oi prwtoi arithmoi itan ektos ylis). giauto parathetw to link na to deite kai eseis pou kserete kalutera.

 

http://www.cse.iitk.ac.in/news/primality.pdf

[therock]

Okfile vagpap to dokimasa kai doulevei,eyxaristo poli.Telika sxetika me to na kaneis sum tous protous kai me tin alli ennoia pos ginetai?Eriksa mia matia sto pdf alla apo ena simeio kai meta arxisa an ta xano!Katalava kaneis tipota?

 

Kati allo asxeto.Thelo mesa se ena text box na grafo prakseis kai patontas se command button na mou ta emfanizei se ena allo.Diladi na grafo sto 1o textbox 2+2 kai patontas se button na vgazei sto 2o textbox 4.Pos ginetai ayto?Dokimasa na grapso text2.text=text1.text alla mou metaferei olo to periexomeno dld,dinei 2+2 sto 2o textbox!Meta dokimasa na doso text2.text = CDbl(text1.text) alla mou evgaze error!Meta dokimasa kai to val,alla mou vgazei mono ton proto arithmo!

 

P.s.Iparxei kanas tropos na katevazo to periexomeno olokliron selidon pou periexoun .php kai .aspEpeidi vrika merikes kales selides sto link tis selidas tou filou Hapagan kai thelo na tis soso gia na tis diavazo me tin isixia mou.

 

EDIT:(P.S.2):Epidei me endiaferoun poli ta mathimatika,exete kammia idea gia kataskevi kapoiou mathimatikou (aplou vevaia) programmatos?

[HaPagan]

therock δοκίμασε να κάνεις save as... ! Το απλό μαθηματικό πρόγραμμα που αναφέρεις τι λειτουργείες θα έχει ; Απλές πράξεις ; Επίλυση εξισώσεων ; Τι ;