Главная
Решение задач.
Справочные данные.
Формулы.
Программирование.
Как в Windows?
Разное.
Утилиты Windows.
Несправности принтеров.
BIOS по алфавиту.
Тесты.
Карта сайта.
|
Программа замены символов в тексте.
30 s = 0
40 i = 0
60 CLS
70 INPUT " Введите текст (не более 255 символов)"; s$
80 FOR i = 1 ТО LEN(s$)
90 i = INSTR(i, s$,".")
100 REM Символ "." заменить на "@"
110 IF i = 0 THEN i = LEN(s$) + 1 ELSE s$ = LEFT$(s$, i - 1) + "@" +RIGHT$(s$, LEN(s$) - i)
120 NEXT i
130 PRINT s$
140 END
Web программирование Pascal&Delphi Бeйсик
|
|
|