В текст из 3 слов нужно вставить ещё одно после первого

@Rusakovich · Регистрация: 07.12.2010

Студворк — интернет-сервис помощи студентам

Я не как не могу разобраться со след задачей.В текст из 3 слов нужно вставить ещё одно после первого!ПОМОГИТЕ.Я думаю примерно должно быть так.Находим пробел после первого слова запоминаем номер и после него вставляем слово! и ЕЩЁ как мне правильно вывести двумерный массив в в виде матрицы чтобы он не "уплывал".Как я понимаю через Print using??Но как точно не пойму спасибо!

@softmob · 07.12.2010, 21:53

2)
например так

QBasic/QuickBASIC
1
2
3
4
5
6
7
FOR y = 1 TO n
    FOR x = 1 TO n
        LOCATE y + 1, x * 4
        PRINT a(y, x);
    NEXT
    PRINT
NEXT

Добавлено через 4 минуты
1)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
CLS
INPUT "vvedite text"; a$
INPUT "vvedite slovo"; b$
DO
    i = i + 1
    IF MID$(a$, i, 1) = " " THEN k = i
LOOP UNTIL k > 0 OR i = LEN(a$)
c$ = MID$(a$, 1, k) + b$ + " " + MID$(a$, k + 1, LEN(a$))
PRINT c$

@Quiet Snow · 07.12.2010, 21:54

в в виде матрицы чтобы он не "уплывал"

Смотря как надо выводить, есть действительные матрицы, там уже придётся писать достаточно сложный алгоритм по отсеканию куска дробной части. А так только через LOCATE естественно.

@Rusakovich · 07.12.2010, 23:00 **[ТС]**

Или я плохо обьяснил. Или я не правильно вбиваю.Локейт это по идеи с какого места распологать?Так но таблица всё равн будет уплывать например если ввести так:
12 123 11
111 2133 1233
1233 2 23

РАЗВЕ ЧЕРЕЗ ПРИНТ ЮЗИНГ НЕЛЬЗЯ (ПРОСТО Я ТОЧНО НЕ ЗНАЮ)

Добавлено через 11 минут
А по 2му.Могли бы вы пояснить в кратце конечно что такое DO...LOOP я знаю но конкретно в данной прогремм.забуксовал.Сделать своеобразные REMы.Или тодельно коментарием.Так как он у меня вставляет слово не после первого слова текта а преде ним

@softmob · 08.12.2010, 07:03

условие было в тексте из 3 слов, а не одного.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
CLS
INPUT "vvedite text"; a$
INPUT "vvedite slovo"; b$
FOR i = LEN(a$) TO 1 STEP -1
    IF MID$(a$, i, 1) = " " THEN k = i ' ищем первый пробел
NEXT
' если есть пробел вставляем слово после первого, если нет пробелов склеиваем слова
IF k > 0 THEN c$ = MID$(a$, 1, k) + b$ + MID$(a$, k, LEN(a$)) ELSE c$ = a$ + " " + b$
PRINT c$

Добавлено через 8 минут

Локейт это по идеи с какого места распологать?Так но таблица всё равн будет уплывать

сначала хотя бы проверил

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CLS
n = 3
DIM a(n, n)
DATA 12,123,11
DATA 111,2133,1233
DATA 1233,2,23
FOR y = 1 TO n
    FOR x = 1 TO n
        READ a(y, x)
    NEXT
NEXT
FOR y = 1 TO n
    FOR x = 1 TO n
        LOCATE y * 1.5, x * 6
        PRINT a(y, x);
    NEXT
    PRINT
NEXT

и где тут расплывается?

Добавлено через 1 минуту
можешь и через print using если так охота

@Shkap · 08.12.2010, 11:34

Сообщение от Rusakovich

Или я плохо обьяснил. Или я не правильно вбиваю.Локейт это по идеи с какого места распологать?Так но таблица всё равн будет уплывать например если ввести так:
12 123 11
111 2133 1233
1233 2 23

РАЗВЕ ЧЕРЕЗ ПРИНТ ЮЗИНГ НЕЛЬЗЯ (ПРОСТО Я ТОЧНО НЕ ЗНАЮ)

помойму print using "###########" (ч)"что печатать"
ч - помойму нужен какойто знак мб";"
тогда для "что печатать" будет выведено места равное коичеству # если # больше чем надо то там будут пробелы, хотя тут надо точно знать что будет печататься, хотя и в locate тоже, чтобы определить сколько нужно # (просто 5 пробелов на мой взгляд как то странно)

Добавлено через 2 минуты
вот еще что если будешь исползовать ? USING выводимая информация будет выравнена по правому краю, а при locate по правому

@Quiet Snow · 08.12.2010, 11:46

Shkap, не стоит упрощать неупрощаемое, USING это опупенно многофункциональный оператор, открывайте help Qbasic и смотрите.

Что вы привязались к USING? Он для других вещей подходит больше.

@Shkap · 08.12.2010, 12:26

Сообщение от >Quiet Snow<

Shkap, не стоит упрощать неупрощаемое, USING это опупенно многофункциональный оператор, открывайте help Qbasic и смотрите.

Что вы привязались к USING? Он для других вещей подходит больше.

ну просили using получите

@Quiet Snow · 08.12.2010, 13:06

Точно, )))

@Rusakovich · 08.12.2010, 22:25 **[ТС]**

Спасибо всем за ответы!Но всё таки я сделал через using ну не в этом дело.Просто через Locate был illegal function call.НО по 2й вопросы так и остались теперь он в конец слово вставляет!
А я не как не могу сделать так!Ввожу изначально например:

