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

Перевести из Pascal в Python 3.5

30.05.2018, 09:14. Показов 1567. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
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
uses crt;
var a: array [1..10] of string;
    s, sl,sg,ss: string;
    i, j, k: integer;
begin
write ('s='); readln (s);  s:=s+' ';
sl:='';
sg:='eyuioaEYUIOAуеыаоэяиюУЕЫАОЭЯИЮЁё';
ss:='qwrtpsdfghjklzxcvbnmQWRTPSDFGHJKLZXCVBNMйцкнгшщзхъфвпрлджчсмтбЙЦКНГШЩЗХЪФВПРЛДЖЧСМТБ';
j:=1;
for i:=1 to length (s) do
    if s[i]<>' ' then
       sl:=sl+s[i]
       else
       begin
       a[j]:=sl;
       inc(j);
       sl:='';
       end;
k:=j-1;
for j:=1 to k do
    write(a[j],' ');
 
     writeln;
     writeln ('Слова, заканчивающиеся на гласную : ');
     for j:=1 to k do
        begin
        sl:=a[j];
         if pos(sl[length(sl)],sg)<>0 then
                write(a[j],' ');
        end;
     writeln;
     writeln ('Слова, заканчивающиеся на согласную : ');
     for j:=1 to k do
        begin
        sl:=a[j];
         if pos(sl[length(sl)],ss)<>0 then
                write(a[j],' ');
        end;
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
30.05.2018, 09:14
Ответы с готовыми решениями:

Перевести с 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 >_<
const N = 10; var c: array of byte; var i,tmp: integer; procedure SV( s: string ); var i:integer; ...

Перевести с pascal на python
program happiness; var i,k,s:integer; begin write('Число: '); readln(k); for i:=1 to 100 do begin s:=0; repeat s:=s+sqr(k...

3
1741 / 913 / 480
Регистрация: 05.12.2013
Сообщений: 3,074
30.05.2018, 10:02
Напиши задание
0
Эксперт Python
 Аватар для dondublon
4653 / 2073 / 366
Регистрация: 17.03.2012
Сообщений: 10,183
Записей в блоге: 6
31.05.2018, 12:18
Видимо, подсчитать слова в тексте, оканчивающиеся на гласную и на согласную.
0
0 / 0 / 0
Регистрация: 04.03.2017
Сообщений: 2
01.06.2018, 09:06  [ТС]
Задание: Напишите программу, которая из введенного текста сначала распечатывает слова, заканчивающиеся на согласную букву, а потом на гласную букву.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
01.06.2018, 09:06
Помогаю со студенческими работами здесь

Перевести с Pascal на Python
Помогите пожалуйста перевсти правильно. var i,j,s,n : integer; begin readln(n); i:=1; while true do begin s:=0; for j :=...

Перевести с Python на Pascal
from time import sleep print('Игра запускается...') sleep(1) print('Инициализация файлов...') sleep(1) print('Игра запущена!') ...

Перевести с pascal на python
procedure GetMatr(a:matr; var b:matr; m,i,j:integer); { Вычеркивание из матрицы строки и столбца } var ki,kj,di,dj:integer; begin ...

Перевести с Pascal на Python
Привет, помогите перевести на Python. Буду очень благодарен. Я только начинаю учить Python, поетому не смог сам сделать, хоть програма и...

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


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru