Выстроить новобранцев по росту

@Lina_S · Регистрация: 11.05.2014

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

Нужно перевести программу с Паскаля на С++

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
const M=10; {максимально число элементов в A}
{будем считать, что A состоит из чисел от 1 до N}
var c:array[1..M,1..M] of integer;
curstr, maxstr: array[0..M] of integer;
{в этих переменных хранятся текущая цепочка и}
{цепочка максимальной длины.}
{В нулевом элементе хранится длина цепочки}
N,E : integer; {N - число элементов в A}
i,j,k : integer; {E - число пар в наборе}
procedure find;
var l,j : integer;
begin
l:=curstr[curstr[0]]; {l = последний элемент цепочки}
for j:=1 to N do {просмотр строки l}
if C[l,j]=1
then begin
curstr[0]:=curstr[0]+1;
curstr[curstr[0]]:=j; {j -> в цепочку}
c[l,j]:=-1; {пара использована}
find;
c[l,j]:=1; {пару снова разрешено использовать}
curstr[0]:=curstr[0]-1;
end;
if curstr[0]>maxstr[0] {если нашли более}
then maxstr:=curstr {длинную строку}
end;
begin
readln(N); readln(E);
for i:=1 to N do
for j:=1 to N do
C[i,j]:=0;
for k:=1 to E do begin
write('очередная пара: ',i,j);
c[i,j]:=1;
end;
for i:=1 to N do begin
curr[0]:=1; {поиск цепочки}
curr[1]:=i; {начинающейся элементом i}
find;
end;
for i:=1 to maxstr[0] do
write(maxstr[i]); {печать максимальной строки}
end.

@volvo · 11.05.2014, 21:13

Lina_S, лучше бы задание написать, а не программу, которую надо перевести. Иногда написать заново - быстрее.

@Lina_S · 11.05.2014, 22:03 **[ТС]**

UI, Есть только на украинском языке:
Команда новобранців прибула в частину. Сержант велів їм вишикуватися в колону по одному для руху маршем у лазню. Новобранці, не маючи належних навичок, вишикувалися не по зросту, а як кому до душі припало. Особливо обурило сержанта те, що в колоні проглядалися ділянки, що явно кидали виклик усім статутам стройової служби -новобранці стояли в строю так, що слідом за низеньким знаходився високорослий, за ним - нижчий зростом, а потім знову вище і т.д., або навпаки - слідом за високим - нижчий нього, потім знову вище, потім -нижчий. Обурення сержанта стимулювало концентрацію математичних здібностей, і він одразу велів вийти зі строю тим новобранцям, що утворили найдовший "зубчатий" ланцюжок. Скільки новобранців вийшло зі строю?

Технічні умови: Програма читає з клавіатури в першому рядку кількість новобранців, а в другому – зріст кожного. Числа розділені пропусками. Програма виводить на екран кількість солдатів, що вийшли зі строю. Новобранців не більш 10000, зріст їх вимірюється натуральними числами не більш 255. Якщо декілька ланцюжків мають максимальну довжину, то зі строю виходить тільки один з них.

@IrineK · 12.05.2014, 04:01

Lina_S,
https://translate.google.com.ua
заняло 2 минуты

Команда новобранцев прибыла в часть. Сержант велел им выстроиться в колонну по одному для движения маршем в баню. Новобранцы , не имея должных навыков , выстроились не по росту , а как кому по душе пришлось . Особенно возмутило сержанта то , что в колонне просматривались участки, явно бросавшие вызов всем уставам строевой службы - новобранцы стояли в строю так , что вслед за низеньким находился высокорослый , за ним - ниже ростом , а затем снова выше и т.д. , или наоборот - вслед за высоким - ниже него , затем снова выше , затем - ниже . Возмущение сержанта стимулировало концентрацию математических способностей , и он сразу велел выйти из строя тем новобранцам , которые выстроились в самую длинную " зубчатую " цепочку. Сколько новобранцев вышло из строя ?

Технические условия: Программа читает с клавиатуры в первой строке количество новобранцев , а во второй - рост каждого. Числа разделены пробелами. Программа выводит на экран количество солдат , вышедших из строя . Новобранцев не больше 10000 , рост их измеряется натуральными числами более 255. Если несколько цепочек имеют максимальную длину, то из строя выходит только одна из них.

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .

@volvo Супер-модератор 33370 / 21495 / 8234 Регистрация: 22.10.2011 Сообщений: 36,889 Записей в блоге: 12
	11.05.2014, 21:13
	Lina_S, лучше бы задание написать, а не программу, которую надо перевести. Иногда написать заново - быстрее. 0

@Lina_S 0 / 0 / 0 Регистрация: 11.05.2014 Сообщений: 2
	11.05.2014, 22:03 [ТС]
	UI, Есть только на украинском языке: Команда новобранців прибула в частину. Сержант велів їм вишикуватися в колону по одному для руху маршем у лазню. Новобранці, не маючи належних навичок, вишикувалися не по зросту, а як кому до душі припало. Особливо обурило сержанта те, що в колоні проглядалися ділянки, що явно кидали виклик усім статутам стройової служби -новобранці стояли в строю так, що слідом за низеньким знаходився високорослий, за ним - нижчий зростом, а потім знову вище і т.д., або навпаки - слідом за високим - нижчий нього, потім знову вище, потім -нижчий. Обурення сержанта стимулювало концентрацію математичних здібностей, і він одразу велів вийти зі строю тим новобранцям, що утворили найдовший "зубчатий" ланцюжок. Скільки новобранців вийшло зі строю? Технічні умови: Програма читає з клавіатури в першому рядку кількість новобранців, а в другому – зріст кожного. Числа розділені пропусками. Програма виводить на екран кількість солдатів, що вийшли зі строю. Новобранців не більш 10000, зріст їх вимірюється натуральними числами не більш 255. Якщо декілька ланцюжків мають максимальну довжину, то зі строю виходить тільки один з них. 0

@IrineK 2023 / 1641 / 425 Регистрация: 23.02.2011 Сообщений: 6,002 Записей в блоге: 25
	12.05.2014, 04:01
	Lina_S, https://translate.google.com.ua заняло 2 минуты Команда новобранцев прибыла в часть. Сержант велел им выстроиться в колонну по одному для движения маршем в баню. Новобранцы , не имея должных навыков , выстроились не по росту , а как кому по душе пришлось . Особенно возмутило сержанта то , что в колонне просматривались участки, явно бросавшие вызов всем уставам строевой службы - новобранцы стояли в строю так , что вслед за низеньким находился высокорослый , за ним - ниже ростом , а затем снова выше и т.д. , или наоборот - вслед за высоким - ниже него , затем снова выше , затем - ниже . Возмущение сержанта стимулировало концентрацию математических способностей , и он сразу велел выйти из строя тем новобранцам , которые выстроились в самую длинную " зубчатую " цепочку. Сколько новобранцев вышло из строя ? Технические условия: Программа читает с клавиатуры в первой строке количество новобранцев , а во второй - рост каждого. Числа разделены пробелами. Программа выводит на экран количество солдат , вышедших из строя . Новобранцев не больше 10000 , рост их измеряется натуральными числами более 255. Если несколько цепочек имеют максимальную длину, то из строя выходит только одна из них. 0