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

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

13.12.2020, 13:03. Показов 1626. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите перевести код с Паскаля на Питон
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  a, b, x, y, z: real;
 
begin
  Write('X = '); Readln(x);
  Write('Y = '); Readln(y);
  Write('Z = '); Readln(z);
  a := (3 + Exp(y - 1)) / (1 + Sqr(x) * Abs(y - Sin(z) / Cos(z)));
  b := 1 + Abs(y - x) + (Sqr(y - x) / 2) + (Exp(3 * Ln(Abs(y - x))) / 3);
  Writeln('A = ', a:0:2);
  Writeln('B = ', b:0:2);
  Readln
end.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
13.12.2020, 13:03
Ответы с готовыми решениями:

Перевести из паскаля в питон
uses crt; type Date=record Day:Integer; Month:Integer; Year:Integer; end; mas=array of string; var d1,d2:Date; ...

Перевести с паскаля на питон
Буду ооочень благодарна. Вот код проги: var a,i:integer; f,f1:text; begin assign(f,'input.txt'); reset(f); ...

Перевести с Паскаля на Питон
var gr,mr,gs,ms,vozrast:integer; begin writeln('vvedite god i mesyac rojdeniya'); readln(gr,mr); writeln('vvedite segodnyashniy...

6
23 / 22 / 4
Регистрация: 25.06.2018
Сообщений: 169
13.12.2020, 13:37
Берете только то, что между begin и end.

Write('X = '); Readln(x); на Питоне так: x = input('X = ')

В формулах, вместо := просто =
И функции надо с библиотеки math брать.
1
0 / 0 / 0
Регистрация: 29.06.2018
Сообщений: 48
13.12.2020, 18:51  [ТС]
Спасибо, поправил чутка но все одно при запуске не чего не происходит(((
Вот пример моего кода уже с поправками
Python
1
2
3
4
5
6
7
8
9
10
11
12
import math
 
 
def exp1( x, y, z):
    x = input(x,'X = ')
    y = input(y,'y = ')
    z = input(z,'Z = ')
    a = math.sqrt = (math.sqrt(abs(x - 1)) - (abs(y) ** (1/3))) / (1 + ((x**2) / 2) + ((y**2) / 4))
    b = math.sqrt = x * (math.atan(z) + math.e ** (-(x+3)))
 
    print(a,b)
    return a, b
0
Эксперт Python
5438 / 3859 / 1215
Регистрация: 28.10.2013
Сообщений: 9,552
Записей в блоге: 1
13.12.2020, 18:54
Цитата Сообщение от Chaky1 Посмотреть сообщение
но все одно при запуске не чего не происходит(((
А должно, если ты функцию не вызвал?
И не надо пихать input'ы в функцию.
Функция должна принимать аргументы. А ты туда что передавать будешь?
1
0 / 0 / 0
Регистрация: 29.06.2018
Сообщений: 48
13.12.2020, 20:13  [ТС]
Не могли бы поправить как должно быть?) плззз))
0
312 / 192 / 98
Регистрация: 01.05.2014
Сообщений: 522
14.12.2020, 11:16
Лучший ответ Сообщение было отмечено Chaky1 как решение

Решение

Chaky1,
Python
1
2
3
4
5
6
7
8
9
10
import math
 
 
x = int(input("X = "))
y = int(input("Y = "))
z = int(input("Z = "))
a = (3 + math.exp(y - 1)) / (1 + math.sqrt(x) * abs(y - math.sin(z) / math.cos(z)))
b = 1 + abs(y - x) + (math.sqrt(y - x) / 2) + (math.exp(3 * math.log(abs(y - x))) / 3)
print("A = %.2f" % (a))
print("B = %.2f" % (b))
В вашем коде 5-7 строки вынести из функции, 11 удалить, и вызывать
Python
1
print(exp1( x, y, z))
1
0 / 0 / 0
Регистрация: 29.06.2018
Сообщений: 48
14.12.2020, 15:02  [ТС]
Спасибо большое)))+1=)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
14.12.2020, 15:02
Помогаю со студенческими работами здесь

Перевести с паскаля на питон
var R,M0,M1,res,i,N,dat: longint; begin M0 := 0; M1 := 0; readln(N); for i := 1 to N do begin readln(dat); if (dat mod 2...

Перевести с паскаля на питон
var a, s: integer; begin s:= 0; readln(a); while a<>0 do begin if (a mod 6 = 0) and (a mod 10 = 4) then s := s + a; ...

Перевести с Паскаля на Питон
Знающие люди, помогите, заранее спасибо за любую помощь ) function A(n: integer; x: real): real; begin if n = 1 then A := x ...

Перевести из паскаля в питон
program Mustafander; uses crt; var i,n,m:integer; begin Write('Enter N = ');readln(n); Write('Enter M = ');readln(m); ...

Перевести с паскаля на питон
var N: longint; a: array of longint; s_old, s_new: array of longint; i, j, k, r: longint; begin ...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru