Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

6th
Июл

Исходник программы выводящий количество слов в которых повторяются символы

Posted by Chas under Delphi, Исходники

причем не только когда например «програММа» 2 буквы М,а и для «КроКодил»

zvoronz
Вот мой вариант решения

unit main;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;
type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    CheckBox1: TCheckBox;

    CheckBox2: TCheckBox;

    Memo1: TMemo;

    procedure CheckBox1Click(Sender: TObject);

    procedure CheckBox2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
  Array255Bolean = array [1..255] of Boolean;
var

  Form1: TForm1;

  a,b , c:string[255];

  i,n, s:Integer;

  k : Array255Bolean;
implementation
{$R *.dfm}
procedure Clean(var ar : Array255Bolean);

var

  i : Integer;

begin

  for i := 1 to 255 do

    ar := False;

end;
function Check (c : Char; var ar : Array255Bolean) : Boolean;

var

  i : Integer;

begin

  Check := ar[ord(c)];

  ar[ord(c)] := True;

end;
procedure TForm1.CheckBox1Click(Sender: TObject);

begin

a:=Edit1.Text ;

b:=Edit2.Text ;

c:=Edit3.Text ;

begin

  Clean(k);

  for i:=1 to Length (a) do

  if Check(a, k) then

  begin

    memo1. Lines .Add('????? ? ????????????? ??????? = '+a);

    Break;

  end;

  Clean(k);

  for i:=1 to Length (b) do

  if Check(b, k) then

  begin

  memo1. Lines .Add('????? ? ????????????? ??????? = '+b) ;

  Break;

  end;
  Clean(k);

  for i:=1 to Length (c) do

  if Check(c, k) then

  begin

  memo1. Lines .Add('????? ? ????????????? ??????? = '+c) ;

  Break;

  end;

end;
end;
procedure TForm1.CheckBox2Click(Sender: TObject);

var m,j:integer;

f1,f2,f3:boolean;

begin

a:=Edit1.Text ;

b:=Edit2.Text ;

c:=Edit3.Text ;

f1:=True;

for m:=1 to length(a) do begin

f2:=false;

f3:=False;

for j:=1 to Length(b) do

if b[j]=a[m] then f2:=true;

for j:=1 to Length(c) do

if c[j]=a[m] then f3:=true;

if (b[j]<>a[m])and (c[j]<>a[m]) then f1:=false;

end;

if f1 then memo1 .Lines.Add('????? '+a+' ????????? ?????.')

else memo1 .Lines.Add('????? '+a+' ????????? ??????.');

end;
end.