QBasic problem , simple output program

  • Thread starter Thread starter 1/2"
  • Start date Start date
  • Tags Tags
    Output Program
AI Thread Summary
The discussion focuses on solving a simple output problem in QBasic using loops. Participants suggest using the "INPUT" command to accept a word and then employing a loop to print progressively increasing characters from the input. The use of the "locate" function and managing spaces to create a "V" shape output is emphasized. A specific code example is provided, demonstrating how to format the output with spaces and characters. The conversation encourages users to show their work and build upon the provided solutions.
1/2"
Messages
98
Reaction score
0
Does anyone know QBasic here? (cuz it is very uncommon)
Here I have got simple output problem using loop.
How do I accept a word(any) and print it like this(attached)

We can use Nested loop,Left$ ,Right$ MID$,and blanks( please don't go into more complex functions because I haven't learn't it yet)
I one the first part all well till" L" but it becomes messy after this!
PLz help!
 

Attachments

Physics news on Phys.org
Show us your code. There are probably quite a few of us here with experience in QBasic.
 
You can use the "locate" function.
 
You might like to try something like this:

INPUT a$
L = LEN(a$)
FOR I = 1 TO L
PRINT LEFT$(a$, I)
NEXT

This produces an increasing number of characters of whatever you feed in as the input.

Since this is in the homework section, you can easily work out from there how to put it in the form you asked for.
 
What about the blanks in front?
 
This is the homework section, so you need to show some work yourself.

You would put spaces at the beginning of the line so that the total number of characters was equal to the length of the input line. Then you have progressively more spaces and less characters.
Then do the reverse to get the "V" shape.

To print a space, you print " ";
Note the semicolon to avoid starting a new line.

A better way would be to set up a string like this:
space$ = "___________________ " (ignore the underlining)
and take spaces from it with the left$ command.
Then print these before the left$ part of the input string.
 
Last edited:

Similar threads

Replies
10
Views
2K
Replies
5
Views
2K
Replies
7
Views
3K
Replies
12
Views
2K
Replies
9
Views
4K
Replies
12
Views
2K
Back
Top