Supersuslik
1

Разработать программу для ускоренного написания текстов

02.05.2012, 19:54. Показов 1248. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
всем привет, нужна помощь в написании программки полностью:
Задание:
Разработать программу для ускоренного написания текстов Паскаль-программ, основанную на том, что сочетание ~b эта программа превращает в Begin, ~p- В programm. То есть латинская буква со знаком ~ разворачиваться в целое слово. Придумать такой словарик на 7-10 слов и сделать эту программу. Исходные строки вводятся в окно компонента Memo, затем программа выводит на экран (другой или тот же Memо), расшифровав все условные обозначения со знаком ~ (тильда).
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.05.2012, 19:54
Ответы с готовыми решениями:

Разработать программу предназнченную для зашифровки текстов
Разработать программу предназнченную для зашифровки текстов. Вывести на экран исходный текст и...

Нужен работник для написания текстов на сайт
Есть вакансия работника для написания текстов на сайт. Работа на пол-ставки, договор. Выплаты...

Нужен человек для написания текстов (автомобили)
Нужен человек для написания текстов. Тематика автомобили оплата 1 доллар за 1000 символов! Нужно...

Посоветуйте язык сверхвысокого уровня (ЯСВУ) для написания скриптов обработки текстов и работы с GUI в Windows
Этот ЯСВУ мне нужен для написания приложения (бота), который бы выполнял нужные мне действия с...

2
480 / 253 / 51
Регистрация: 30.06.2010
Сообщений: 651
03.05.2012, 14:18 2
Лучший ответ Сообщение было отмечено как решение

Решение

На кнопке обработки напишем все нужные варианты такой команды:
Delphi
1
Memo2.Text := StringReplace(Memo1.Text, '~b', 'begin', [rfIgnoreCase, rfReplaceAll]);
Для работы нужен модуль SysUtils
0
31 / 31 / 11
Регистрация: 03.02.2011
Сообщений: 182
03.05.2012, 14:34 3
Как сказал pHOMM сделай через регулярки, но если вдруг иссяк запас мыслей вот, пару примеров
Delphi
1
2
3
4
5
6
7
8
Memo1.Text:=StringReplace(Memo1.Text, '~b', 'begin', [rfIgnoreCase, rfReplaceAll]);
Memo1.Text:=StringReplace(Memo1.Text, '~p', 'programm', [rfIgnoreCase, rfReplaceAll]);
Memo1.Text:=StringReplace(Memo1.Text, '~e', 'end', [rfIgnoreCase, rfReplaceAll]);
Memo1.Text:=StringReplace(Memo1.Text, '~wh', 'while', [rfIgnoreCase, rfReplaceAll]);
Memo1.Text:=StringReplace(Memo1.Text, '~re', 'repeat', [rfIgnoreCase, rfReplaceAll]);
Memo1.Text:=StringReplace(Memo1.Text, '~u', 'until', [rfIgnoreCase, rfReplaceAll]);
Memo1.Text:=StringReplace(Memo1.Text, '~w', 'writeln', [rfIgnoreCase, rfReplaceAll]);
Memo1.Text:=StringReplace(Memo1.Text, '~r', 'readln', [rfIgnoreCase, rfReplaceAll]);
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.05.2012, 14:34
Помогаю со студенческими работами здесь

Разработать иерархию не менее 2 классов, и программу Разработать программу для реализации игры пятнашки. Разработать 2-3
Составить описание класса многочленов от одной переменной, задаваемых степенью многочлена и...

Подскажите программу для написания скриптов
3) Подскажите программу для написания скриптов :)

помогите составить программу для написания текста
1.составить программу по заданному сценарию: - Здравствуй! Как тебя зовут? (Вводить...

Видеоплеер для наиболее качественного ускоренного воспроизведения
Фильмы на скорости 1.25-1.5 смотрятся намного бодрее, чем на базовой скорости. Сейчас пользуюсь...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru