SMS сервис

@timsc1 · Регистрация: 27.11.2011

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

Доброго времени суток! Есть интересная задачка:
SMS-сервис. Существует SMS-сервис знакомств. Каждый из участников заплатил за знакомство с некоторым количеством людей. Как организовать работу сервиса, так, чтобы познакомить каждого участника ровно с тем количеством других участников, сколько ему требуется.
Можно ли это сделать? Кого с кем знакомить, чтобы это сделать?
Формат входных данных
Дано N — количество участников (N<100).
Даны N натуральных чисел А1, ..., Аn; человека i необходимо познакомить с Аi людьми.
Вывести YES или NO, т.е. можно или нет организовать знакомство.
Если можно организовать знакомство, то каждая следующая строка содержит номер участника и номера тех других участников, с которыми его нужно познакомить.
Пример:

Дано:
10
2 3 4 1 2 2 3 4 1 2
Вывод:
YES
1: 5 10
2: 3 7 8
3: 2 6 7 8
4: 9
5: 1 10
6: 3 8
7: 2 3 8
8: 2 3 6 7
9: 4
10: 1 5
Какой код написать??? Спасибо!!!

@timsc1 · 10.12.2012, 10:18 **[ТС]**

Профессионалы!!!!! Помогите пожалуйста!!! Очень надо!!!

@goks · 13.12.2012, 18:03

Знающие ребята,помогите хотя бы просто с алгоритмом решения...Меня тоже очень интересует...YES\NO условие легко вывести,а вот как вывести список не доходит...

@deadmetaller · 13.12.2012, 18:58

А в каких случаях программа должна выводить отрицательный ответ?

@timsc1 · 13.12.2012, 19:41 **[ТС]**

там, пожалуй, отрицательного ответа вообще не должно быть!!!

@deadmetaller · 13.12.2012, 19:43

Ну вот что я смог сделать пока что. Правда программа не доработана.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var
  a: array [1..9999] of integer;
  n, i, b: integer;
begin
write ('Введите количество участников: ');
read (n);
 writeln ('Введите количество желаемое знакомств: ');
   for i:=1 to n do
    begin
    write (i,': ');
    read (a[i]);
    end;
    writeln ('Результат операции: ');
 for i:=1 to n do
 begin
 writeln;
  write (i,': ');
     for b:=1 to a[i] do
        write (random(n),' ');
  end;
end.

@timsc1 · 13.12.2012, 19:52 **[ТС]**

Спасибо, но это не то... Программа должна быть побольше. Там много нюансов...

@deadmetaller · 13.12.2012, 19:57

Так если есть нюансы, то соизвольте огласить их. Или мы должна угадывать их?

@timsc1 · 13.12.2012, 20:05 **[ТС]**

это олимпиадная задача. Если бы я эти нюансы мог огласить, я бы сам сделал. там как-то надо сделать так, чтобы соединить этих клиентов. клиент должен появляться определённое количество раз. у Вас в программе появляется 0.

@goks · 14.12.2012, 00:01

deadmetal-извини,но твои посты-ересь..."А в каких случаях программа должна выводить отрицательный ответ?" -что за бред? она должна выдавать НОМЕРА УЧАСТНИКОВ...какой отрицательный ответ?...твой код тоже не понять о чём....рандомные числа выбирает...бред...
Вот код на с++...дошёл до этого же момента сидя на олимпиаде,получил 25 баллов (сам понимал конечно же в чём проблема,но мыслей как реализовать не было)...

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
#include <iostream>
#include <stdio.h>
#include <conio.h>
#include <string.h>
using namespace std;
 
int main()
{
setlocale(LC_ALL,"Russian");
int N,i;
int a[100];
int Check = 1; //проверка возможности организации,изначально True
cout<<"Введите N: ";
cin>>N;
cout<<endl<<"Введите последовательность: ";
for (i=0;i<N;i++)
{
cin>>a[i];
if (a[i]>N-1)
{
Check = 0;
}
}
if (Check == 0)
{
cout<<"NO";
}
else
{
cout<<endl<<"YES"<<endl;
for (i=0;i<N;i++)
{
    cout<<i+1<<":";
    for (int j=N;j>0;j--)
    {
        if ((a[i]>0)&&(i!=j))
        {
            if ((i!=j)&&(a[i]!=0)&&(a[j]!=0))
            {
            a[i]=a[i]-1;
            cout<<j-1;
            }
        }
    }
cout<<endl;
}
}
 
getch();
}

