pascalABC.NET. Как можно узнать количество элементов в множестве ( БЕЗ foreach ) ?

[sohibnut]

как можно узнать количество элементов в множестве?
БЕЗ foreach
pascalABC.NET
за рано спасибо!
только быстрее!

[Serge_Bliznykov]

через цикл for можно.

а чем foreach не устраивает?

[sohibnut]

без for и без никакой циклное оператора. просто , задача такая
please help me!!

[Serge_Bliznykov]

приведите текст задания полностью.
Множество из элементов какого типа?

так устроит?

  if b=[] then
     count := 0
  else     
     count := b.ToString.Where(v -> v=',').Count()+1;

p.s. работать будет не для всех типов множеств.

p.p.s. не люблю задачи типа "достаньте левой пяткой до правого уха. Без использования рук!"

[min@y™]

Да откуда вы все лезете с этим паскалем-абц?
Кто вас всё время заставляет на нём что-то писать?
Что за чикатилы вас там электрошоком или флюгегехайменом пытают, а?!

[sohibnut]

Сообщение от Serge_Bliznykov

приведите текст задания полностью.
Множество из элементов какого типа?

[/I]

тип integer или int64

[Serge_Bliznykov]

Сообщение от min@y™

Кто вас всё время заставляет на нём что-то писать?

студент - существо подневольное, что приказали, то и учит. Прикажут на фортране для ЕС ЭВМ писать, будут писать на фортране.

а что это Вас так пучит от PascalABC.NET ??! Фобии? Немотивированная ненависть?

(кстати, Вы, наверное, не знаете, но есть PascalABC, а есть - PascalABC.NET это совершенно разные вещи. Оба монстры, но первый ближе к Паскалю, второй ближе к C# (точнее, это и есть C# слегка закамуфлированный под Паскаль). и если рассматривать его не как Паскаль, а как некий совершенно отдельный язык программирования, то он не так уж и плох.
Вы, например, можете на любом известном Вам языке программирования одним оператором записать решение задачи:
"Ввести строку текста, содержащую не более 10 слов, из строчных русских букв, между соседними словами – запятая, за последним словом - точка.
Составить программу, в который напечатать в алфавитном порядке:
все гласные буквы, которые входят хотя бы в одно слово более двух раз.
(гласные буквы – а, е, и, о, у, ы, э, ю, я; )"
решение:

//Эникей  Магистр
//2017-05-15T20:17:26+03:00
//Было занятно сделать все это в виде одного оператора)))

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  ReadlnString('->').ToWords(Arr(',','.'))
      .Select(w->w.Where(c->Pos(c,'аеёиоуыэюя')>0).GroupBy(x->x)
      .Select(x->(x.Key,x.Count)).Where(x->x[1]>2)).Where(x->x.Count>0)
      .SelectMany(x->x).Select(x->x.Item1).Distinct.OrderBy(x->x)
      .Println(',')
end.

или:
"Задать целочисленную квадратную матрицу A размерностью N и заполнить её случайными числами от -50 до 50. найти строку матрицы A, которая содержит только положительные элементы и имеет минимальный номер в матрице A.
Если строка в матрице A не найдена, то выдать соответствующее сообщение. "

(c)

var
  n := ReadInteger('Введите размерность матриц: ');
  a := MatrRandomInteger(n, n, -10, 10);
begin
  a.Println;
  var k := a.Rows.ToArray.FindIndex(i -> i.All(x -> x >= 0));
  Println(k = -1 ? 'Нет строки удовлетворяющей условию поиска'
                 : 'Номер строки удовлетворяющий условию: ' + k)
end.

или
"// в предложении найти все слова с одной буквой "а" и вывести их"

// (c) Plague  http://programmersforum.ru/showpost.php?p=1686131&postcount=4"
begin
  ReadString.ToWords(Arr(' ','-','"')).Where(x->x.Count(i->i='а')=1).Print(NewLine)
end.

и т.д. и т.п.
хотя, конечно, это не отменяет того, что PascalABC.NET - это страшный монстр.

[Serge_Bliznykov]

Сообщение от sohibnut

тип integer или int64

так я же привёл код выше.
Есть сомнения или проблемы?

проверил.
вроде бы работает:

var b : set of int64;
  count : integer;
begin 
  b:=[]; 
  for count := 1 to Random(10) do include(b, Random(100000));
  println(b);

  if b=[] then
     count := 0
  else     
     count := b.ToString.Where(v -> v=',').Count()+1;  
  
  WriteLn('Размерность множества = ',count)
  
end.

[sohibnut]

Сообщение от min@y™

Да откуда вы все лезете с этим паскалем-абц?
Кто вас всё время заставляет на нём что-то писать?
Что за чикатилы вас там электрошоком или флюгегехайменом пытают, а?!

у меня ест секретная задача и я не магу расказат вам об этом

[sohibnut]

no tam yest for
mne nujna bez nikakova cikla!nikakova!!!!!!