0 / 0 / 0
Регистрация: 24.10.2020
Сообщений: 94

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

25.03.2022, 18:20. Показов 1461. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите пожалуйста, как правильно переписать кусочек программы из Паскаль в Пайтон?
Знаю только как фор сделать: for i in range(1, len(s1)):

Pascal
1
2
3
4
5
For i:=1 to Length(s1) do
     if Pos(s1[i],s2)=0 then write(s1[i],' ');
    For i:=1 to Length(s2) do
     if Pos(s2[i],s1)=0 then write(s2[i],' ');
    readln;
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
25.03.2022, 18:20
Ответы с готовыми решениями:

Переписать код на пайтон
Нужно переписать код на PYTHON #include "pch.h" #include <iostream> using namespace std; int main() { int c; cin...

Перевод кода с Паскаль в Пайтон
var S,i:real; n,k:integer; Begin readln(n); S:=0; i:=-2; for k:=1 to n do begin i:=-i/2; S:=S+i end;

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

1
Эксперт Python
5438 / 3859 / 1215
Регистрация: 28.10.2013
Сообщений: 9,552
Записей в блоге: 1
25.03.2022, 19:47
Лучший ответ Сообщение было отмечено Marisichka как решение

Решение

Цитата Сообщение от Marisichka Посмотреть сообщение
переписать кусочек программы из Паскаль в Пайтон?
Зачем учить два языка и не знать ни одного?


У тебя все равно этот код не будет работать, потому что в Python нет функции Pos.
(то есть аналог есть, но называется по другому - попробуй сама нагуглить).



Python
1
2
3
4
5
6
7
for i in range(1, len(s1)):
    if Pos(s1[i],s2)==0:
        print(s1[i], end=' ')
for i in range(1, len(s2)):
    if Pos(s2[i],s1)==0: 
        print(s2[i], end=' ')
input()
Добавлено через 4 минуты
Python
1
2
3
>>> "01234".index("2")
2
>>>
Научись для начала расставлять отступы. Без них даже паскаль выглядит говнокодом. А в Python вообще без них нельзя программировать.
Где у тебя границы блоков? Где должен стоять input() для ожидания ввода?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
25.03.2022, 19:47
Помогаю со студенческими работами здесь

Перевод кода с Паскаль в Пайтон
var a,sum: real; n,i:integer; begin write('Количество элементов ряда: '); readln(n); a:=1; sum:=0; ...

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

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

Перевод кода с Паскаль в Пайтон
var n, i:byte; a, b: array of integer; sqr_sum: integer; begin n := 0; while (n > 10) or (n < 1) do begin write('n =...

Перевод работы с Python (Пайтон) на Pascal ABC (Паскаль)
def function(n(sad) s = 0; i = 0; while i < n: a = float(input("Введіть число {0}:".format(i+1))); ...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

Новые блоги и статьи
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определенном условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru