![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
Artem1987 |
![]()
Сообщение
#1
|
Гость ![]() |
Даны символы S1, S2... звестно, что символ S1 отличен от пробела и что среди S2, S3 ...
иеется хотя бы один пробел. Рассматриваются S1,... , Sn-символы, предшествующие первому пробелу(n зарание неизвестно). Преобразовать последовательность S1,... , Sn, уалив из каждой группы идущих подряд цифр, в которой более двух цифр , и которой предшествует точка. Все цифры, начиная с третьей (например, А*В+0.1973-1.1 преобразуется в А*В+0.19-1.1). Я чет даж условие понять не могу! ![]() |
klem4 |
![]()
Сообщение
#2
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Цитата и что среди S2, S3 ... иеется хотя бы один пробел Цитата например, А*В+0.1973-1.1 и где тут хотябы один пробел ?! -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Lapp |
![]()
Сообщение
#3
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
и где тут хотябы один пробел ?! klem4, просто в примере приведена не вся строка, а только символы S1,..,Sn Вот, можно так, например, сделать.. var
s:string='abcd.12345aa99999.4567.aa12.34bb ';
i,f:integer;
begin
WriteLn(s);
f:=0;
i:=1;
while s[i]<>' ' do begin
case s[i] of
'.': f:=1;
'0'..'9': case f of
1,2: Inc(f);
3: begin
Delete(s,i,1);
Dec(i)
end
end;
else f:=0
end;
Inc(i)
end;
WriteLn(s);
ReadLn
end.
Сообщение отредактировано: Lapp - 10.11.2007 14:45 -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
![]() ![]() |
![]() |
Текстовая версия | 18.07.2025 0:04 |