my program has 1 error need help

[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

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]

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

you had

code:

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

i have

code:

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

[lei4848]

[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]

De-Ja-Vu

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

[lei4848]

[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

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[/quote][code][/code][code][/code][quote][code][/code][list][list=][/list][/list][list][/list][list][/list][list][/list][/quote]

[Dan]

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]

Hacker Dan wrote:

What is wrong with you?

You read my mind..

[Clayton]

person wrote:

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

you had

code:

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

i have

code:

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]

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.