Составить программу ** Basice,которая будет выводить ** экран 10 слов составленного из...

Question

Составить программу на Basice,которая будет выводить на экран 10 слов составленного из исходного
Слово:программа
Составленные слова:опа,пара,грамм,маг,порог,гамма,рама,гора,рога,мама

Comments

Еще раз: эта задача в таком виде неразрешима в условиях школьных знаний

---

Я, кажется, догадался, о чем на самом деле речь: Есть исходное слово "программа". Надо написать последовательность операторово, которая осуществит из этого слова выборку символов с тем, чтобы образовались 10 уже составленных и перечисленных Вами слов.

---

По типу: "опа" - взять третью букву, потом первую и потом последнюю.

---

Это, конечно можно написать. Только нудно.

---

Функция MID$ Вам в помощь.

---

Да Вы перечитайте комментарии к другим задачам - такое ощущение. что на занятиях по информатике вообще никогда никого не было.

---

Я там Вам личное сообщение отправил

---

Но раз ушли, то дело Ваше)

Answer 1

CONST w = "программа"
'          123456789
CLS
PRINT MID$(w, 3, 1) + LEFT$(w, 1) + RIGHT$(w, 1)
PRINT LEFT$(w, 1) + RIGHT$(w, 1) + MID$(w, 2, 1) + MID$(w, 6, 1)
PRINT MID$(w, 4, 5)
PRINT RIGHT$(w, 2) + MID$(w, 4, 1)
PRINT LEFT$(w, 1) + MID$(w, 3, 1) + MID$(w, 2, 3)
PRINT MID$(w, 4, 1) + RIGHT$(w, 4)
PRINT MID$(w, 5, 3) + RIGHT$(w, 1)
PRINT MID$(w, 4, 1) + MID$(w, 3, 1) + MID$(w, 5, 2)
PRINT MID$(w, 2, 3) + RIGHT$(w, 1)
PRINT RIGHT$(w, 2) + RIGHT$(w, 2)

Результат выполнения программы
опа
пара
грамм
маг
порог
гамма
рама
гора
рога
мама