Как задать множество

@Colanncola · Регистрация: 24.12.2015

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста, как задать множество букв алфавита ,которые будут идти через одну?
Только нужно именно задать, то есть как прописать в коде такое множество?

@krapotkin · 24.12.2015, 12:51

только для старых версий делфи
aaa=['a','c','e','g']
и так далее
в новых версиях множеством символов пользоваться не стоит
вместо ch in [...] нужно пользоваться
s.Contains(ch);

@unifikator · 24.12.2015, 13:53

Код программы:

Delphi

unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
c:char;
b:boolean;
letters:set of 'а'..'я';
begin
letters:=[];
b:=false;
for c:='а' to 'я' do
begin
if b then letters:=letters+[c];
b:=not b;
end;
memo1.Lines.Clear;
for c:='а' to 'я' do
if c in letters then memo1.Lines.Add(c);
end;
 
end.

Прилагаю проект на Delphi.

@Colanncola 0 / 0 / 0 Регистрация: 24.12.2015 Сообщений: 12
		1
	Как задать множество 24.12.2015, 12:40. Показов 2171. Ответов 2 Метки нет (Все метки) Помогите пожалуйста, как задать множество букв алфавита ,которые будут идти через одну? Только нужно именно задать, то есть как прописать в коде такое множество? 0

@krapotkin 5784 / 4526 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	24.12.2015, 12:51	2
	только для старых версий делфи aaa=['a','c','e','g'] и так далее в новых версиях множеством символов пользоваться не стоит вместо ch in [...] нужно пользоваться s.Contains(ch); 1

	24.12.2015, 13:53

Как задать множество

Решение