Текст : в среде microsoft excel составить таблицу «сотрудники» с именами полей: фамилия, имя, отчество, должность, адрес. с шаблона найти улицы, начинающие с буквы р. ,,или мне конец.
Program t_1; const size=100; var a:array[1..size] of integer; i,n:integer;procedure quicksort(m1,t1:integer); var i1,j1,x1,w:integer; begin i1:=m1; j1:=t1; x1:=a[(m1+t1)div 2]; repeat while a[i1]<x1 do inc(i1); while a[j1]>x1 do dec(j1); if i1<=j1 then begin w:=a[i1]; a[i1]:=a[j1]; a[j1]:=w; inc(i1); dec(j1); end until i1>j1; if m1<j1 then quicksort(m1,j1); if i1<t1 then quicksort(i1,t1);end;begin readln(n); for i:=1 to n do read(a[i]); quicksort(1,n); writeln(a[n]);end.
// PascalABC.NET 3.2, сборка 1488 от 21.06.2017 // Внимание! Если программа не работает, обновите версию!
function LexRepeat(Self:string):(string,integer); extensionmethod; begin Writeln(Self); var aw:=Self.MatchValues('\b\w+\b').ToArray; if aw.Count>1 then Result:=(aw[0],aw[1:].Where(w->LowerCase(w)=LowerCase(aw[0])).Count) else Result:=(aw[0],0) end;
begin ReadLines('Pushkin2.txt').Select(s->s.LexRepeat) .Where(x->x[1]>0).Foreach(x->Writeln('*** ',x[0],' - ',x[1]+1,' ***')) end.
Пример работы программы
Александр Пушкин К*** Я помню чудное мгновенье: Передо мной явилась ты, Как мимолетное виденье, Как гений чистой красоты. В томленьях грусти безнадежной, В тревогах шумной суеты, Звучал мне долго голос нежный И снились милые черты. Шли годы. Бурь порыв мятежный Рассеял прежние мечты, И я забыл твой голос нежный, Твои небесные черты. В глуши, во мраке заточенья Тянулись тихо дни мои Без божества, без вдохновенья, *** Без - 2 *** Без слез, без жизни, без любви. *** Без - 3 *** Душе настало пробужденье: И вот опять явилась ты, Как мимолетное виденье, Как гений чистой красоты. И сердце бьется в упоенье, И для него воскресли вновь И божество, и вдохновенье, *** И - 2 *** И жизнь, и слезы, и любовь. *** И - 3 ***