_________________
кто знает,как реализовать правильно,подскажите

@timsc1 · 14.12.2012, 00:07 **[ТС]**

Спасибки! Только я в С++ вообще ни как. Может кто сможет переделать в Pascal????

@goks · 14.12.2012, 21:30

Добавлено через 20 часов 57 минут
Решена.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
#include <iostream>
#include <stdio.h>
#include <conio.h>
#include <string.h>
using namespace std;
 
int main()
{
setlocale(LC_ALL,"Russian");
int N,i,minA,min,m,j;
int a[100];
int b[100][100];
int Check = 1; //проверка возможности организации,изначально True
cout<<"Введите N: ";
cin>>N;
cout<<endl<<"Введите последовательность: ";
for (i=0;i<N;i++)
{
cin>>a[i];
if (a[i]>N-1)
{
Check = 0;
}
 
}
if (Check == 0)
{
cout<<"NO";
}
else
{
cout<<endl<<"YES"<<endl;
}
minA=0;
for (i=0;i<N;i++)
{
for (m=0;m<N;m++)   
{
    if (a[m]>=minA)
    {
        minA=a[m];
        min=m;
    }
}
for (j=0;j<N;j++)   
{
    if ((a[j]>0)&&(min!=j)&&(a[min]>0))
    {
        b[j][min]=1;
        b[min][j]=1;
        a[j]=a[j]-1;
        a[min]=a[min]-1;
    }
minA=0;
}
}
for (i=0;i<N;i++)
{
cout<<(i+1)<<": ";  
for (j=0;j<N;j++)   
{
    if (b[i][j]==1)
    {
        cout<<(j+1)<<" ";
    }
}
cout<<endl;
}
 
getch();
}

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
var
    a:array[1..100] of integer;
    b:array[1..100,1..100] of byte;
    i,N,p,min,j,minA,m:integer;
    tmp:string;
begin
    Writeln('Введите N: ');
    Readln(N);
    Writeln('Введите последовательность чисел: ');
    Readln(tmp);
    writeln('-----------------------------');
  for i:=1 to N do
        begin
      if i<>N then
          begin
              p:=pos(' ',tmp);
              a[i]:=StrToInt(copy(tmp,1,p-1));
              delete(tmp,1,p);
            end
            else
            begin
              a[i]:=StrToInt(copy(tmp,1,length(tmp)));
            end;
        end;
    minA:=0;    
for i:=N downto 1 do
  begin
    for m:=1 to N do
      begin
        if (a[m]>=minA) then
          begin
            minA:=a[m];
            min:=m;
          end;
      end;
    for j:=1 to N do
      begin
        if (a[j]>0) and (min<>j) and (a[min]>0) then
          begin
            b[j,min]:=1;
            b[min,j]:=1;
            a[j]:=a[j]-1;
            a[min]:=a[min]-1;
          end;
 minA:=0;
 end;
 end;
 for i:=1 to N do
  begin
    write(i,': ');
      for j:=1 to N do
        begin
          if (b[i,j]=1) then
            Write(j,' ');
          end;
        writeln;
   end;
 end.

@timsc1 · 14.12.2012, 23:23 **[ТС]**

Спасибочки, будем разбираться!!!!

@goks · 15.12.2012, 19:48

насчёт вот этого:
Дано:
10
2 3 4 1 2 2 3 4 1 2
Вывод:
YES
1: 5 10
2: 3 7 8
3: 2 6 7 8
4: 9
5: 1 10
6: 3 8
7: 2 3 8
8: 2 3 6 7
9: 4
10: 1 5
....последовательность решается праввильно,и все знакомятся друг с другом ровно то колличество раз,что нужно,но не в таком порядке...Но условие задачи полностью соблюдается...

@timsc1 · 15.12.2012, 19:57 **[ТС]**

Спасибо!!!! Дай Вам БОГ здоровья!!!!

Добавлено через 6 минут
А сможете помочь с задачкой???? Массив из цифр чисел в диапазоне

@goks · 15.12.2012, 21:37

минуток через 10 гляну) Сам учусь) Вот с этой задачей (sms-сервис) мучился тоже как видишь не мало) домучал алгоритм всё таки)

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

