Выбрать из символьной строки только те слова, которые можно трактовать как год (например, 1951 или 2004)

@Tonic1203 · Регистрация: 09.03.2014

Author24 — интернет-сервис помощи студентам

Ввести любое количество строк с предложениями .В качестве знаков препинания использовать только точки , запятые , восклицательные знаки. Для каждого предложения выполнить задание в соответствии с предложенным вариантом с использованием подпрограмм.В программе предусмотреть варианты отсутствия данных ,удовлетворяющих условию задачи .вывести на экран исходные строки и результат.

13)Выбрать из символьной строки только те слова,которые можно трактовать как год(например 1951 или 2004).

Помогите,пожалуйста)Очень надо.

@Arigato · 10.04.2014, 03:03

Года разные бывают, например, 988 тоже может быть годом. Ну если надо только XX-XXI века рассмотреть, то вот наброска для решения:

Pascal

wrd:='';
s:=s+' ';
for i:=1 to length(s) do begin
  if s[i]=' ' then begin
    if (length(wrd)=4) and ((wrd[1]+wrd[2]='19') or (wrd[1]+wrd[2]='20')) and (wrd[3] in ['0'..'9']) and (wrd[4] in ['0'..'9']) then
      writeln(wrd);
    wrd:='';
  end else wrd:=wrd+s[i];
end;

@Tonic1203 0 / 0 / 0 Регистрация: 09.03.2014 Сообщений: 9
		1
	Выбрать из символьной строки только те слова, которые можно трактовать как год (например, 1951 или 2004) 09.04.2014, 22:40. Показов 1013. Ответов 1 Метки нет (Все метки) Ввести любое количество строк с предложениями .В качестве знаков препинания использовать только точки , запятые , восклицательные знаки. Для каждого предложения выполнить задание в соответствии с предложенным вариантом с использованием подпрограмм.В программе предусмотреть варианты отсутствия данных ,удовлетворяющих условию задачи .вывести на экран исходные строки и результат. 13)Выбрать из символьной строки только те слова,которые можно трактовать как год(например 1951 или 2004). Помогите,пожалуйста)Очень надо. 0

	10.04.2014, 03:03

Выбрать из символьной строки только те слова, которые можно трактовать как год (например, 1951 или 2004)

Решение