Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
---
0 / 0 / 0
Регистрация: 26.05.2010
Сообщений: 41
#1

Определить число элементов самой длинной упорядоченной по возрастанию цепочки - Turbo Pascal

26.09.2010, 15:30. Просмотров 618. Ответов 1
Метки нет (Все метки)

Дан одномерный массив целых чисел, определить число элементов самой длинной, упорядоченной по возрастанию цепочки
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.09.2010, 15:30
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить число элементов самой длинной упорядоченной по возрастанию цепочки (Turbo Pascal):

Определить в матрице длину самой длинной цепочки подряд стоящих нулевых элементов по горизонтали - Turbo Pascal
Матрица A состоит из нулей и единиц. Какова в ней длина самой длинной цепочки подряд стоящих нулевых элементов по горизонтали, вертикали и...

Определить длину самой большой упорядоченной по возрастанию подпоследовательности - Turbo Pascal
В заданной последовательности чисел длиной n определить длину самой большой упорядоченной по возрастанию подпоследовательности соседних...

Найти длину самой длинной цепочки одинаковых чисел, идущих подряд - Pascal
В файле data.txt записаны числа, сколько их – неизвестно. Найти длину самой длинной цепочки одинаковых чисел, идущих подряд, и записать её...

Одномерный массив, определить начало и конец самой длинной послед. подряд идущих нулевых элементов. - Turbo Pascal
В одномерный массив заданного размера N (от 2 до 30) ввести произвольные натуральные числа, Определить начало и конец первой, самой длинной...

Определить длину самой упорядоченной части массива - Pascal
Проверить упорядочен ли массив b(n) по возрастанию или убыванию элементов. Если массив не упорядочен, то определить длину самой...

Определить длину самой длинной подстроки - Turbo Pascal
Напишите программу, которая определяет длину самой длинной подстроки из подряд стоящих букв "с".

1
Puporev
Модератор
54023 / 41656 / 14733
Регистрация: 18.05.2008
Сообщений: 97,933
26.09.2010, 20:03 #2
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;
const n=50;
var a:array[1..n] of word;
    m,i,j,k,i1,ip,max:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',n,' m=');
readln(m);
until m in [1..n];
writeln('Введите элементы массива:');
for i:=1 to m do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to m  do
write(a[i],' ');
writeln;
writeln;
i:=2;max:=0;
while i<=m do
if a[i]>=a[i-1] then
  begin
   k:=1;j:=i;
   while (a[j]>=a[j-1])and(j<=m) do
    begin
     j:=j+1;
     k:=k+1;
    end;
   if k>max then max:=k;
   i:=i+k;
  end
else i:=i+1;
writeln('Наибольшая цепочка подряд идущих элементов=',max);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.09.2010, 20:03
Привет! Вот еще темы с ответами:

Определить, сколько букв в самой длинной фамилии списка - Turbo Pascal
Добрый вечер.У меня такая проблема: мне на завтра срочно нужно выполнить лабораторную работу по информатике на тему:&quot;Использование...

В тексте определить длину самой длинной группы цифр - Pascal
Пусть дан текст каждый символ которого может быть латинской буквой,цифрой или один из знаков +,-,*.Группой букв будем называть такую...

Определить длину самой длинной последовательности подряд идущих нулей - Pascal
составить процедуру для определения длины самой длинной последовательности подряд идущих нулей в одномер массиве.используя ее определить в...

Найти длину самой длинной последовательности подряд идущих элементов массива - Pascal
Помогите написать программу:Задан целочисленный массив A(N). Найти длину самой длинной последовательности подряд идущих элементов...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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