Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 18.01.2018, 15:38   #11
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,327
Репутация: 5274
По умолчанию

Цитата:
Сообщение от sohibnut Посмотреть сообщение
no tam yest for
mne nujna bez nikakova cikla!nikakova!!!!!!
где здесь FOR ???

Код:

var b : set of int64;
  count : integer;
begin 
  b:=[];   include(b, 1);  include(b, 2);  println(b);

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

Serge_Bliznykov вне форума   Ответить с цитированием
Старый 19.01.2018, 20:14   #12
sohibnut
Пользователь
 
Аватар для sohibnut
 
Регистрация: 15.01.2018
Адрес: bukhara
Сообщений: 21
Репутация: 10
По умолчанию

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

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

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 вне форума   Ответить с цитированием
Старый 22.01.2018, 20:48   #13
Plague
Забанен
Форумчанин
 
Аватар для Plague
 
Регистрация: 01.11.2006
Адрес: ЯНАО
Сообщений: 419
Репутация: 440
По умолчанию

Код:

Код:

begin
  var b := new HashSet<int64>;
  loop Random(10) do 
    b.Add(Random(10));
  Print(b.Println.Count);
end.

__________________
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
Plague вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Преобразование кода из C в PascalABC.NET (символы и строки) - PascalABC.NET ParkerVans Помощь студентам 5 05.12.2017 11:09
Как узнать значение следующего элементо в foreach? KBO PHP 3 18.08.2016 19:57
Процедура с C# на PascalABC.NET(можно просто на язык Pascal) EMILSKI Помощь студентам 1 14.11.2010 18:39
Можно ли к среде PascalABC.NET прикрутить модуль “graph» WitaliG Помощь студентам 0 18.09.2010 08:24
Как узнать текущий индекс в foreach boris-blade Общие вопросы .NET 4 25.03.2010 20:26


13:11.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru