|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.01.2009, 12:31 | #1 |
Пользователь
Регистрация: 17.01.2009
Сообщений: 32
|
Помогите решить задачу на Delphi 7
задача: В строке между словами вставить вместо пробела запятую и пробел. Заранее спасибо!
|
17.01.2009, 12:50 | #2 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
нужно консольное приложение или с формой??????
\
вступлю в команду разработчиков ПО на Delphi
|
17.01.2009, 13:01 | #3 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
program Project1;
{$APPTYPE CONSOLE} uses SysUtils; var a,s:string; i:integer; begin try writeln('vvedite stroku'); readln(a); for i := 1 to Length(a) do if a[i]= ' ' then s:=s+', ' else s:=s+a[i]; writeln('ishodnaya:'); writeln(a); writeln('============='); writeln('ispravlennaya:'); writeln(s); writeln('============='); readln; except on E:Exception do Writeln(E.Classname, ': ', E.Message); end; end.
вступлю в команду разработчиков ПО на Delphi
|
17.01.2009, 15:38 | #4 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Правильно так.
Код:
|
19.01.2009, 12:15 | #5 |
Пользователь
Регистрация: 01.11.2007
Сообщений: 45
|
можно так:
Код:
Последний раз редактировалось NOOB; 19.01.2009 в 12:28. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вычислить максимальную разность между К и суммой двух соседних эллементов массива. | Luska | Помощь студентам | 3 | 22.03.2009 19:22 |
Помогите решить задачу на Delphi | Mura | Фриланс | 8 | 02.02.2009 12:37 |
помогите решить задачу в delphi :( | Malishka23 | Помощь студентам | 1 | 24.05.2008 15:39 |