Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Rasomaha
55 / 55 / 37
Регистрация: 11.05.2015
Сообщений: 196
09.06.2015, 09:13 0

Алгоритм Нарайаны - Найти такой наибольший j для которого выполняется условие

09.06.2015, 09:13. Просмотров 803. Ответов 1
Метки (Все метки)

Ответ

не вникая в суть алгоритма
Цитата Сообщение от Zarj9999 Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
procedure swap (var a,b:integer);
VAR C : INTEGER;
begin
a:=c;
b:=a;
b:=c;
end;
не верно делаешь
Delphi
1
2
3
4
5
6
7
8
Procedure Swap(var a,b: Integer);
var
c: Integer;
begin
c:=a;
a:=b;
b:=c;
end;
Цитата Сообщение от Zarj9999 Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
function findJ (mas:vektor):integer;
begin
for i:=n-1 downto 1 do
if mas[j]<=mas[j+1] then
begin
result:=j;
break;
end;
end;
В цикле i, а передаешь и смотришь j.

Добавлено через 29 минут
Цитата Сообщение от Zarj9999 Посмотреть сообщение
Pascal
1
2
3
4
5
procedure swapsek (mas:vektor);
begin
for i:=1 to n div 2 do
swap(mas[i], mas[n+1-i]);
end;
это как я понимаю 3 шаг, а где тогда ты передаешь j?
Delphi
1
2
3
4
5
6
7
8
procedure SwapSek(j: integer; var mas: vektor);
var
i: Integer;
begin
Inc(j);
For i:=j to j+((n-j) div 2) do
  Swap(mas[i],mas[n+1-i]);
end;


Вернуться к обсуждению:
Алгоритм Нарайаны - Найти такой наибольший j для которого выполняется условие
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.06.2015, 09:13

В неупорядоченном списке удалить те элементы, для которых выполняется заданное условие
В неупорядоченном списке удалить те элементы, для которых выполняется условие:...

Найти наибольший общий делитель - алгоритм Евклида
Найти наибольший общий делитель - алгоритм Евклида.

Даны два натуральных числа X и Y. Найти их наибольший общий делитель, используя рекурсивный алгоритм Эвклида.
1. Даны два натуральных числа X и Y. Найти их наибольший общий делитель,...

0
Другие темы раздела
Delphi COM сервер http://www.cyberforum.ru/delphi-beginners/thread1472921.html
Добрый день, у меня задание сделать клиент серверную для обмена графическими файлами. С регистрацией пользователей и возможностью просмотра отправленных и входящих сообщений. Всё это должно быть...
Delphi Как сделать при наведении на RadioButton кружок Всем привет, подскажите как чтоб при наведении на RadioButton появлялся кружок? http://www.cyberforum.ru/delphi-beginners/thread1472888.html
Определить среднюю урожайность пшеницы по каждому району и по области в целом Delphi
ОДНОМЕРНЫЙ МАССИВ В области 20 районов.Площади,засеянные пшеницей(в гектарах),и урожай,собранный в каждом районе (в центнерах),хранятся в двух массивах.Определить среднюю урожайность пшеницы по...
Delphi OpenDialog ofCreatePrompt Диалог открытия как создание файла
Выставил значение true, выдает сообщение о создании файла, но его не создает. Пытался делать в связке ofPathMustExist , ofFileMustExist и ничего не вышло. Может кто знает, как с диалога открытия...
Delphi Выбор листов в книге Excel из combobox1 http://www.cyberforum.ru/delphi-beginners/thread1472789.html
Ситуация такая вот листинг загрузки их Excel: const xlCellTypeLastCell = $0000000B; var Sheet : OLEVariant; ListExcel, Excel : Variant; ...
Delphi Как настроить отображение точек в TChart и как можно точки эти записать? Добрый всем день. Подскажите, как настроить отображение точек в TChart и как можно точки эти записать??? Например чтобы можно было записать точки максимума и минимума, а именно при каких значениях... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru