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

@Klimmed · Регистрация: 28.09.2022

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

Нужно переписать код для паскаля в питон

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
var
a,b,h,y,y1,x,max,min:real;
i:integer;
begin
write('vvedite a ');readln(a);
write('vvedite b ');readln(b);
write('vvedite h ');readln(h);
x:=a; i:=1;
y:=(x+cos(sqr(3*x)))/(65.3+x);
max:=y; min:=y;
writeln(i:3,x:7:3,y:7:3);
while x+h<=b do
  begin
    x:=x+h; inc(i);
    y1:=(x+cos(sqr(3*x)))/(65.3+x);
    write(i:3,x:7:3,y1:7:3);
    if y1>y then write(' + ') else write(' - ');
    writeln(y-y1:7:3);
    y:=y1;
    if y>max then max:=y;
    if y<min then min:=y;
  end;
  writeln('max = ',max:5:3,' min = ',min:5:3);
end.

@Parramon · 28.09.2022, 15:32

Python
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
import math
 
a = int(input("vvedite a"))
b = int(input("vvedite b"))
h = int(input("vvedite h"))
x = a
y = (x + math.cos((3 * x) ** 0.5))/(65.3 + x)
maxv = y
minv = y
i = 1
print(i, x, y)
while x+h<=b:
    x = x+h
    i += 1
    y1 = (x + math.cos((3 * x) ** 0.5))/(65.3 + x)
    print(i, x, y);
    if y1>y:
        print(' + ', y-y1)
    else:
        print(' - ', y-y1)
    y = y1
    if y>maxv:
        maxv = y
    if y<minv:
        minv = y
print('max = ',maxv,' min = ',minv)

@thyrex · 28.09.2022, 19:12

Parramon, sqr - это возведение в квадрат

@Parramon · 28.09.2022, 19:29

Сообщение от thyrex

sqr - это возведение в квадрат

"Давненько я не брал в руки шашек..." (с)
Значит надо 0.5 заменить на 2

@u235 · 28.09.2022, 19:54

Parramon, и a, b, h - real /float, а не int...

@Parramon · 28.09.2022, 20:08

Сообщение от u235

и a, b, h - real /float, а не int..

А вот это косяк, да. Спасибо, что указал.

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@thyrex 14450 / 7489 / 1582 Регистрация: 06.09.2009 Сообщений: 27,133
	28.09.2022, 19:12
	Parramon, sqr - это возведение в квадрат 1

@u235 5516 / 2869 / 571 Регистрация: 07.11.2019 Сообщений: 4,760
	28.09.2022, 19:54
	Parramon, и a, b, h - real /float, а не int... 0