Computer Science Canada

my program has 1 error need help
Author:  lei4848 [ Sat Mar 25, 2006 6:02 pm ]
Post subject:  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
Author:  person [ Sat Mar 25, 2006 6:21 pm ]
Post subject: 
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))
Author:  lei4848 [ Sun Mar 26, 2006 11:08 am ]
Post subject:  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
Author:  Imm0rtal [ Sun Mar 26, 2006 11:32 am ]
Post subject: 
De-Ja-Vu

http://www.compsci.ca/v2/viewtopic.php?t=11665
Author:  lei4848 [ Sun Mar 26, 2006 2:55 pm ]
Post subject:  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

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]
Author:  Dan [ Sun Mar 26, 2006 3:30 pm ]
Post subject: 
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.
Author:  Imm0rtal [ Sun Mar 26, 2006 6:47 pm ]
Post subject: 
Hacker Dan wrote:
What is wrong with you?


You read my mind.. Confused
Author:  Clayton [ Mon Mar 27, 2006 7:26 pm ]
Post subject: 
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)
Author:  person [ Mon Mar 27, 2006 10:08 pm ]
Post subject: 
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.

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy