Перевести с Pascal на Python

18.12.2019, 18:29. Показов 1727. Ответов 0

Метки нет (Все метки)

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

Привет, помогите перевести на Python. Буду очень благодарен. Я только начинаю учить 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
uses crt;
var f:text;
  s,s1,sm:string;
  i,k,n,mn:byte;
begin
clrscr;
assign(f,'input.txt');
reset(f);
mn:=255;
sm:='';
while not eof(f) do
begin
 readln(f,s);
 writeln(s);
 n:=length(s);
 i:=1;
 while i<=n do
 if (s[i]<>' ')and ((i=1)or(s[i-1]=' '))then{если буква, а перед ней пробел, или она первая}
 begin
  k:=i;
  s1:='';
  while (k<=n)and(s[k]<>' ') do {пока не пробел и не конец строки}
  begin
   s1:=s1+s[k];{составляем слово}
   k:=k+1;{идем вперед}
  end;
  if length(s1)<=mn then
  begin
   mn:=length(s1);
   sm:=s1;
  end;
  i:=i+length(s1);{перепрыгиваем}
 end
 else i:=i+1;{пропускаем пробелы}
end;
close(f);
write('Самое короткое слово с конца=',sm,' его длина=',mn);
readln
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

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

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

Блог

18.12.2019, 18:29

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

Перевести из Pascal в Python
Только начал изучать Python, так что помидорами не закидывайте, паскаль мельком изучил, но не все помню. program Zadacha3 ; uses ...

Перевести с Pascal на python
var n, i, j, k: Integer; a: array of Integer; begin ReadLn(n); for i:=1 to n do begin for j:=1 to n do Read(a);...

Перевести из Pascal в Python
procedure vRotateRight(var a: array of Integer); var i, t: Integer; begin t:=a]; for i:=High(a) downto Low(a)+1 do a:=a; ...

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

BasicMan

Эксперт

29316 / 5623 / 2384

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

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

Блог

18.12.2019, 18:29

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

Перевести с PASCAL в PYTHON
var b,i:longint; c:integer; function sm(n:longint):longint; begin if n<10 then sm:=n else...

Перевести с Pascal на Python
Помогите перевести программу с Pascal на Python!! 1) В метании молота состязается n спортcменов. Каждый из них сделал m бросков....

Перевести с PASCAL в PYTHON
var n, i : integer; a, b, c : longint; begin read(n,a,b); for i:=n-1 downto 1 do begin c:=b-a; b:=a; a:=c end; ...

Перевести с Pascal на Python
перенести код с паскаль на питон!!! Program PROGRAMMA8; uses dos, crt, graph; Const N=110; M=90; s=13; r=6; h=5; Var y, yy,...

Перевести код с Python на Pascal
a=float(input("Введите сумму: ")) c1=a*50 c2=150*(a+a*0.2) c=c1+c2 print(c)

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

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

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка 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/

Наверх