|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.06.2011, 14:16 | #1 |
Регистрация: 29.04.2011
Сообщений: 4
|
Строки
. Дан текст, заменить все вхождения заданного слога (сочетания 2-х символов) на заданный символ.(Задача должна содержать два модуля: модуль 1 - описания используемые, как в основной программе, так и в других модулях; модуль 2 - функции обработки данных)
|
11.06.2011, 16:01 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
А что именно у тебя не получается - описать модули или функции?
Если функция то вот: Код:
I'm learning to live...
|
14.06.2011, 17:59 | #3 |
Регистрация: 29.04.2011
Сообщений: 4
|
модули не получаются.
|
14.06.2011, 18:28 | #4 |
Регистрация: 29.04.2011
Сообщений: 4
|
Вот я набросала кое-что, посмотрите пожалуйста...
Модуль 1 program main; uses MyProc, MyTypes; var s: TMyStr; begin OutputStr('Введите текст'); InputStr(s); Replake(s, ' ', ' '); OutputStr(s); ReadLn; end. Модуль 2 unit obrabotka; interface uses MyTypes; procedure InputStr(var s: TMyStr); procedure OutputStr(const s: TMyStr); function Replake(s,WhatSeek,WhatRepl:string) :String; implementation procedure InputStr(var s: TMyStr); begin ReadLn(s); end; procedure OutputStr(const s: TMyStr); begin WriteLn(s); end; function Replake(s,WhatSeek,WhatRepl:string) :String; var i:integer; begin i:=pos(WhatSeek,s); while i>0 do begin delete(s,i,2); insert(s,WhatRepl,i); i:=pos(WhatSeek,s); end; Replake:=s; end; end. Модуль 3 unit op; interface type str= string; implementation end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сделать в гриде строки выше, чтобы не растягивать строки до бесконечности | kris__tina | БД в Delphi | 1 | 09.06.2011 15:31 |
Даны строки S и S0. Удалить из строки S все подстроки, совпадающие с S0 . Если совпадающих подстрок нет, | Шпунюся | Помощь студентам | 1 | 16.12.2010 21:02 |
Создание пустой строки и копирование в неё содержимое предыдущей строки | Gvaridos | Microsoft Office Excel | 2 | 29.10.2010 13:33 |
Определять максимальную длину той части строки s, которая не содержит символы из строки s1. | Александе еть я | Общие вопросы C/C++ | 5 | 13.04.2010 20:54 |
Перенести символа с начала строки в место перед запятой этой же строки. | Zhiltsov | Microsoft Office Excel | 4 | 05.06.2009 13:10 |