Ena problem se pascal...

[Joseph]

Well,an kapoios gnorizei pascal tha ithela na me boithisei se ayto to problem:{Na ftiaxtei o algorithmos kai to programa tis psacal poy tha kanei pollaplasiasmo me ti rosiki methodo! An kapoios mporei na boithisei...thanks anyway <BR>filika,<BR>Joseph<IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm1.gif" border=0> <BR><IMG SRC="http://" border=0><P>------------------<BR>Josy

[sh4dow]

an mas peis pos einai i rosiki methodos ta alla einai aukola.<P>------------------<BR>EDgSTr5SmDY=

[Jheremias]

Τι είναι η ρώσικη μέθοδος;;;Πρώτη φορά το ακούω αυτό.....<IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm30.gif" border=0> <P>Φιλικά,<BR> [email protected]

[Anonymous]

H lysh brisketai sto biblio texnolokikhs kateuthynshs programmatismous ths 3hs lykeiou.Psakse apo kana gnosto

[Joseph]

I will try to describe the russian method,an kai den einai aplo..prepei na piaseis xarti kai molibi,nevermind tha kano mia prospatheia!esto oti exoyme 2 arithmoys..to 90 kai to 17.To ginomeno toys einai 1530!!arxika perigrafo ti rosiki methodo!diairo ton deytero dia 2 me synexeis diaireseis mexri na ftasei to 1 edo(nomizo genika na mi mporei na diairethei allo me to 2)sti sinexeia pollaplaziazo to allo(to proto me 2 toses fores oses diairesa to allo..tha exo mia morfh..tetoia..<BR>90 --17<BR>180 8<BR>360 4<BR>720 2<BR>1440 -- 1<BR>ISTERA,ayta poy einai ti deyteri stili peritta einai 2 (edo se ayto to eg.)to 17 kai to 1 sti sinexeia prostheto ta noymera tis protis stilis poy antistoixoyn se ayta...<BR>kai brisko90+1440=1530<BR>Pisteyo na imoyn safis...kai katanoitos thanks anyway ena biblio tis tritis de moyu einai eykairo tora..eyxaristo pantos...(pisteyo oti linetai me repeat kai me prosektikoys periorismoys...alla den eimai toso kalos gnostis..)<BR>THANKS,<BR>Joseph<IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm20.gif" border=0> <P>------------------<BR>Josy

[zOnG]

Xmm akou ti tha kaneis...den einai sigouro oti einai sosto...loipon pairneis tous 2 arithmous apo ton xristi kai tous apothikeueis se 2 metablites (a,...epita pairneis ti deuteri metabliti ( kai tin diaireis me to 2 me tin function DIV (pou dinei to apotelesma tis diairesis) px b DIV 2.Auto to ipoloipo tha prepei na to baleis se mia alli metabliti i opoia tha einai tipou array.Tha prepei na baleis kai mia alli metabliti (metritis)i opoia tha paizei ton rolo tou metriti (tha metraei poses fores exeis dieresei esti oste na ksereis poses fores tha pollaplasiaseis tin proti metabliti).Olo auto tha to baleis se mia epanalipsi (repeat-until)...<P>logika meta apo auto tha exeis enan pinaka (array) me olous tous peritous arithmous kai akoma mia metabliti pou sou lei poses fores na pol\sis tin proti metabliti.<P>Tora tha pareis tin proti metabliti (a) kai tha tin poll\sis me to 2 oses fores lei o metritis kai tha baleis to apotelesma se mia metabliti tipou array pali...<P>Meta tha chekareis poies theseis tou pinaka tis deuteris metablitis ( exoun perito arithmo kai tha prostheseis ton arithmo pou exoun oi antistoixes theseis tou pinaka tis protis metablitis (a)...diladi ean oi theseis bitarray[1] kai bitarray[3] exoun peritous arithmous tote ta prostheseis tous arithmous pou exoun oi theseis tou pinaka tis protis metablitis diladi alphaarray[1] kai alphaarray[3]...kai tsoup brikes to apotelesma...<P>Den ksero an tha katalabeis tipota apo to parapano katebato alla elpizo na se boithisa.Ean den katalabes mporo na sou ftiakso to programma kai na sou doso ton source code...alla tha to grapso se delphi pou stin ousia einai pascal (giati den exo tin turbo pascal)....kai signomi gia ta greeklish alla ithela na sou apantiso xoris na skeftomai gia tonous kai orthografika lathoi<p>[This message has been edited by zOnG (edited 15-04-2001).]

[sh4dow]

program russian;<P>var a, b, x: integer;<BR>begin<BR>writeln('Dose 1o arithmo');<BR>readln(a);<BR>writeln('Dose 2o arithmo');<BR>readln(;<BR>x:=a;<BR>while b<>1 do<BR>begin<BR> b:=b div 2;<BR> x:=x+x;<BR>end;<BR>writeln(x+a);<BR>end.<P>ALLA DOULEUEI MONO GIA 90*17 OLOI OI ALLOI ARITHMOI BGAZOUN LATHI???????? ARA KATI ALLO PARELIPSES!!!<P>------------------<BR>EDgSTr5SmDY=

[zOnG]

Όχι Sh4dow εσύ έχεις κάνει λάθος διότι αυτός είπε ότι προσθέτεις τα νούμερα της πρώτης στήλης που αντιστοιχούν σε περιτούς αριθμούς της δεύτερης στήλης...στο συγκεκριμένο παράδειγμα έχει μόνο 2 περιτούς...άρα θα προθέσει μόνο 2 αριθμούς (τον πρώτο και τον τελευταίο)....εαν βάλεις άλλους αριθμούς θα έχουν λιγότερους ή περισσότερους περιτούς και σε διαφορετική σειρά...

[sh4dow]

ee tote einai pio eukolo <IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm41.gif" border=0><P>alpizo na sou doulepsei mias kai thelei o compiler na ypostirizei dynamic arrays. an sou poune tipota pes tous se emena me delphi douleuei apsoga mias kai einai i ekdosi 13 tou turbo pascal compiler !!! elpizo na katalabeneis pos bgenei o kodikas. o proigoumenos itan lathos mias kai to paradigma me berthepse [tnx zong].<P>program russian;<P>var a, b, x, y, i, dnum, s: integer;<BR>snum: array of integer;<BR>begin<BR>writeln('Dose 1 arithmo:');<BR>readln(a);<BR>writeln('Dose 2 arithmo:');<BR>readln(;<P>y:= b;<BR>dnum:=1;<BR>while y<>1 do<BR> begin<BR> dnum:= dnum + 1;<BR> y:= y div 2;<BR> end;<P>/* edo tha kanoume declare to dyn. array me dnum pithanes ipodoxes, diladi px:10-5-2 ara 3, i tetartiden xreiazete giati prostithete sto tellos mias kai to teleutaio einai 1 */<BR>setlength(snum,dnum);<BR>x:=1;<BR>while b<>1 do<BR>begin<BR>/* tsekarei o kodikas na dei ean o b arithmos einai perritos, ean nai tote bazei ton a se mia ipodoxi sto array */<BR> if (b mod 2)=1 then<BR> begin<BR> snum[x]:=a;<BR> end;<BR> b:= b div 2;<BR> a:= a + a;<BR> x:= x + 1;<BR>end;<BR>/* edo tha prosthesei oles tous arithmous sto array */<BR>for i:=1 to (x-1) do<BR>begin<BR> s:= s + snum;<BR>end;<BR>writeln('answer:',s+a);<BR>end.<P><BR>ps:o kodikas mporouse na bgei kai allios. elpizo na min theloun polla oi kathigites sou. poly kalli askisi, makari na mas ebazan kai emas tetoia...<P>------------------<BR>EDgSTr5SmDY=

[Joseph]

eyxaristo paidia kali doyleia kai oi paratiriseis soy Zong itan poli eystoxes..mprabo eyxaristo kai pali siggnomi gia ta greeklish kai ego me tin idia logiki...alla tha ithela na moy εξηγησετε καποιες εντολες..γιατι δεν τις εχουμε αναφερει..για παραδειγμα..array? setlength?tis alles tis iksera kapos...pragmati einai poli diskolo!!kala tha doyme ekeina ta kommatia se/* ennoeitai oti einai epeksigiseis poy de tha xreiastoyn sto episimo xarti? ευχαριστω πολυ!!θα κατσω να το μελετησω!τα λεμε...<IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm12.gif" border=0> <P>------------------<BR>Josy

[sh4dow]

array einai o pinakas (sta ellinika <BR>arrays mporei na einai static i dynamic (opos auto tou kodika)<BR>sta static arrays diloneis to megethos tou pinaka otan diloneis tin metabliti pinaka, eno sta dynamic mporeis na diloseis to megethos tou pinaka mesa ston kodika, kai oxi otan diloneis tin metabliti pinaka.<BR>setlength einai i entoli pou dilonei to megethos tou pinaka. paradeigmata einai:<BR>static)<BR>var MyArray: array[1..100] of Char;<BR>type TMatrix = array[1..10, 1..50] of Real; //dyon diastaseon<BR>dynamic)<BR>var MyFlexibleArray: array of Real;<BR>kai diamesou tou kodika tou diloneis to megethos: SetLength(MyFlexibleArray, 20);<P>ta /* [..] */ einai sxolia pou den xreiazontai.<P>------------------<BR>EDgSTr5SmDY=

[Dvs]

kanto me andromi! (ama den theleis na xrisimopoiiseis pinaka)

[Joseph]

thanks paidia!!katalaba kapoia alla ligotero,eyxaristo poli de nomizo na xreaizetai ο array tora στο επιπεδο μου,δε μας τα εχουν πει,ακομη τουλαχιστον αλλα ειναι καλο να μαθαινεις,καινουρια πραγματα ισως ξαναχρειαστω βοηθεια συντομα ευχαριστω πολυ..!!<IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm30.gif" border=0> Πολυ καλη δουλειά!!!<IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm12.gif" border=0> <P>------------------<BR>Josy