|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.06.2009, 20:49 | #1 |
Новичок
Джуниор
Регистрация: 03.06.2009
Сообщений: 1
|
строки в паскале
проблемма со строками в Паскале((((
вот задание: Задан текст, состоящий из строк произвольной длины. Строки разделяются одним или несколькими символами, называемыми разделителями. Разделители одинаковы для всего текста. Текст заканчивается комбинацией двух специальных символов, отличных от разделителя. Выполнить над текстом последовательность действий, указанную в задании. а) Определить, считая от начала текста, координаты (номер строки и номер символа в строке) символов, которые задаются в исходных данных; б) сформировать новый текст, состоящий из строк заданного текста, в каждой из которых любой из заданных символов встречается не более одного раза. вот то что получилось у меня... var S:string; k1,k,i:integer; begin ReadLn(s); k:=0; k1:=1; for I := 1 to Length(s) do begin inc(k); if s[i]=' ' then inc(k1); if (S[i]='d') or (S[i]='D') then begin WriteLn(k,'____','D','___',k1); end; end; ReadLn; end. помогите пожалуйста.... |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Строки в паскале! | vlad1991 | Помощь студентам | 3 | 11.11.2010 22:18 |
Строки в Паскале | istragon | Помощь студентам | 6 | 28.12.2009 18:18 |
Строки в Паскале | COLD | Помощь студентам | 2 | 28.05.2009 14:46 |
строки в паскале | Sarumjan | Помощь студентам | 3 | 03.12.2008 16:32 |
Строки в паскале | Exact | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 08.02.2008 20:45 |