How to repeat a set string

[asim1999]

What I am trying to do is to repeat a set string for example: "comp" so it has as many letters as the input string, such as "Hello". so the other string will look like this: " compc". how do I do this in Lazarus and make it ignore spaces?

[Helius]

Dude, please start adding what language you're talking about, instead of the IDE, prefferably in the title of the thread. Most people have no idea wtf "Lazarus" is.

[minibois]

What I am trying to do is to repeat a set string for example: "comp" so it has as many letters as the input string, such as "Hello". so the other string will look like this: " compc". how do I do this in Lazarus and make it ignore spaces?

I don't do Lazarus (or Pascal), but is there a String.Length function of some sorts in it?

Might want to look that up.

 

After that .. Hmm.. There are different strategies after that.

You can repeat the word like 5 times and remove excess letters..

Or you can break apart the first word you have and let the program 'lay down letters' the amount of times of the other word's length..

[Midnight]

Dude, please start adding what language you're talking about, instead of the IDE, prefferably in the title of the thread. Most people have no idea wtf "Lazarus" is.

 

This.

 

Just use your brain and math(specifically division and modulo). This is pretty simple.

[KuroSetsuna29]

This.

 

Just use your brain and math(specifically division and modulo). This is pretty simple.

 

^ That.

 

But here goes, this is my second time with pascal, no criticism please. I leave it to you to figure out how to ignore spaces. Possibly loop through input string and count number of non-spaces?

var input1, input2, output : string;var len1, len2, multiple, modulus, i : integer;begin  input1 := 'comp';  input2 := 'hello';  output := '';    len1 := byte(input1[0]);  len2 := byte(input2[0]);    multiple := len2 div len1; (* integer division *)  modulus := len2 mod len1;    (* repeat whole word *)  for i := 1 to multiple do  begin    output += input1;  end;    (* output last partial string *)  output += copy(input1, 0, modulus);    writeln(output);end.