Computer Science Canada

Recognizing spaces as "Space"
Author:  Da_Big_Ticket [ Mon Oct 17, 2005 10:36 am ]
Post subject:  Recognizing spaces as "Space"
So far I have my program in working order. It is able to find the middle letter(s) of any word or phrase entered. However, one component of the program marking scheme is that the program is supposed to recognize spaces, and instead of displaying them literally as a space, the program needs to say "Space" I will post my working code as I have it, if you can fix it i would be very appreciative, its under the calculate procedure. Thanks

code:

import GUI in "%oot/lib/GUI"

% --------------------------------------------------- Variable Table -------------------------------------------------------
var key, input_char : string (1)
var word : string := ""
var winID, oddeven, middle1, middle2, lengthword, introscreen, layoutscreen, closingscreen, font1, font2 : int
% ------------------------------------------------------ End Table ---------------------------------------------------------

% ---------------------------------------------- Values for Pictures, Fonts ------------------------------------------------
introscreen := Pic.FileNew ("e:/turinglayout4intro.jpg")
layoutscreen := Pic.FileNew ("e:/turinglayout4.jpg")
closingscreen := Pic.FileNew ("e:/turinglayout4close.jpg")
font1 := Font.New ("arial:10")
font2 := Font.New ("comicsansms:20")
% ------------------------------------------------------ End Values --------------------------------------------------------

% ----------------------------------------------------- Open Window --------------------------------------------------------
winID := Window.Open ("position:middle,center, graphics: 640;480, Title:Middle Letter Machine")
% This opens a window with a specific position on screen, a speicifc size, and with a custom title
% ------------------------------------------------------ End Window --------------------------------------------------------
% -------------------------------------------------------- Music -----------------------------------------------------------
process coldplay
    loop
        Music.PlayFile ("e:/coldplay.MP3")
    end loop
end coldplay
% This opens a music file, is called later in the program, and repeats until the program is exited
% ------------------------------------------------------ End Music ---------------------------------------------------------

% ------------------------------------------------ Finding Middle Letters --------------------------------------------------
procedure calculate
    if lengthword div 2 = lengthword / 2 then
        Font.Draw ("Your word contains an even number of letters", 290, 70, font1, white)
        middle1 := lengthword div 2
        middle2 := middle1 + 1
        Font.Draw ("Your middle letters of the word inputted are", 290, 50, font1, white)
        Font.Draw (word (middle1), 370, 30, font2, white)
        Font.Draw ("And", 395, 30, font1, white)
        Font.Draw (word (middle2), 430, 30, font2, white)
    else
        Font.Draw ("Your word contains an odd amount of letters", 290, 70, font1, white)
        middle1 := lengthword div 2 + 1
        Font.Draw ("Your middle letter is", 350, 50, font1, white)
        Font.Draw (word (middle1), 410, 30, font2, white)
    end if
end calculate
% -------------------------------------------------- End Middle Letters ----------------------------------------------------

% ---------------------------------------------------- Closes Window -------------------------------------------------------
procedure exitprog
    Window.Close (winID)
end exitprog
% This procedure is used to completely close the run screen, is called later in program by the button "Quit"
% -------------------------------------------------- End Close Window ------------------------------------------------------
% ---------------------------------------------------- Closing Screen ------------------------------------------------------
procedure finish
    cls
    Pic.Draw (closingscreen, 0, 0, picCopy)
    var exitprogram : int := GUI.CreateButton (146, 37, 350, "Click Here To Completly Close The Program", exitprog)
end finish
% -------------------------------------------------- End Closing Screen ----------------------------------------------------
% ---------------------------------------------------- Main Program --------------------------------------------------------
procedure complete
    View.Set ("nocursor")
    Pic.Draw (introscreen, 0, 0, picCopy)
    fork coldplay
    getch (key)
    cls
    Pic.Draw (layoutscreen, 0, 0, picCopy)
    locate (maxrow div 1.3, round (maxcol / 1.8))
    get word:*
    lengthword := length (word)
    var calculator : int := GUI.CreateButton (17, 252, 120, "Calculate", calculate)
    var repeatButton : int := GUI.CreateButton (17, 148, 120, "Repeat", complete)
    var quitButton := GUI.CreateButton (17, 30, 120, "Quit", finish)
    loop
        exit when GUI.ProcessEvent
    end loop
end complete
% --------------------------------------------------End Main Program -------------------------------------------------------


complete

Author:  bass_maniac [ Mon Oct 17, 2005 11:17 am ]
Post subject: 
First you can change
code:
if lengthword mod 2 = lengthword / 2 then

to
code:
if lengthword mod 2 = 0

just because it's more efficient.

Here is the modified code.
code:
procedure calculate
    if lengthword mod 2 = 0 then
        Font.Draw ("Your word contains an even number of letters", 290, 70, font1, black)
        middle1 := lengthword div 2
        middle2 := middle1 + 1
        Font.Draw ("Your middle letters of the word inputted are", 290, 50, font1, black)
        if word (middle1) = " " then
            Font.Draw ("Space", 320, 30, font2, black)
        else
            Font.Draw (word (middle1), 370, 30, font2, black)
        end if
        Font.Draw ("And", 395, 30, font1, black)
        if word (middle2) = " " then
            Font.Draw ("Space", 430, 30, font2, black)
        else
            Font.Draw (word (middle2), 430, 30, font2, black)
        end if
    else
        Font.Draw ("Your word contains an odd amount of letters", 290, 70, font1, black)
        middle1 := lengthword div 2 + 1
        Font.Draw ("Your middle letter is", 350, 50, font1, black)
        Font.Draw (word (middle1), 410, 30, font2, black)
    end if
    View.Update
end calculate


Basically I just searched the word at middle1 and middle2 to see if that character was a space and output a different string if it was. You can learn about searching strings in http://www.compsci.ca/v2/viewtopic.php?t=8229.

Note: I changed the text to black, because none of us will have your background pics. You can change it back to white, though.
Author:  jamonathin [ Mon Oct 17, 2005 11:17 am ]
Post subject: 
Im not shure if i understand what you mean.

You're now looking for spaces in the word/phrase entered. Do you want to tell the user how many spaces they entered? are you goign to squeeze the word SPACE in where the actual 'space' is? Do you want to wipe out the spaces and calculate that way?

To find a space all you need to check for is.

code:

var word:string:="BLAH BLAH B00GER"
for i: 1 .. length(word)
if word (i)=" " then
put "fart (SPACE)"
end if
end for

:


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

Terms of Use | Privacy Policy