<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
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.
<u>Пример работы программы</u>
Александр Пушкин
К***
Я помню чудное мгновенье:
Передо мной явилась ты,
Как мимолетное виденье,
Как гений чистой красоты.
В томленьях грусти безнадежной,
В тревогах шумной суеты,
Звучал мне долго голос нежный
И снились милые черты.
Шли годы. Бурь порыв мятежный
Рассеял прежние мечты,
И я забыл твой голос нежный,
Твои небесные черты.
В глуши, во мраке заточенья
Тянулись тихо дни мои
Без божества, без вдохновенья,
*** Без - 2 ***
Без слез, без жизни, без любви.
*** Без - 3 ***
Душе настало пробужденье:
И вот опять явилась ты,
Как мимолетное виденье,
Как гений чистой красоты.
И сердце бьется в упоенье,
И для него воскресли вновь
И божество, и вдохновенье,
*** И - 2 ***
И жизнь, и слезы, и любовь.
*** И - 3 ***
<u>Во вложении - исходный файл Puskin2.txt</u>
<u>1)</u>program array;
var A : array[1..10000] of integer;
i:integer;
begin
for i:=1 to length(A) do begin
if i mod 3 = 0 then
A[i]:=A[i]*2;
end;
end.
<u>-----------------------------------</u>
<u>2)</u>program fff;
var A : array[1..100] of integer;
i,n:integer;
begin
for i:=1 to n do begin
if i mod 3 = 0 then
A[i]:=i;
end;
end.
1
2
3
4
5
6
7
8
9
procedure TForm1.Button3Click(Sender: TObject); //поиск максимального элемента
...
begin
...
Max:= StrToFloat(strngrd1.Cells[0,0]);//присвоим значение 1 элемента
for i:=0 to strngrd1.ColCount - 1 do //цикл по столбцам
for j:=0 to strngrd1.RowCount - 1 do //цикл по строкам
...
end;
Боря Енин, Гриша Петров, Вова Иванов, Паша не помню.
