Как найти повторяющиеся буквы в паскале

Содержание:

• Символы
• Строки
• Язык регулярных выражений
• Файлы
  • Решение задач

begin
var c: char;
c:='a';
Println(c.IsDigit); // число ли - False 
Println(c.IsLetter); // буква ли - True 
Println(c.IsLower); // строчная ли - True
Println(c.IsUpper); // прописная ли - False 
end.

begin
var s: string;
s:='Abc';
Println(s.ToLower); // abc 
Println(s.ToUpper); // ABC 
end.

begin
var s: string;
s:='12345678';
Println(s[3:6]); // 345 
Println(s[::-1]); // 87654321 
end.

begin
var s: string;
s:='12345678';
var i:=1;
Println(i.ToString); // строка '1'
Println(s.ToInteger); // число 12345678 
Println(s.ToReal); // число 12345678 
end.

begin
var s: string;
s:='12345678';
var i:=1;
Println(integer.TryParse(s,i)); // можно ли преобразовать строку s в число - True 
end.

begin
var s:='каждый охотник желает знать, где сидит фазан';
var ss:=s.ToWords.Println; // каждый охотник желает знать, где сидит фазан
ss.Sorted.Println // где желает знать, каждый охотник сидит фазан
end.

begin
var s:='каждый охотник желает знать, где сидит фазан';
var ss:=s.ToWords.Println; // каждый охотник желает знать, где сидит фазан
ss.JoinIntoString('!').Println // каждый!охотник!желает!знать,!где!сидит!фазан
end.

'мама мыла раму'.CountOf('м').Print; // 4

'мама мыла раму'.Contains('б').Print; // False

'hello world'.IndexOf('w').Print; // 6

'hello world'.Remove(' ').Print; // helloworld

'hello world'.Replace('l','L').Print; // heLLo worLd

var sArr:=Arr('aab','bcd','efg');
sArr.Where(w->w.Contains('b')).Print; // aab bcd
sArr.Where(w->w.CountOf('a')=2).Print; // aab

begin
var s:='каждый охотник желает знать, где сидит фазан';
s:=s.Where(c -> c<>'ж').JoinIntoString;
print(s); // кадый охотник елает знать, где сидит фазан 
end.

s := 'red  green  gray blue';
foreach var m in s.Matches('w+') do
  Print(m.Value, m.Index);

s := 'AБракадабРА';
s.Matches('бра', RegexOptions.IgnoreCase)

s := ' prepod@sfedu.ru   prepod2@sfedu.ru ';
foreach var m in s.Matches('(w+)@(w+).(w+)') do
  Println(m.Groups[0], m.Groups[1], m.Groups[2], m.Groups[3]); 
s.Matches('(т[оае])1*')

s.Replace('bw+b', '<$0>')
s := s.Replace('w+',m->m.Value.ToUpper);
s := s.Replace('w+',m->m.Value+'('+m.Length+')')
s := '10+2=12';
s.Replace('d+', '<$0>') // <10>+<2>=<12>
s.Replace('d+', m -> (m.Value.ToInteger*2).ToString) // 20+4=24
 
s := ' prepod@sfedu.ru   prepod2@sfedu.ru ';
s.Replace('(w+)@(w+).(w+)', '$1-$2-$3')

var f:file of integer;
begin
reset(f,'a.dat');
write(f,1,3);
read (f,x,y);
close(f);

var f:=OpenFile&<integer>('a.dat');
f.Wriet(1,3);
Read(f,x,y);
Close(f);

ReadElements&<integer>('a.dat');
 
...
foreach var i in ReadElements&<integer>('a.dat') do
...

var f:=OpenRead('a.txt');
var f:=OpenWrite('a.txt');
 
f.ReadLnString
 
while not f.EOF do
  begin
  var s:=f.ReadLnString;
  Print(s)
  end;
f.close;

begin
var a:=ReadLines('in.txt');
//var a:='dfgdg  argag asfa tyru';
foreach var w in a do
begin
  var ww:=w.Matches('w+');
  writeln(ww);
end;
end.

begin
var a:=ReadLines('in.txt');
foreach var w in a do
begin
  var ww:=w.Matches('bw{3}b');
  ww.Println;
end;
end.

begin
var a:=ReadLines('in.txt');
foreach var w in a do
begin
 var ww:=w.Matches('bw{3,5}b');
  ww.Println;
end;
end.

begin
var a:=ReadLines('in.txt');
foreach var w in a do
begin
 var ww:=w.Matches('bсw+аb');
  ww.Println;
end;
end.

begin
var a:=ReadLines('in.txt');
foreach var w in a do
begin
 var ww:=w.Matches('d');
  ww.Println;
end;
end.

begin
var a:=ReadLines('in.txt');
foreach var w in a do
begin
  var ww:=w.Replace('(d{1,2})[./](d{1,2})[./](d{2,4})','$2.$1.$3');
  ww.Println;
end;
end.

begin
var a:=ReadLines('in.txt');
foreach var w in a do
begin
 var ww:=w.Matches('bd+[, ]d+b');
  ww.Println;
end;
end.

begin
var a:=ReadLines('inMD.txt');
foreach var w in a do
begin
  var ww:=w.Replace('**(bw+b)**','<bold>$1<bold>');
  ww.Println;
end;
end.

begin
var a:=ReadLines('in.txt');
foreach var w in a do
begin
 var ww:=w.Matches('bd{1,3}.d{1,3}.d{1,3}.d{1,3}b');
  ww.Println;
end;
end.