@timsc1 15 / 15 / 2 Регистрация: 27.11.2011 Сообщений: 714

	SMS сервис 06.12.2012, 21:28. Показов 1761. Ответов 15 Метки sms сервис (Все метки) Доброго времени суток! Есть интересная задачка: *SMS-сервис.* Существует SMS-сервис знакомств. Каждый из участников заплатил за знакомство с некоторым количеством людей. Как организовать работу сервиса, так, чтобы познакомить каждого участника ровно с тем количеством других участников, сколько ему требуется. Можно ли это сделать? Кого с кем знакомить, чтобы это сделать? Формат входных данных Дано N — количество участников (N<100). Даны N натуральных чисел А1, ..., Аn; человека i необходимо познакомить с Аi людьми. Вывести YES или NO, т.е. можно или нет организовать знакомство. Если можно организовать знакомство, то каждая следующая строка содержит номер участника и номера тех других участников, с которыми его нужно познакомить. Пример: Дано: 10 2 3 4 1 2 2 3 4 1 2 Вывод: YES 1: 5 10 2: 3 7 8 3: 2 6 7 8 4: 9 5: 1 10 6: 3 8 7: 2 3 8 8: 2 3 6 7 9: 4 10: 1 5 Какой код написать??? Спасибо!!! 0

@timsc1 15 / 15 / 2 Регистрация: 27.11.2011 Сообщений: 714
	10.12.2012, 10:18 [ТС]
	Профессионалы!!!!! Помогите пожалуйста!!! Очень надо!!! 0

@goks 1 / 1 / 1 Регистрация: 13.12.2012 Сообщений: 8
	13.12.2012, 18:03
	Знающие ребята,помогите хотя бы просто с алгоритмом решения...Меня тоже очень интересует...YES\NO условие легко вывести,а вот как вывести список не доходит... 0

@deadmetaller 14 / 14 / 9 Регистрация: 12.10.2012 Сообщений: 49
	13.12.2012, 18:58
	А в каких случаях программа должна выводить отрицательный ответ? 0

@timsc1 15 / 15 / 2 Регистрация: 27.11.2011 Сообщений: 714
	13.12.2012, 19:41 [ТС]
	там, пожалуй, отрицательного ответа вообще не должно быть!!! 0

@timsc1 15 / 15 / 2 Регистрация: 27.11.2011 Сообщений: 714
	13.12.2012, 19:52 [ТС]
	Спасибо, но это не то... Программа должна быть побольше. Там много нюансов... 0

@deadmetaller 14 / 14 / 9 Регистрация: 12.10.2012 Сообщений: 49
	13.12.2012, 19:57
	Так если есть нюансы, то соизвольте огласить их. Или мы должна угадывать их? 0

@timsc1 15 / 15 / 2 Регистрация: 27.11.2011 Сообщений: 714
	13.12.2012, 20:05 [ТС]
	это олимпиадная задача. Если бы я эти нюансы мог огласить, я бы сам сделал. там как-то надо сделать так, чтобы соединить этих клиентов. клиент должен появляться определённое количество раз. у Вас в программе появляется 0. 0

@timsc1 15 / 15 / 2 Регистрация: 27.11.2011 Сообщений: 714
	14.12.2012, 00:07 [ТС]
	Спасибки! Только я в С++ вообще ни как. Может кто сможет переделать в Pascal???? 0

@timsc1 15 / 15 / 2 Регистрация: 27.11.2011 Сообщений: 714
	14.12.2012, 23:23 [ТС]
	Спасибочки, будем разбираться!!!! 0

@goks 1 / 1 / 1 Регистрация: 13.12.2012 Сообщений: 8
	15.12.2012, 19:48
	насчёт вот этого: Дано: 10 2 3 4 1 2 2 3 4 1 2 Вывод: YES 1: 5 10 2: 3 7 8 3: 2 6 7 8 4: 9 5: 1 10 6: 3 8 7: 2 3 8 8: 2 3 6 7 9: 4 10: 1 5 ....последовательность решается праввильно,и все знакомятся друг с другом ровно то колличество раз,что нужно,но не в таком порядке...Но условие задачи полностью соблюдается... 0

@timsc1 15 / 15 / 2 Регистрация: 27.11.2011 Сообщений: 714
	15.12.2012, 19:57 [ТС]
	Спасибо!!!! Дай Вам БОГ здоровья!!!! Добавлено через 6 минут А сможете помочь с задачкой???? Массив из цифр чисел в диапазоне 0

@goks 1 / 1 / 1 Регистрация: 13.12.2012 Сообщений: 8
	15.12.2012, 21:37
	минуток через 10 гляну) Сам учусь) Вот с этой задачей (sms-сервис) мучился тоже как видишь не мало) домучал алгоритм всё таки) 0