Mama kupila sobacu - Это текст
Bolchuiu - Это слово
ПОЛУЧАЮ- Mama Bolchuiu kupila sobacu

@softmob · 09.12.2010, 06:45

Сообщение от Rusakovich

Ввожу изначально например:
Mama kupila sobacu - Это текст
Bolchuiu - Это слово
ПОЛУЧАЮ- Mama Bolchuiu kupila sobacu

так вы же это и хотели

Сообщение от Rusakovich

текст из 3 слов нужно вставить ещё одно после первого

что просили, то и получили.

@Rusakovich · 09.12.2010, 08:57 **[ТС]**

Ну если бы это так получалось я бы не спрашивал ещё раз.Получается так Mama kupila sobacuBolchuiu

@кот Бегемот · 09.12.2010, 13:34

Rusakovich, проверь как следует, всё правильно в посте №2 от softmob

@Quiet Snow · 09.12.2010, 13:59

>Просто через Locate был illegal function call.
Ясен пень, границы текстовой области от 1 до 80 по горизонлали и от 1 до 25 по вертикали, при этом на 24 строке включается механизм пролистывания(при печати) вверх всей страницы на 1 строку. Это можно обойти если писать через память, но вам об этом рано думать.
Выложите кстати вашу программу с USING, наверняка она использует его так:

PureBasic
1
2
3
FOR i% = 1 TO 9
PRINT USING "##"; i%;
NEXT

На мой взгляд это не самый грамотный вариант.

@Rusakovich · 09.12.2010, 18:25 **[ТС]**

Спасибо всем огромное!Все мои вопросы исчерпаны!
А по поводу 2й программы не получалось потому, что я вместо " " писал без пробела ""

По поводу принт Юзинг: Вводиться изначально с клавы любой массив и сам вывод так
For i=1 to m
For j=1 to m
Print using "####";a(i,J);
next
print
ne[t Может вам и виднее но выравниванеи по правой стороне есть а чтобы через локейт я буксую

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

В текст из 3 слов нужно вставить ещё одно после первого

Решение

Решение

@Rusakovich 0 / 0 / 0 Регистрация: 07.12.2010 Сообщений: 8

	В текст из 3 слов нужно вставить ещё одно после первого 07.12.2010, 21:39. Показов 1306. Ответов 14 Метки нет (Все метки) Я не как не могу разобраться со след задачей.В текст из 3 слов нужно вставить ещё одно после первого!ПОМОГИТЕ.Я думаю примерно должно быть так.Находим пробел после первого слова запоминаем номер и после него вставляем слово! и ЕЩЁ как мне правильно вывести двумерный массив в в виде матрицы чтобы он не "уплывал".Как я понимаю через Print using??Но как точно не пойму спасибо! 0

@Rusakovich 0 / 0 / 0 Регистрация: 07.12.2010 Сообщений: 8
	07.12.2010, 23:00 [ТС]
	Или я плохо обьяснил. Или я не правильно вбиваю.Локейт это по идеи с какого места распологать?Так но таблица всё равн будет уплывать например если ввести так: 12 123 11 111 2133 1233 1233 2 23 РАЗВЕ ЧЕРЕЗ ПРИНТ ЮЗИНГ НЕЛЬЗЯ (ПРОСТО Я ТОЧНО НЕ ЗНАЮ) Добавлено через 11 минут А по 2му.Могли бы вы пояснить в кратце конечно что такое DO...LOOP я знаю но конкретно в данной прогремм.забуксовал.Сделать своеобразные REMы.Или тодельно коментарием.Так как он у меня вставляет слово не после первого слова текта а преде ним 0

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	08.12.2010, 11:46
	Shkap, не стоит упрощать неупрощаемое, USING это опупенно многофункциональный оператор, открывайте help Qbasic и смотрите. Что вы привязались к USING? Он для других вещей подходит больше. 0

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	08.12.2010, 13:06
	Точно, ))) 0

@Rusakovich 0 / 0 / 0 Регистрация: 07.12.2010 Сообщений: 8
	08.12.2010, 22:25 [ТС]
	Спасибо всем за ответы!Но всё таки я сделал через using ну не в этом дело.Просто через Locate был illegal function call.НО по 2й вопросы так и остались теперь он в конец слово вставляет! А я не как не могу сделать так!Ввожу изначально например: Mama kupila sobacu - Это текст Bolchuiu - Это слово ПОЛУЧАЮ- Mama Bolchuiu kupila sobacu 0

@Rusakovich 0 / 0 / 0 Регистрация: 07.12.2010 Сообщений: 8
	09.12.2010, 08:57 [ТС]
	Ну если бы это так получалось я бы не спрашивал ещё раз.Получается так Mama kupila sobacuBolchuiu 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	09.12.2010, 13:34
	Rusakovich, проверь как следует, всё правильно в посте №2 от softmob Изображения 2

@Rusakovich 0 / 0 / 0 Регистрация: 07.12.2010 Сообщений: 8
	09.12.2010, 18:25 [ТС]
	Спасибо всем огромное!Все мои вопросы исчерпаны! А по поводу 2й программы не получалось потому, что я вместо " " писал без пробела "" По поводу принт Юзинг: Вводиться изначально с клавы любой массив и сам вывод так For i=1 to m For j=1 to m Print using "####";a(i,J); next print ne[t Может вам и виднее но выравниванеи по правой стороне есть а чтобы через локейт я буксую 0