Q: Fortran

[HdkiLLeR]

Loipon den xerw ti akrivws egeine sto parapanw post alla telos padon edw einai o kwdikas se Java:

</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">

static int readInt() throws IOException

// διαβάζει έναν ακέραιο

{ int res = 0, ch;

boolean negative = false;

ch = System.in.read();

// αγνόησε τα κενά και τις αλλαγές γραμμών που

//τυχόν προηγούνται του ακεραίου

while (ch == ' '

[HdkiLLeR]

den xerw giati alla kati egeine me ta proigoumena posts

[HdkiLLeR]

Gmt exei ginei i idia malakia 2 fores.Telospadon o kwdikas se Java:

</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">code:</font><hr /><pre style="font-size:x-small; font-family: monospace;"> static int readInt() throws IOException

// διαβάζει έναν ακέραιο

{ int res = 0, ch;

boolean negative = false;

ch = System.in.read();

// αγνόησε τα κενά και τις αλλαγές γραμμών που

//τυχόν προηγούνται του ακεραίου

while (ch == ' '

[apoc]

Αν και το ποστ ειναι περι Fortran ,και δεν εχω αποψη ειδα κατι περι Java....

 

HdKiller (αν και δεν εχεις προλαβει να ολοκληρωσεις τον κωδικα σου)..αντι να γραφεις ολα αυτα τα while και τα type checking...

Γιατι οπως διαβαζεις απο το stream παρε ενα string ή stringBuffer και χρησιμοποιησε την

 

Integer.parseInt(String aS);

 

<img border="0" title="" alt="[smile]" src="images/icons/smile.gif" />

 

...

[HdkiLLeR]

Nai vasika gi'auto einai to olo post gia na ginei mia sinartisi stin fortran poy na diavazei apo to pliktrologio tous xaratkires 1,2,3... kai na tous vazei se enan akereo px sto x=123-integer gi'auto ithela na toy dixo kati adistoixo stin java gia na kanei to idio stin fortran alla den xerw giati den me afine na kanw post.Telos padon i idea einai oti otan diavazeis enan xaraktira-ch to 5 diavazeis ton taktiko toy apo to pliktrologio diladi 53 kai kaneis x=ch-48 gia na apothikeiseis ston x tin akerea timi toy xaraktira poy diavases.Tora me ena while ch<='9'&& ch>='0' kai x=x*10+ch-48; ch=next ch; sto telos tha exeis ton akereo poy thes sto x.Tora veveia boreis na kaneis kai alla px ean diavasei ena '-' stin arxi na kaneis return -x klp...Auta ouuf

[Dvs]

kala otan ftiaxan tin glossa den skeftikan na valoun mia antistoixi val i kapoio tropo na ennoso integer? <img border="0" title="" alt="[smile]" src="images/icons/smile.gif" />

[Dvs]

se fortran:

 

real function val (str)

character :: str*30

integer :: mikos,i,iasc

real :: ret

 

ret =0

i = len_trim(str)

mikos =len_trim(str)

 

do while (i>0)

iasc = (IACHAR(str(i:i)) -48) !pernoume ton taktiko aritmo

ret = ret +iasc * (10**(mikos-i))

i=i-1

end do

 

val = ret

 

end function

 

(den mporousan na tin exoun etoimi? <img border="0" title="" alt="[smile]" src="images/icons/smile.gif" /> )

[Dvs]

mia akoma erotisi!

grafo ton exis kodika:

 

Real function getright(x,start)

.

.

.

getright= 12

end function

 

kai sto kirio programma:

 

sum = getright(x,i)

(i sum einai real)

 

auto mou epistrefei 10!

 

(kai to getright=12. pali epistrefei 10, eno exo kai ta exis:

sinartisi epistrefei

123 = 100

12 = 10)

 

ti mporei na ftaiei?