Python для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.56/9:

Laky2223

-18 / 0 / 0

Регистрация: 05.12.2019

Сообщений: 17

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

01.12.2020, 22:59. Показов 2041. Ответов 1

Метки паскаль, Переписать, питон (Все метки)

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
const
n = 5;
var
arr: array [1 ... 2*n] of integer : = (0,1, - 2,1, - 1,-1, 1,2, - 3,0);
i: byte : = 1;
maxr: real;
begin
repeat
maxr : = max (sqrt (sqr (arr[i]) + sqr (arr[i + 1])), maxr);
i + = 2;
until (i > 2 * n - 1);
writeln (maxr);
end.

Лучшие ответы (1)

Сообщение: #15057296

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

01.12.2020, 22:59

Ответы с готовыми решениями:

переписать Паскаль в питон. Пожалуйста
program DauMoH; type mas = array of integer; var a: mas; i: byte; n, c, d: integer;

С++ питон паскаль
Исправить и написать на языке питон с++ и паскаль

Перевести с Паскаль на Питон
Помогите пожалуйста перевести на Питон 1 программа var n, m, k : int64; begin Readln(k,t); t := t mod (2*k);

Berbentsev

290 / 170 / 92

Регистрация: 21.03.2016

Сообщений: 400

02.12.2020, 15:26

Сообщение было отмечено mik-a-el как решение

Решение

Python
1
2
3
arr = [0, 1, -2, 1, -1, -1, 1, 2, -3, 0]
maxr = max([(arr[i]**2 + arr[i + 1]**2)**0.5 for i in range(0,10,2)])
print(maxr)

Пишите лучше условие задания, а не готовое решение на других языках.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

02.12.2020, 15:26

Помогаю со студенческими работами здесь

Перевести с Паскаль на Питон
Program g; var x,y: Real; begin Read(x,y); if(x < 0) then x := (-x) else x := x + 0.5; if(y < 0) then y := (-y) else y := y +...

Переделываю Паскаль в питон
Переделал данную функцию var n,i: integer; function F(n: integer): integer; var i: integer; begin i += n + 1; if...

Преобразовать с паскаль в питон
## var(x,y,z):=ReadReal3; if x+y+z<1 then (x,y,z):=(x=min(x,y,z)?y/2+z/2:x,y=min(x,y,z)?x/2+z/2:y,z=min(x,y,z)?x/2+y/2:z) else ...

Переписать с С# на Питон
static void Main(string args) { const int n = 50; int arr = new int; int counter = 1; arr = 1; Console.writeLine(arr); ...

Перевести задачу с паскаль на питон
Помогите перевести задачу на питон uses crt; var n,x,k,g:longint; begin clrscr; write('Сумма начального вклада='); ...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа 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доели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

Наверх