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

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

19.05.2018, 22:20. Показов 9727. Ответов 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
Ответ Создать тему
Новые блоги и статьи
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru