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

Переведите код с PascaleABC в Python 3.9

10.12.2020, 19:29. Показов 826. Ответов 0

Студворк — интернет-сервис помощи студентам
Код может быть ужасен , но помогите пожалуйста. Изучение Python начал недавно. В данном случае я прошу вас перевести весь код, но в будущем такого не повторится. –
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
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
uses crt; 
 
var rost, w2: real;
 w1,w3: string;
 n: byte;
X,Y,Rezult: integer;
Operation:string;
v:integer;
 begin
n := 15; //Номер цвета
  TextBackground(n); //Задаем цвет фона
  ClrScr; //Очищаем окно установленным выше цветом
  textcolor(black);
 w1:=('Семпай, как вас зовут');
 
 writeln(w1);
 readln(w1);
 if w1=('Саша') then exit; 
 writeln(w1 ,' красивое имя. А теперь скажите ваш рост и я отгадаю ваше имя');
 w3:=('Я такое не понимаю. ');
 readln(rost);
 
 writeln('Тебя зовут- ',w1, '. Я молодец ? 1-это да, 2- это нет');
 readln (w2);
 
 if w2=1  then write(' Cпасибо. ' ,w1,' '); if w2=2 then write('Прости меня Семпай. ');
 if (w2<>1) and (w2<>2) then write (w3);
 writeln('Я ещё умею считать. Вот скажите два числа и что мне с ними делать . Вот варианты: +, -, * ,D, квадрат первого числа , квадрат второго числа ');
 Readln(X,Y);
 Readln(Operation);
 Case Operation of 
   '+': Rezult:= X+Y;
   '-': Rezult:= X-Y;
   '*': Rezult:= X*Y;
   'D': Rezult:= X div Y;
   'квадрат первого числа': Rezult:= X*X;
   'квадрат второго числа': Rezult:= Y*Y
 end;
 if  Rezult=993 then write('oshiete oshiete yo sono shikumi wo boku no naka ni dare ga iru nokowareta kowareta yо. Гули построят этот мир , а гули-коммунисты сделают мир  идеальным ');
 
 
 
 
 Writeln('Ответ: ', Rezult);
 
 repeat
 Writeln('Что-то скучно ',w1,'  Может ты выберешь картинку , а я нарисую? 1-да или 2-нет');
 
 readln(v);  
 until v in [1,2];
 if v=2 then writeln('Ладно,но очень скучно. А я всё равно нарисую котика') else 
   writeln('Тогда я нарисую котика'); // дальше по коду я хотел сделать  открывающееся окно с выбором двух котов. После выборa кот рисовались.
 
 
   
 readln ;
 end.
Добавлено через 35 минут
Можете удалить тему.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
10.12.2020, 19:29
Ответы с готовыми решениями:

Переведите код из Python в Pascal
rom random import randint a = print(a) arif = sum(a) / len(a) n = 0 for i in a:

Переведите код из python в java
Вот мой код class Person: def __init__(self, name): self.name = name # устанавливаем имя def...

Переведите код задач с Pascal на Python
Переведите несколько задач с pascal на python. 1)Дано название футбольного клуба. Напечатать его на экран столбиком. uses crt; ...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
10.12.2020, 19:29
Помогаю со студенческими работами здесь

Переведите код с JS на Java, Python, C++ или C#
Переведите, пожалуйста код на Java, Python, C# или C++ пожалуйста, код не мой, а в JS не разбираюсь. var a = var s =...

Переведите с Python на C++ очень простой код
banan=int(input()) grusha=int(input()) itog=0 if banan&gt;grusha: itog=itog+(banan-grusha) else: itog=itog+(banan+grusha) ...

Переведите код с Kotlin на Python (Цикл, рисунок)
(Пытаюсь перевести сам, думал примерно одинаковый синтаксис, но все таки немного не хватает, и в итоге не получается то, что нужно. Нужно...

Переведите с python на с++
a = 'stupid C++' if 'a' in globals(): print(&quot;have var 'a';&quot;, &quot;'a' is: &quot;, a) else: print('stupid C++')

Переведите формулу в Python
(3+x)(2*x^2+x-1) и все в кубическом корне


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru