Перенести код из Pascal в Python

15.05.2021, 11:04. Показов 1776. Ответов 0

Метки pascal, python, код, Перенос (Все метки)

Студворк — интернет-сервис помощи студентам

День добрый, нужно перенести код из pascal в python:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  n, n0, first: integer;
  f, g: boolean;
  
begin
  f := true;
  g := false;
  n := 1;
  writeln('Введите целые числа:');
  while n <> 0 do
  begin
    read(n);
    if g then begin first := n; g := false end;
    if f then
      if n < 0 then begin n0 := n; f := false; g := true end
  end;
  writeln;
  if f = false then 
    write('Следующее число за первым отрицательным: ', first)
  else write('Отрицательных чисел не существует.')  
end.

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
function convert(const s: string): string;
var
  i, j, k: integer;
  res: string;
begin
  i := length(s);
  res := '';
  while (i > 0) do 
  begin
    j := i;
    while (i > 0) and (s[i] <> ' ') do dec(i);
    for k := i + 1 to j do
      res := res + s[k];
    res := res + ' ';
    dec(i);
  end;
  convert := res;
end;
 
var
  s: string;
 
begin
  readln(s);
  writeln(convert(s));
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

15.05.2021, 11:04

Ответы с готовыми решениями:

Перенести код из Pascal на C#
program Textfile; uses Crt; type Lis=record viddil:string; plos:string; char:string; jarus:string; element:string; ...

Перенести код с Pascal на C++
Дана действительная матрица размера N×M. Упорядочить строки матрицы по возрастанию сумм элементов строк. Код: var a:array of real; ...

Перенести код с Pascal на C++
Дано натуральное число n, действительные числа Х1, Х2,...., Хn. В последовательности Х1, Х2,..., Хn. получить сумму членов, принадлежащих...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

15.05.2021, 11:04

Помогаю со студенческими работами здесь

Перенести код из Fortran в Pascal
Здравствуйте,пытаюсь перенести код из Fortran в Pascal, не могу понять, в чем проблема, в Fortran программа полностью работает, в Паскале...

Перенести код python 3 на python 2
Помогите пожалуйста этот код перенести с python 3 на python 2. # Python 3.X from random import shuffle doors = lives = 3...

Перенести код из PascalABC в Python
program pr126; var x1, x2,x3,x4,y1,y2,y3,y4:integer; begin writeln('vvedite koordinati nignego levogo ugla'); read(x1,y1); ...

Нужно перенести код из Python в C#
Нужно перенести код из Python в C# x1_0=0; x2_0=0; x3_0=0; E=0.001; p=1; while 111: ...

Перенести код из Турбо-Паскаля в Pascal ABC
Нужно переделать программу,написанную на Turbo Pascal в ту,чтобы работала на Pascal ABC. Помогите пожалуйста/Вот снизу представлен код на...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

Наверх