Перевести из паскаля в питон

@Loony5515 · Регистрация: 20.06.2020

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

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
70
71
72
73
74
75
uses crt;
type
 Date=record
  Day:Integer;
  Month:Integer;
  Year:Integer;
 end;
 mas=array [1..2,1..3] of string;
var d1,d2:Date;
    s,s1,s2:string;
    i,j,x,err:integer;
    a:mas;
    
begin
 writeln('Vvedite datu(primer - 1.1.2010):');
 readln(s1);
 readln(s2);
 j:=1;
 for i:=1 to length(s1)+1 do
  if (s1[i]<>'.') and (i<>length(s1)+1) then
   s:=s+s1[i]
  else
   begin
    a[1,j]:=s;
    s:='';
    j:=j+1;
   end;
 s:='';
 j:=1;
 for i:=1 to length(s2)+1 do
  if (s2[i]<>'.') and (i<>length(s2)+1) then
   s:=s+s2[i]
  else
   begin
    a[2,j]:=s;
    s:='';
    j:=j+1;
   end;
 val(a[1,1],x,err);
 d1.day:=x;
 val(a[1,2],x,err);
 d1.Month:=x;
 val(a[1,3],x,err);
 d1.Year:=x;
 val(a[2,1],x,err);
 d2.day:=x;
 val(a[2,2],x,err);
 d2.Month:=x;
 val(a[2,3],x,err);
 d2.Year:=x;
 i:=0;
 j:=0;
 if (d1.Year>d2.Year) and (d1.Year<>d2.Year) then
  i:=i+1
 else
  if (d1.Year<d2.Year) and (d1.Year<>d2.Year) then
   j:=j+1;
 if (d1.Day>d2.Day) and (d1.Day<>d2.Day) then
  i:=i+1
 else
  if (d1.Day<d2.Day) and (d1.Day<>d2.Day) then
   j:=j+1;
 if (d1.Month>d2.Month) and (d1.Month<>d2.Month) then
  i:=i+1
 else
  if (d1.Month<d2.Month) and (d1.Year<>d2.Month) then
   j:=j+1;
 if i<j then
  write(d1.day,'.',d1.Month,'.',d1.Year)
 else
  if i>j then
   writeln(d2.day,'.',d2.Month,'.',d2.Year)
  else
   writeln(d2.day,'.',d2.Month,'.',d2.Year,'/',d1.day,'.',d1.Month,'.',d1.Year);
end.

Рыжий Лис · 28.06.2020, 10:39

Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
from datetime import datetime
 
s1 = input('Vvedite datu(primer - 1.1.2010): ')
s2 = input('Vvedite datu(primer - 1.1.2010): ')
 
d1 = datetime.strptime(s1, '%d.%m.%Y')
d2 = datetime.strptime(s2, '%d.%m.%Y')
 
if d1 > d2:
    print(d1.strftime('%d.%m.%Y'))
elif d1 < d2:
    print(d2.strftime('%d.%m.%Y'))
else:
    print('oops')

Добавлено через 2 минуты
Если без библиотек, то так:

Python
1
2
day1, month1, year1 = s1.split('.')
day1, month1, year1 = int(day1), int(month1), int(year1)

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

Перевести из паскаля в питон

Решение