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

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

14.04.2022, 17:13. Показов 2468. Ответов 24
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
C#
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
using System;
 
using System.Collections.Generic;
 
using System.Linq;
 
using System.Text;
 
using System.Threading.Tasks;
 
namespace ConsoleApplication1
 
{
 
class Program
 
{
 
static void Main(string[] args)
 
{
 
double summ = 0, max = 0, j = 1;
 
while (j == 1)
 
{
 
Console.WriteLine("Что вы хотите создать?\n Многоуровневый том или папку? (1); \n Локальный закреплённый том или общую папку? (2). ");
 
int a = int.Parse(Console.ReadLine());
 
Console.WriteLine("Какой объём вы хотите создать: ");
 
double b = double.Parse(Console.ReadLine());
 
if (a == 1)
 
summ = summ + b / 100 * 12;
 
else
 
{
 
summ = summ + b / 100 * 10 + b;
 
if ((b / 10 + b) > max)
 
max = b+b/10;
 
}
 
Console.WriteLine("Хотите создать что-то ещё?\t да=1, нет=2");
 
j = double.Parse(Console.ReadLine());
 
}
 
summ = (summ + max) / 0.85;
 
Console.WriteLine("Ответ: " + summ);
 
}
 
}
 
}
Миниатюры
Перевести код с паскаля на питон  
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
14.04.2022, 17:13
Ответы с готовыми решениями:

Перевести код из паскаля в питон
Задача: Даны два слова. Определить, сколько начальных букв первого слова совпадает с начальными буквами второго слова. Слова вводит...

Перевести код из паскаля в питон
Var a : array of integer ; i : integer ; begin for i : = 1 to 10 do

Нужно перевести код с паскаля в питон
var A, B, L, P, Circle:Integer; Begin WriteLn('Введите длину: '); ReadLn(A); WriteLn('Введите шириру: '); ReadLn(B); ...

24
5184 / 1074 / 150
Регистрация: 29.01.2013
Сообщений: 6,258
15.04.2022, 21:46
Студворк — интернет-сервис помощи студентам
Artemiy88, так давайте решать задачу. А то флудить - это прям моё, и я могу этим долго заниматься)
Вы умеете в пайтоне считывать с консоли введённые выражения и преобразовывать их к типам явным образом?
0
0 / 0 / 0
Регистрация: 12.04.2022
Сообщений: 11
15.04.2022, 21:51  [ТС]
Alli_Lupin, повторюсь, нет. данная задача рядом не стоит с моими навыками, но ее нужно как-то решить..
0
5184 / 1074 / 150
Регистрация: 29.01.2013
Сообщений: 6,258
15.04.2022, 21:54
вы путаетесь в показаниях.
Цитата Сообщение от Artemiy88 Посмотреть сообщение
у меня свой уровень изучения питона, прохожу tkinter,
Гуй, которым и является эта богопротивная штука, сильно после ввода данных из консоли и приведения типов.
0
Эксперт PythonЭксперт Java
19530 / 11067 / 2931
Регистрация: 21.10.2017
Сообщений: 23,294
17.04.2022, 14:23
Лучший ответ Сообщение было отмечено Artemiy88 как решение

Решение

Цитата Сообщение от Artemiy88 Посмотреть сообщение
он создает том или папку с пользовательским размером
Ничего даже близко подобного код не делает. Это вообще не поймешь что.
Цитата Сообщение от Artemiy88 Посмотреть сообщение
нужен этот код на питоне
На здоровье.
Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
summ = 0
maxx = 0
j = 1
while j == 1:
    print("Что вы хотите создать?\n Многоуровневый том или папку? (1); \n "
          "Локальный закреплённый том или общую папку? (2). ")
    a = int(input())
    print("Какой объём вы хотите создать: ")
    b = float(input())
    if a == 1:
        summ = summ + b / 100 * 12
    else:
        summ = summ + b / 100 * 10 + b
    if (b / 10 + b) > maxx:
        maxx = b + b / 10
    print("Хотите создать что-то ещё?\t да=1, нет=2")
    j = float(input())
summ = (summ + maxx) / 0.85
print("Ответ: " + summ)
1
0 / 0 / 0
Регистрация: 12.04.2022
Сообщений: 11
17.04.2022, 22:17  [ТС]
iSmokeJC, Спасибо большое!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
17.04.2022, 22:17

Перевести с паскаля на питон
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,i:integer; f,f1:text; begin assign(f,'input.txt'); reset(f); ...

Перевести с паскаля на питон
Помогите пожалуйста перевести с паскаля на питон Нпдо нацти колво строк все элты которого различны uses crt; var a:array of...

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

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


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

Или воспользуйтесь поиском по форуму:
25
Ответ Создать тему
Новые блоги и статьи
После бана на Пикабу не работает авторизация аккаунта с Яндекса.
Hrethgir 09.07.2026
В частности https:/ / auto. ru/ logbook/ zapret-na-vozhdenie-posle-65-let_1cf28789-07b4-4c75-a2f7-4cd4edf9deeb тут хотел оставить комментарий такой Зрите в корень - монополизация на разработку программ. . .
GitDOS: Когда я решил скрестить MS-DOS, GitHub и Claude
MaGz GoLd 08.07.2026
Привет, Киберфорум! Хочу поделиться своим проектом, который, надеюсь, вас заинтересует. GitDOS — это веб-приложение, которое позволяет запускать DOS в браузере с тремя крутыми фичами: диски живут в. . .
Учебный мини "цифровой двойник" = (Сервер = Java + Flask_питон )+(3D = Гугловскаая 4T nvideo + google colab) +( WMS = Odoo на Docker)
anaschu 07.07.2026
Увидел в требованиях к вакансии создателя имитационных моделей связку (REst + Api + WMS + Anylogic + питон + 3D Nvideo), и решил посмотреть, что это такое. Из этого всего я работал более менее. . .
Море в объективе
kumehtar 06.07.2026
Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.
Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii.
dcc0 05.07.2026
Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .
Установка статуса документа по условию
Maks 05.07.2026
Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .
Сезонность и суточность закисления почв
anaschu 04.07.2026
200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .
В чем ценность человеческого опыта в глобальном смысле?
kumehtar 03.07.2026
Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru