RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте! Прошу помощи в следующем вопросе: Дано слово EDIT. Задавать количество подряд стоящих букв в другой EDIT. Определить порядковые номера первой пары и последней пары одинаковых соседних символов, и какие это символы. Если таких символов нет, то должно быть напечатано соответствующее сообщение. Если подряд стоит более двух одинаковых символов, то такие символы не считать за пару. Delphi Оконное (с формой), строковые величины.
Дата отправки: 02.03.2021, 04:52 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, Vajik! Код (Pascal) :: выделить код unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
procedure Edit1KeyPress(Sender: TObject; var Key: char);
procedure FormCreate(Sender: TObject);
private
function Check(a:string):string;
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
function TForm1.Check(a:string):string;
var
b,c,d,e:integer;
begin
c:=0;d:=0;e:=0;a:=a+#2;
for b:=1 to length(a)-1 do
if a[b]=a[b+1]then
if a[b]<>a[b+2] then
begin
inc(e);
if c=0 then c:=b else d:=b;
end
else a[b+2]:=#1;
case e of
0:Check:='not found couple';
1:Check:='only one couple, positions:='+IntToStr(c)+','+IntToStr(c+1)+' '+a[c]+a[c+1];
else Check:=IntToStr(e)+' couples, first:='+IntToStr(c)+','+IntToStr(c+1)+' '+a[c]+a[c+1]+
' last:='+IntToStr(d)+','+IntToStr(d+1)+' '+a[d]+a[d+1];
end;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
if Key=#13 then
begin
Edit1.ReadOnly:=True;
Label1.Caption:=Check(Edit1.Text);
Label1.Show;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Hide;
end;
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
