С Новым годом! Форум программистов, компьютерный форум, киберфорум
Python для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
0 / 0 / 0
Регистрация: 12.06.2019
Сообщений: 3

Просьба перевести код из Pascal в Python

12.06.2019, 08:29. Показов 2946. Ответов 5

Студворк — интернет-сервис помощи студентам
Здравствуйте! Нашел код на паскале:
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
59
60
61
62
63
64
65
66
67
68
69
var
  inp, outp: text;
  n, m, x, y, i, j: integer; 
  relations: array[1..100, 1..100] of integer;
  used: array[1..100] of boolean;
  ability: boolean;
  color: array[1..100] of integer;
 
 
procedure DFS(v,col: integer);
var
 j: integer;
 
begin
  used[v] := false;
  color[v] := col;  
  for j := 1 to n do
    if (relations[v, j] <> 0) and used[j] then DFS(j,col*-1);
end;
 
 
 
 
begin
  assign(inp, inpFileName);
  assign(outp, outpFileName);
  reset(inp);
  rewrite(outp);
  
  read(inp, n, m);
  
  for i := 1 to n do 
    for j := 1 to n do
      relations[i, j] := 0;
  
  for i := 1 to m do
  begin
    read(inp, x, y);
    relations[x, y] := 1;
    relations[y, x] := 1;
  end;
  
  for i := 1 to n do
    used[i] := true;
    
 
  
  for i := 1 to n do
    color[i] := 0;
  for i := 1 to n do  
  if used[i]=true then
  DFS(i,1);
  
  ability := true;
  
  for i := 1 to n do
    for j := 1 to n do
      if (color[i] = color[j]) and (relations[i, j] <> 0) then ability := false;
  
  if ability then 
  begin
    writeln(outp, 'YES'); 
    for i := 1 to n do
      if color[i] = 1 then begin write(outp, i,' '); wrileln(outp); end;
  end
  else writeln(outp, 'NO');
   close(inp);
  close(outp);
end.
Просьба перевести его в питон. Он соответствует данной задаче:

На банкет были приглашены N Очень Важных Персон (ОВП). Были поставлены 2 стола. Столы достаточно большие, чтобы все посетители банкета могли сесть за любой из них. Проблема заключается в том, что некоторые ОВП не ладят друг с другом и не могут сидеть за одним столом. Вас попросили определить, возможно ли всех ОВП рассадить за двумя столами.

Входные данные
В первой строке входных данных содержатся два числа: N и M (1 <= N,M <= 100), где N – количество ОВП, а M – количество пар ОВП, которые не могут сидеть за одним столом. В следующих M строках записано по 2 числа – пары ОВП, которые не могут сидеть за одним столом.

Выходные данные
Если способ рассадить ОВП существует, то выведите YES в первой строке и номера ОВП, которых необходимо посадить за первый стол, во второй строке. В противном случае в первой и единственной строке выведите NO.

А также просьба вместо заморочек с инпутами/аутпатами как в паскале, в питоне сделать обычный ввод и вывод (через input() и print())
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
12.06.2019, 08:29
Ответы с готовыми решениями:

Перевести код из Pascal в Python
var n, p, i: integer; begin readln(n); i:=1; p:=3; while true do if i&lt;=n then begin i:=i+p;

Перевести код из Pascal в Python
Всем привет. Не могли бы помочь перевести код Pascal в Python. var x, count, numDel, i, j: longint; d: array of longint; ...

Перевести код из Pascal в Python
program z1; uses crt; var i, n: integer; begin read (n); i:=1; while sqr(i)&lt;n do i:=i+1; writeln (sqr(i)); end.

5
Просто Лис
Эксперт Python
 Аватар для Рыжий Лис
5972 / 3734 / 1099
Регистрация: 17.05.2012
Сообщений: 10,791
Записей в блоге: 9
12.06.2019, 08:58
Python
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
t = '''\
61
3
1 2
2 3
5 9'''
 
ls = t.split('\n')
len_vip = int(ls[0])
pairs = {}
for line in ls[2:]:
    a, b = line.split(' ')
    a, b = int(a), int(b)
    pairs.setdefault(a, set()).add(b)
    pairs.setdefault(b, set()).add(a)
print(pairs)
# {1: {2}, 2: {1, 3}, 3: {2}, 5: {9}, 9: {5}}
 
l, r = set(), set()
for i in range(1, len_vip + 1):
    # рассаживаем гостей
    e = pairs.get(i, set())
    # если за первым столом нет врагов, то садим туда
    if not (e & l):
        l.add(i)
        continue
    if not (e & r):
        r.add(i)
        continue
    print('NO')
    exit(0)
print(l, r)
print('YES')
0
0 / 0 / 0
Регистрация: 12.06.2019
Сообщений: 3
12.06.2019, 09:06  [ТС]
А можно сделать ввод данных с помощью инпута?
0
Просто Лис
Эксперт Python
 Аватар для Рыжий Лис
5972 / 3734 / 1099
Регистрация: 17.05.2012
Сообщений: 10,791
Записей в блоге: 9
12.06.2019, 09:13
Python
1
len_vip = int(input())
0
0 / 0 / 0
Регистрация: 12.06.2019
Сообщений: 3
12.06.2019, 09:32  [ТС]
А можете пожалуйста сделать вход и выход по условию задачу?
0
12.06.2019, 10:41

Не по теме:

bublov, а вы можете хоть что-нибудь сделать самостоятельно? Или хотя бы поблагодарить помогающего вам человека?

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
12.06.2019, 10:41
Помогаю со студенческими работами здесь

Перевести код с Python на Pascal
a=float(input(&quot;Введите сумму: &quot;)) c1=a*50 c2=150*(a+a*0.2) c=c1+c2 print(c)

Просьба перевести код C++ на Python
#include &lt;iostream&gt; using namespace std; int main() { setlocale(LC_ALL, &quot;Russian&quot;); float a; //в этом массиве будет...

Перевести код из Pascal в Python
Здравствуйте, можете, пожалуйста, переписать этот код на Python'е? var arr2: array of int64; arr3: array of int64; ...

Перевести код с Pascal на Python
Дан файл целых чисел, содержащий менее 50 элементов. Увеличить его размер до 50 элементов, записав в начало файла необходимое количество...

Перевести код из python в pascal
import random arr = sum1 = sum2 = input = list(map(int, input().split())) A = input B = input N = input for i in...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru