Question

Помогите пж срочно 100 баллов. составить программу в basic,которая из слова ИНФОРМАТИКА получится слово ФОРМАТ,НОРМА,НОРА,ТОРФ,ФИРМА,НОТА.1)составить программу,которая печатает заданное слово задом наперед.​

Answer 1

Ответ:

Const

 s='информатика';

var

 s1:string;

begin

 s1:=s; Delete(s1,1,2); Delete(s1,7,3);

 Writeln(s1);

 s1:=s; Delete(s1,1,1); Delete(s1,2,1); Delete(s1,3,3); Delete(s1,4,2);

 Writeln(s1)

end.

Объяснение:

Answer 2

Конечно, вот программа на BASIC, которая выполняет то, что вы описали:

basicCopy code
10 INPUT "Введите слово: ", word$
20 FOR i = 1 TO LEN(word$)
30   PRINT MID$(word$, i, 1);
40 NEXT i
50 PRINT
60 END

Вы можете ввести слово после строки "Введите слово: ", и программа выведет это слово задом наперед.

Чтобы сгенерировать перечисленные вами слова из слова "ИНФОРМАТИКА", вам понадобится более сложная программа:

basicCopy code
10 INPUT "Введите слово: ", word$
20 LET target$ = "ФОРМАТНОРМАНОРАТОРФФИРМАНОТА"
30 FOR i = 1 TO LEN(target$) - 4
40   FOR j = 4 TO LEN(target$) - i + 1 STEP -1
50     current$ = MID$(target$, i, j)
60     found = 1
70     FOR k = 1 TO LEN(current$)
80       IF INSTR(word$, MID$(current$, k, 1)) = 0 THEN
90         found = 0
100       END IF
110     NEXT k
120     IF found THEN
130       PRINT current$
140     END IF
150   NEXT j
160 NEXT i
170 END

Эта программа будет перебирать все возможные комбинации подстрок из исходного слова "ИНФОРМАТИКА" и сравнивать их с целевыми словами, выводя совпадающие.