|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
24.06.2014, 12:56 | #1 (permalink) |
Новичок
Регистрация: 24.06.2014
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Pascal ABC, проверка описания переменных
Вот текст: program regv; uses System.Text.RegularExpressions; var s: string := 'var i1,i2: integer; st2,i2: string[5];'; begin {Readln(s);} foreach s0: string in Regex.Split(s, ' +') do Writeln(s0); {foreach m: Match in Regex.Matches(s, 'var') do Write(m.Value); } foreach m: Match in Regex.Matches(s, '(?!var)[s;](((\w+)[,\s]*)+(\s*)\s*)(integer│string))+') do Write(m.Success); if FALSE then writeln('1 ,w'); {строка и позиция - при ошибке} else writeln('Описание корректное'); {ЕСЛИ нет ошибок} endif; end. |
24.06.2014, 12:56 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Об этом уже говорилось в некоторых темах, вот их список Проверка конденсатора Расчёт значений функции двух переменных Чтение и запись из файла и в файл массива данных строковых переменных. Turbo Pascal Проверка реле в ИБП |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|