Форум программистов [Powered by Invision Power Board]

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TSections = set of (ski, skating, tennis, gymnastics, rugby);

var
  Form1: TForm1;
  Sections : array [1..4] of TSections;

implementation

{$R *.dfm}

Function Pars(const S : string) : TSections;
var
  i : integer;
begin
  for i := 1 to length(s) do
    begin
      if s[i] = 'R' then
        result := result + [rugby];
      if s[i] = 'G' then
        result := result + [gymnastics];
      if s[i] = 'T' then
        result := result + [tennis];
      if s[i] = 'K' then
        result := result + [skating];
      if s[i] = 'S' then
        result := result + [ski];
    end;
end;

procedure Add(addtext : string; var trues, falses : string;  b : byte);
begin
  if b = 0 then
    falses := falses + addtext;
  if b = 4 then
    trues := trues + addtext;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j : integer;
  a, b : string;
  incb : array [1..5] of byte;
begin
  a := 'а) ';
  b := 'б) ';
  Sections[1] := Pars(Edit1.Text);
  Sections[2] := Pars(Edit2.Text);
  Sections[3] := Pars(Edit3.Text);
  Sections[4] := Pars(Edit4.Text);
  for i := 1 to 4 do
    begin
      if rugby in Sections[i] then
        inc(incb[1]);
      if gymnastics in Sections[i] then
        inc(incb[2]);
      if tennis in Sections[i] then
        inc(incb[3]);
      if skating in Sections[i] then
        inc(incb[4]);
      if ski in Sections[i] then
        inc(incb[5]);
    end;
 Add(' Рэгби ', a, b, incb[1]);
 Add(' Гимнастика ', a, b, incb[2]);
 Add(' Теннис ', a, b, incb[3]);
 Add(' Коньки ', a, b, incb[4]);
 Add(' Лыжи ', a, b, incb[5]);
 Memo1.Lines.Add(a);
 Memo1.Lines.Add(b);
end;

end.