Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.02.2016, 10:20   #11
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию



кстати, эта же задача на синем форуме (с) Volvo решена вообще, практически в одну строчку кода (если не считать описание входных/выходных данных), через регэкспы:
Код:
// Подсчитать количество слов, состоящих только из заглавных латинских букв.
// (c) volvo 

{$reference System.Core.dll}
uses System.Linq, System.Text.RegularExpressions;
  
begin
  var s : string := 
      '2015 NEWS - Barak OBAMA IS stupid';
  var all := s.Split('  '.ToCharArray(), System.StringSplitOptions.RemoveEmptyEntries).
    Where((s : string) -> System.Text.RegularExpressions.Regex.IsMatch(s, '^[A-Z]+$')).ToArray();
    
  writeln('words : ', string.Join(' ', all));
  writeln('count : ', all.Length);
end.

p.s. что-то наш знаток нового Паскаля молчит, что именно он имел в виду, угадал я или нет.

p.p.s.
Poma][a и Filka спасибо за информацию, я не знал, что FreePascal так умеет!

Последний раз редактировалось Serge_Bliznykov; 21.02.2016 в 10:24.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 21.02.2016, 16:40   #12
FIDE
Заблокирован
 
Регистрация: 02.08.2014
Сообщений: 30
По умолчанию

Я имел ввиду Free Pascal, PascalABC.NET можно смело не считать паскалем.
FIDE вне форума Ответить с цитированием
Старый 21.02.2016, 16:47   #13
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
Я имел ввиду Free Pascal
чо, лазарус сожрёт оператор "+="?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 21.02.2016, 16:48   #14
FIDE
Заблокирован
 
Регистрация: 02.08.2014
Сообщений: 30
По умолчанию

Да
http://www.freepascal.org/docs-html/prog/progsu10.html
FIDE вне форума Ответить с цитированием
Старый 21.02.2016, 17:26   #15
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
Да
Удивительно!
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 21.02.2016, 21:00   #16
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,304
По умолчанию

Прошелся по ссылке.
Для моей версии FPC (для компилятора 2.6.4) пример не сработал на последнем операторе:
Код:
i /= 2;
Выдал ошибку аналогичную посту №6, которая устранилась после замены типа на Extended.

Интересная возможность ...

Как-то так, ...
Как-то так, ...

Последний раз редактировалось ViktorR; 21.02.2016 в 21:03.
ViktorR вне форума Ответить с цитированием
Старый 21.02.2016, 21:10   #17
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
Интересная возможность ...
да ну нахрен, ГМО какое-то.

307.png

Модератор, за що забанили українського хлопця?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...

Последний раз редактировалось min@y™; 21.02.2016 в 22:19.
min@y™ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Чем можно заменить или как ускорить TImageList? garuna Общие вопросы Delphi 10 06.12.2014 15:07
Можно ли заменить calloc на malloc dreamboy Общие вопросы C/C++ 1 02.05.2014 19:34
Можно ли заменить оператор jz на je *Fantom* Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 4 14.06.2013 02:54
Чем можно заменить конструкцию? Или как быть ? kitovras Microsoft Office Excel 3 12.08.2009 15:31
Чем можно заменить объект BitBtn? frai Компоненты Delphi 3 14.04.2007 12:42