Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
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 и как можно точки эти записать??? Например чтобы можно было записать точки максимума и минимума, а именно при каких значениях... подробнее
Zarj9999
0 / 0 / 0
Регистрация: 08.06.2015
Сообщений: 5
0

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

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

Алгоритм Нарайаны
Шаг 1. Найти такой наибольший j для которого aj<=aj+1;
Шаг 2. Увеличить aj (для этого надо установить l=n, aj>=al, уменьшать L на единицу, после этого поменять местами aj и al.
Шаг 3. Развернуть последовательность с j+1 до an.

Помогите дописать программу

Delphi
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
const n=4;
  var i,j:integer;
  type
  vektor = array [1..n] of integer;
function makeintperv: vektor;
begin
   for i:=1 to n do
   result[i]:=i;
end;
 
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;
 
function findL (mas:vektor):integer;
begin
 result:=n;
 while mas[j]>=mas[result] do
 dec(result);
 end;
 
procedure swap (var a,b:integer);
VAR C : INTEGER;
begin
a:=c;
b:=a;
b:=c;
end;
 
procedure swapsek (mas:vektor);
begin
for i:=1 to n div 2 do
swap(mas[i], mas[n+1-i]);
end;


Вернуться к обсуждению:
Алгоритм Нарайаны - Найти такой наибольший j для которого выполняется условие
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.06.2015, 00:00
Готовые ответы и решения:

Найти наименьший номер n, для которого выполняется условие |an – an-1|<0,1 , если последовательность an имеет вид an+1= an+ 2/an.a1=1
помогите пожайлуста

Найти первый из номеров К, для которых выполняется условие
!!!!!!!!!!Народ распишите плиз решения(алгоритмы)программ на языке Delphi те...

Для целого числа N=1313 найти общее количество пар целых чисел x и y, для которых выполняется условие 7x+2y=N
Для целого числа N=1313 найти общее количество пар целых чисел x и y, для...

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

Найти наибольший трехзначный элемент массива. Условие
Дан одномерный целочисленный массив. Составить программы для решения следующих...

1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru