-----------------------------------

lei4848

Sat Mar 25, 2006 6:02 pm


my program has 1 error need help

-----------------------------------

%This prgram is created by Johnson Diep
var number : string
var located : int := 1
var intnumber : int :=0
var realnumber : real :=0
var rea11 : int := 0
var decimal : int := 0
var add : int := 0

get number

for i : 1 .. length (number)
if ord (number (i)) = 46 then
decimal := i
rea11 := 1
end if
end for

if rea11 = 1 then
if length (number) = 3 then
if decimal = 1 then
located :=2
realnumber := realnumber + ((ord (number (located)) -48 / 10)

located :=3
realnumber := realnumber + ((ord (number (located)) -48) / 100)
elsif decimal =2 then
located :=1
realnumber := realnumber + ((ord (number (located)) -48))
located :=3
realnumber := realnumber + ((ord (number (located)) -48) / 10)

elsif decimal =3 then
located :=1
realnumber := realnumber + ((ord (number (located)) -48 * 10))
located :=2
realnumber := realnumber + ((ord (number (located)) -48))
end if
end if

put realnumber
else
if length (number) = 1 then
located := 1
intnumber := intnumber + ord (number (located)) -48
elsif length (number) =2 then
located :=1
intnumber := intnumber + ord (number (located)) -48
elsif length (number) = 2 then
located :=1
intnumber := intnumber + ((ord (number (located)) -48) * 10)
located := 2
intnumber := intnumber + ((ord (number (located)) -48))
elsif length (number) = 3 then
located :=1
intnumber := intnumber + ((ord (number (located)) -48) * 100)
located :=2
intnumber := intnumber + ((ord (number (located)) - 48) * 10)
located :=3
intnumber := intnumber + ((ord(number (located)) -48))
elsif length (number) = 4 then
located :=1 
intnumber :=intnumber + ((ord(number (located)) -48) *1000)
located :=2
intnumber :=intnumber + ((ord(number (located)) -48) *100)
located :=3
intnumber :=intnumber + ((ord(number (located)) -48) *10)
located :=4
intnumber :=intnumber + ((ord(number (located)) -48))
end if
put intnumber
end if


-----------------------------------

person

Sat Mar 25, 2006 6:21 pm



-----------------------------------

1) use code tags
2) read the error message at the bottom of ur turing screen
3)

you had

realnumber := realnumber + ((ord (number (located)) - 48 / 10)


i have

realnumber := realnumber + ((ord (number (located)) - 48 / 10))



-----------------------------------

lei4848

Sun Mar 26, 2006 11:08 am


Re: my program has 1 error need help

-----------------------------------

[quote="lei4848"]%This prgram is created by Johnson Diep
var number : string
var located : int := 1
var intnumber : int :=0
var realnumber : real :=0
var rea11 : int := 0
var decimal : int := 0
var add : int := 0

get number

for i : 1 .. length (number)
if ord (number (i)) = 46 then
decimal := i
rea11 := 1
end if
end for

if rea11 = 1 then
if length (number) = 3 then
if decimal = 1 then
located :=2
realnumber := realnumber + ((ord (number (located)) -48 / 10)

located :=3
realnumber := realnumber + ((ord (number (located)) -48) / 100)
elsif decimal =2 then
located :=1
realnumber := realnumber + ((ord (number (located)) -48))
located :=3
realnumber := realnumber + ((ord (number (located)) -48) / 10)

elsif decimal =3 then
located :=1
realnumber := realnumber + ((ord (number (located)) -48 * 10))
located :=2
realnumber := realnumber + ((ord (number (located)) -48))
end if
end if


-----------------------------------

Imm0rtal

Sun Mar 26, 2006 11:32 am



-----------------------------------

De-Ja-Vu

http://www.compsci.ca/v2/viewtopic.php?t=11665


-----------------------------------

lei4848

Sun Mar 26, 2006 2:55 pm


Re: my program has 1 error need help

-----------------------------------

[code][/code][code][/code][quote][code][/code][list][list=][/list][/list][list][/list][list][/list][list][/list][/quote]


-----------------------------------

Dan

Sun Mar 26, 2006 3:30 pm



-----------------------------------

What is wrong with you? You have been given the awser to your probelm in 2 difrent threas now, reposting your code over and over is not going to do anything. If you keep this foolishness up i will have to ban you from this site.


-----------------------------------

Imm0rtal

Sun Mar 26, 2006 6:47 pm



-----------------------------------

What is wrong with you?

You read my mind..  :?


-----------------------------------

Clayton

Mon Mar 27, 2006 7:26 pm



-----------------------------------

1) use code tags
2) read the error message at the bottom of ur turing screen
3)

you had

realnumber := realnumber + ((ord (number (located)) - 48 / 10)


i have

realnumber := realnumber + ((ord (number (located)) - 48 / 10))


if you read the code you will be able to tell the difference (hint look at the end)


-----------------------------------

person

Mon Mar 27, 2006 10:08 pm



-----------------------------------

I assumed the forgotten end if was just him forgetting to highlight the last line when he copy pasted (happens to me all the time).
But still, the second one he posted works fine except for the bracket thing.