String Problem

[Jurica]

Alright having problems with string now, tried to do it but couldn't figure it out. I've done some of it but not all of it.

Question: Write a Turing program that accepts a word typed at the keyboard. Your program will then create the pattern illustrated like this one:

word
o__ r
r__ o Ignore the ___'s.
drow

var word : string

% Tells you to enter a word
put "Enter word: " ..
get word
% Determines how much letters are in the words
put word, " has ", length (word), " letters."
put ""
% Top row

% Right row

% Bottom row

% Left row
for i : 1 .. length (word)
put word (i)
end for

[OneOffDriveByPoster]

You can use code tags:

code:

[code]word o  r r  o drow[/code]

gets you

code:

word o  r r  o drow

Anyhow, the first and last rows are obvious.
The middle rows will follow a pattern: (2nd letter) ((length - 2) spaces) (2nd-to-last letter), etc.

[Jurica]

Said there were 3 errors, and 2 warnings.

[Jurica]

Okay, got it. But they put a random word, so it won't be the letter word that will be there, can be anything.

[OneOffDriveByPoster]

Jurica @ Mon Nov 10, 2008 4:45 pm wrote:

Okay, got it. But they put a random word, so it won't be the letter word that will be there, can be anything.

What I said applies to any input string. You need a loop for the middle rows. Follow the pattern and you will know what to put inside the loop.

[Jurica]

Okay, I finished it. The code to do it is:

code:

var word : string var current_line : int := 5 word := "word" put "" % Tells you to enter a word put "Please enter a word: " .. get word % Determines how much letters are in the words put "The word '", word, "' has ", length (word), " letters." put "" % Top Row put word % Left Row for i : 2 .. length (word)-1     put word (i) end for % Bottom Row for decreasing i : length (word) .. 1     put word (i) .. end for % Right Row for decreasing a : length (word)-1 .. 2     locate (current_line, length (word))     put word (a)     current_line := current_line + 1 end for

[Jurica]

Opps, made a mistake. Here's the right one:

Turing:

% Variables var word : string var current_line : int := 5 % Tells you to enter a word put "Please enter a word: " .. get word % Determines how much letters are in the words put "The word '", word, "' has ", length (word), " letters." put "" % Top Row put word % Left Row for i : 2 .. length (word)-1     put word (i) end for % Bottom Row for decreasing i : length (word) .. 1     put word (i) .. end for % Right Row for decreasing a : length (word)-1 .. 2     locate (current_line, length (word))     put word (a)     current_line := current_line + 1 end for