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

mac

Tue Dec 10, 2002 9:28 am


help

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

write a program to count the total number of characters in a series of 10
words that you enter, and compute the average word lenght.


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

Tony

Tue Dec 10, 2002 12:14 pm



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

use length(text:string) to get the length of the string. Then add them all up and divide by total number of words.


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

mac

Tue Dec 10, 2002 1:28 pm


what

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

what is the code bro


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

Tony

Tue Dec 10, 2002 4:44 pm



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

come on man, learn to read outside the code box.


length(text)


where text is the word. and this function outputs the lenght of it.

so


var text:string := "tony"
var l:int
l := length(text)
put l

This will output 4 since word "tony" is 4 characters long.

Understand now?


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

Dan

Tue Dec 10, 2002 5:31 pm


la la la

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

or you can do it the realy cheep way with getch

ie.


var num:int:=0
var key:string(1)

loop
        getch(key)
        num += 1
end loop


well you will have to put in some if's to stop it.

i dont know why i posted this becuse tony's way is a lot better, oh well  :?


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

Tony

Tue Dec 10, 2002 6:00 pm



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

I think dan is doing some gargabe posts just to make himself look better  :wink: 

lol

though if you're to use getch() then it to exit it should be something like this:


loop
getch(l)
if l="Q" then
exit
else
num:=num+1
end if
end loop


though this way you can't use capital Q in any of your words...  :?