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

Перевод кода

12.05.2022, 15:27. Показов 485. Ответов 0

Студворк — интернет-сервис помощи студентам
Нужна помощь с переводом кода на pascal на питон с использованием библиотеки tkinter
Uses GraphWPF;
Procedure sect(x,y,r: integer; a: array of real; atext: array of string);
begin
var a360 := 360/a.Sum; //сколько приходится на один градус
a.Select(t->t*a360).Prepend(0.0).PartialSum.PairWis e.ForEach((\(a1,a2),i) ->
begin
var col := RandomColor;
Sector(x,y, r,90-a1,90-a2,col); // вывод сектора
Rectangle(x+r+20,y-r+40*i,30,30,col); //вывод прямоугольника
TextOut(x+r+60,y-r+40*i,atext[i]+' - '+a[i],font.WithSize(30));
end);
end;

begin
var a := Arr(19.9, 13.4, 12.9, 8.7, 5.0, 40.0);
var atext := Arr('Один','Два','Три','Четыре','Пять',' Шесть');
sect(300,300,200,a,atext);
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
12.05.2022, 15:27
Ответы с готовыми решениями:

Перевод кода из JS на Python
Есть код решения математической задачи на JS, нужно перевести его на Python, помогите пожалуйста. function main() { let y_start =...

Перевод кода с С++ на Python
#include <iostream> using namespace std; #define MAX 41 int n, m, l, fib = { 0, 1 }; string solve(int n, int Left, int...

Перевод кода из Паскаля в питон
begin var n := ReadInteger('n ='); var a := ReadArrInteger('Массив', n); a.Sort; // Println(a); var b...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
12.05.2022, 15:27
Помогаю со студенческими работами здесь

Перевод кода из Pascal в Python
Здравствуйте, помогите пожалуйста!!! const N=30; var a: array of integer; i, j, k: integer; begin for i:=1 to N do...

Перевод кода с Pascal на Python
прошу помочь перевести данный код с pascal на python, заранее спасибо!!! var A, B, C: integer; A_1, B_1, C_1: boolean; begin...

Перевод кода с Паскаль в Пайтон
const n = 10; var arr: array of integer; i, count, summa, min_id: integer; mean: real; begin count := 0; summa :=...

Перевод кода с Паскаль в Пайтон
Var s,s1:String; i,n:integer; Begin write('Введите слова(через пробел): ');readln(s); write('Введите номер слова для...

Перевод кода с Паскаль в Пайтон
var s: string; i,w,min: byte; begin readln(s); w := 0; // длина очередного слова min := 255; for i:=1 to length(s)...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Видеокарта простаивает ночами? Вот 4 проекта, которые загрузят её наукой
Programma_Boinc 10.04.2026
Видеокарта простаивает ночами? Вот 4 проекта, которые загрузят её наукой Если на Windows стоит дискретная NVIDIA или AMD — можно отдать её вычислительную мощность реальным исследованиям. . . .
Очистка реквизитов документа при копировании
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
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru