HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
 
 
Опции темы Поиск в этой теме Опции просмотра

Перепечатать код с Python'a на Delphi или C++
  #1  
Старый 28.04.2010, 23:24
Livion
Новичок
Регистрация: 26.04.2010
Сообщений: 1
С нами: 8443861

Репутация: 0
По умолчанию Перепечатать код с Python'a на Delphi или C++

Пожалуйста кто умеет перепечатайте код с python на делфи. Заранее спасибо.

Код:
#!/usr/bin/env python
# coding: utf-8
import sys

# чтение входа
N, M, S1, S2 = map(int, sys.stdin.readline().split())
adj = [[] for each in range(N + 1)]  # списки смежности

for each in range(M):
    a, b = map(int, sys.stdin.readline().split())
    adj[a].append(b)
    adj[b].append(a)

olor=dict() # color[x] будет равен цвету вершины

# процедура раскраски графа в два цвета, 0 и 1
def dfs(x, xcolor):
    color[x] = xcolor
    for y in adj[x]:
        if y not in color:  # если y не посетили
            dfs(y, 1 - xcolor)  # посещаем и назначаем противоположный цвет
        elif color[y] !=1- xcolor:  # проверяем на совместимость
            raise 'NO'

try:
  
    dfs(x=1, xcolor=0)

    
    num = [0, 0]
    for x in color.keys():
        num[color[x]] += 1

    
    if (num[0] <= S1 and num[1] <= S2) or (num[0] <= S2 and num[1] <= S1):
        print 'YES'
        if (num[0]<=S1 and num[1]<=S2):
            for x in range(1,N+1) :
                  print color[x]+1,' ',
        else:
            for x in range(1,N+1):
                  print 2-color[x],' ',
        
    else:
        print 'NO'
   
except:
   print 'NO'
 
Ответить с цитированием
 



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Статейки УК Украины.Выборка по ИТ и не только. liquidcube Статьи 23 10.12.2009 06:23
Стандартные пароли, пароли по умолчанию, мастер-пароли Elvis000 Электроника и Фрикинг 11 22.10.2009 03:31



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


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




ANTICHAT ™ © 2001- Antichat Kft.