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

Перевести программу с Pascal на Python

15.10.2019, 19:26. Показов 1944. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var a, b, t, M, R : longint;
function F(x: longint) : longint;
begin
    F := abs(abs(x - 9) + abs(x + 12) - 25) + 4;
end;
 
begin
    a := -20; b := 20;
    M := a; R := F(a);
    for t := a to b do begin
        if (F(t) <= R) then begin
            M := t;
            R := F(t)
        end
    end
    write(M + R)
end.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
15.10.2019, 19:26
Ответы с готовыми решениями:

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

Нужно перевести программу с Pascal на Python
Пожалуйста, помогите перевести программу с Pascal на Python. program nalichie_odinacovih_chisel_v_chetirehznachnom_chisle; var ...

Перевести программу с Pascal на Python
program yt; const n = 5; var i, k:integer; a:array of integer; begin for i:=1 to n do a:=random(51); for i:=1 to n do ...

1
Эксперт PythonЭксперт Java
19530 / 11067 / 2931
Регистрация: 21.10.2017
Сообщений: 23,294
15.10.2019, 19:41
Лучший ответ Сообщение было отмечено Makk75 как решение

Решение

Python
1
2
3
4
5
6
7
8
9
10
11
12
13
def F(x):
    return abs(abs(x - 9) + abs(x + 12) - 25) + 4
 
 
a = - 20
b = 20
M = a
R = F(a)
for t in range(a, b):
    if F(t) <= R:
        M = t
        R = F(t)
print(str(M + R))
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
15.10.2019, 19:41
Помогаю со студенческими работами здесь

Перевести программу из Pascal в Python
Помогите пожалуйста var sl,sb,kl,kb,ss:integer; begin write('Введите цену 1 лошади sl='); readln(sl); write('Введите цену 1 быка...

Перевести программу с Pascal на Python
1) if Mas&gt;=0 then writeln('s element massiva &gt;0'); 2) if mas mod 2 =0 then writeln('k element massiva kratnui dvum'); 3) if...

Перевести программу с языка Pascal на Python
uses crt; Var n,i,pol,ipl,otr,iot,k,j:integer; f:file of integer; Begin Assign(f,'f.dat'); ReWrite(f); Writeln('Введите...

Перевести программу на язык Python или Pascal
Перевести программу на язык Python или Pascal #include &lt;iostream&gt; using namespace std; void SortirovkaVstavka(int*, int); //...

Перевести программу из Pascal в Python
var a, b, c: real; i : integer; begin b:=0; for i:=1 to 5 do begin write('Введите число: '); read(a);b:=b+a; end; c:= b/i;


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru