0 / 0 / 0
Регистрация: 19.05.2018
Сообщений: 3

Перевести с Pascal на Python

19.05.2018, 22:20. Показов 9694. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите перевести программу с Pascal на Python!!

1) В метании молота состязается n спортcменов. Каждый из них сделал m бросков. Победителем считается тот спортсмен, у которого сумма результатов по всем броскам максимальна.

Если перенумеровать спортсменов числами от 0 до n-1, а попытки каждого из них – от 0 до m-1, то на вход программа получает массив A[n][m], состоящий из неотрицательных целых чисел. Программа должна определить максимальную сумму чисел в одной строке и вывести на экран эту сумму и номер строки, для которой достигается эта сумма.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var a:array[0..100,0..100] of Longint;
    m,n,i,j,imax:Longint;
    max,sum:Longint;
begin
read(n,m);
for i:=0 to n-1 do
for j:=0 to m-1 do
read(a[i,j]);
max:=0;
imax:=0;
for i:=0 to n-1 do
 begin
  sum:=0;
  for j:=0 to m-1 do
  sum:=sum+a[i,j];
  if sum>max then
   begin
    max:=sum;
    imax:=i;
   end;
 end;
write(max, ' ',imax);
end.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
19.05.2018, 22:20
Ответы с готовыми решениями:

Перевести из Pascal в Python
Только начал изучать Python, так что помидорами не закидывайте, паскаль мельком изучил, но не все помню. program Zadacha3 ; uses ...

Перевести с Pascal на python
var n, i, j, k: Integer; a: array of Integer; begin ReadLn(n); for i:=1 to n do begin for j:=1 to n do Read(a);...

Перевести из Pascal в Python
procedure vRotateRight(var a: array of Integer); var i, t: Integer; begin t:=a]; for i:=High(a) downto Low(a)+1 do a:=a; ...

1
1741 / 913 / 480
Регистрация: 05.12.2013
Сообщений: 3,074
19.05.2018, 22:44
Лучший ответ Сообщение было отмечено fantazerka18 как решение

Решение

Python
1
2
3
4
5
6
7
8
9
n = int(input())
m = int(input())
 
a = [[input() for _ in range(m)] for _ in range(n)]
lst_rec = [sum(x) for x in a]
max_ = max(lst_rec)
imax = lst_rec.index(max_)
 
print(max_, imax)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
19.05.2018, 22:44
Помогаю со студенческими работами здесь

Перевести с PASCAL в PYTHON
var b,i:longint; c:integer; function sm(n:longint):longint; begin if n<10 then sm:=n else...

Перевести с PASCAL в PYTHON
var n, i : integer; a, b, c : longint; begin read(n,a,b); for i:=n-1 downto 1 do begin c:=b-a; b:=a; a:=c end; ...

Перевести с Pascal на Python
перенести код с паскаль на питон!!! Program PROGRAMMA8; uses dos, crt, graph; Const N=110; M=90; s=13; r=6; h=5; Var y, yy,...

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

Перевести программу из pascal в python
Помогите пожалуйста перевести программу из pascalABC в python. Заранее благодарю) var A, B, L, P, Circle:Integer; Begin ...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

Новые блоги и статьи
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru