|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.04.2009, 19:44 | #1 |
Пользователь
Регистрация: 07.12.2008
Сообщений: 11
|
Функции и процедуры работы со строками
Помогите, пожалуйста, решить задачку следующего содержания:
В строке имеется одна точка с запятой(. Посчитать количество символов до точки с запятой и после неё. |
15.04.2009, 19:56 | #2 |
Регистрация: 15.04.2009
Сообщений: 3
|
procedure abc;
var a, b, c, i, d : integer; s : string; c : char; begin readln(s); d := length(s); for i := 1 to d do begin c := copy(s,i,1); //или поменять местами i и 1 if c = ';' then a := i; end; b := d-1; //количество символов до ; c :=d-a; //после ; writeln(b,c); end. |
15.04.2009, 20:10 | #3 |
Форумчанин
Регистрация: 05.12.2008
Сообщений: 143
|
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
HELP!Си - программа для работы со строками + сумма строк в матрице! | DUPLET | Помощь студентам | 1 | 20.12.2007 21:16 |
Проблеммы с использованием функций работы со строками Copy и Pos | Soso | Общие вопросы Delphi | 13 | 09.08.2007 16:01 |