Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/13: Рейтинг темы: голосов - 13, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 16.01.2010
Сообщений: 21
1

Найти отрезок массива максимальной длины, в котором первое число равно последнему, второе предпоследнему и т.д.

16.01.2010, 12:06. Просмотров 2535. Ответов 8
Метки нет (Все метки)

Задан числовой массив A[1,n]. Найти отрезок массива максимальной длины, в котором первое число равно последнему, второе предпоследнему и т.д.выведите на экран такие отрезки
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.01.2010, 12:06
Ответы с готовыми решениями:

Найдите отрезок максимальной длины, в котором первое число равно последнему, второе — предпоследнему
Задан числовой массив длины N . Найдите отрезок максимальной длины, в котором первое число равно...

Найти отрезок массива максимальной длины, в котором первое число равно последнему
массивы..

Найти отрезок массива максимальной длины , в котором первое число равно последнему
дан числовой массив . Найти отрезок массива максимальной длины , в котором первое число равно...

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

8
174 / 171 / 40
Регистрация: 14.11.2009
Сообщений: 507
16.01.2010, 12:28 2
все отрезки или только найбольший ?

Добавлено через 15 минут
выведите на экран такие отрезки
вывести только наибольший?
0
0 / 0 / 0
Регистрация: 16.01.2010
Сообщений: 21
16.01.2010, 12:32  [ТС] 3
только наибольший!я столько с ней мучался!если знаете,как ,помогите плииииз)))
0
174 / 171 / 40
Регистрация: 14.11.2009
Сообщений: 507
16.01.2010, 12:41 4
1 сек

Добавлено через 40 секунд
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
program pidposlidovnist;
type
mas=array[1..100] of integer;
 
procedure readmas(n:integer; var a:mas);
var
i:integer;
begin
for i:=1 to n do
read(a[i]);
end;
 
function pall (i,j:integer; a:mas):boolean;
var
k,m,t:integer;
begin
pall:=true;
m:=j-i+1 div 2;
t:=0;
for k:=1 to m do begin
 if a[i+t]<>a[j-t] then begin
 pall:=false;
 exit;
 end;
inc(t);
end;
 
end;
 
procedure sub(n:integer; a:mas; var k:integer);
var
i,max,j,pos1,pos2:integer;
begin
max:=0;pos1:=0;pos2:=0;
for i:=1 to n-1  do
for j:=i+1 to n  do
if pall(i,j,a) then
if j-i+1>max then begin
max:=j-i+1;
pos1:=i;pos2:=j;
end;
 
if pos2-pos1+1=max then begin
writeln('Longest Palindrom :');
for i:=pos1 to pos2 do
write(a[i],' ');
writeln;
end;
 
k:=max;
end;
 
var a:mas;
    n,k:integer;
 
BEGIN
write('n=');
read(n);
readmas(n,a);
sub(n,a,k);
writeln('His length = ',k);
END.
Добавлено через 3 минуты
только не пишите код вручную,сделаете ошибку,скопируйте в текстовой файл и сохраните с разрешением .pas
1
0 / 0 / 0
Регистрация: 16.01.2010
Сообщений: 21
16.01.2010, 12:48  [ТС] 5
блин,огромнейшее спасибо!так оперативно!ты мозг))))respect)

Добавлено через 3 минуты
я ща на первом курсе!мы ещё процедуры не проходили,можно её переделать без них???
0
174 / 171 / 40
Регистрация: 14.11.2009
Сообщений: 507
16.01.2010, 12:57 6
щас минутку

Добавлено через 6 минут
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
44
program pidposlidovnist;
type
mas=array[1..100] of integer;
var a:mas;
    n,k,m,i,j,t,pos1,pos2,max:integer;
    pall:boolean;
    
 
BEGIN
write('n=');
read(n);
for i:=1 to n do
read(a[i]);
 
 
max:=0;
for i:=1 to n-1  do
for j:=i+1 to n  do begin
pall:=true;m:=j-i+1 div 2;t:=0;
for k:=1 to m do begin
if a[i+t]<>a[j-t] then begin
pall:=false;
break;
end;
inc(t);
end;
 
if (pall) and (j-i+1>max) then begin
max:=j-i+1;
pos1:=i;pos2:=j;
end;
 
end;
 
 
if pos2-pos1+1=max then begin
writeln('Longest Palindrom :');
for i:=pos1 to pos2 do
write(a[i],' ');
writeln;
end;
 
writeln('His length = ',max);
END.
1
0 / 0 / 0
Регистрация: 16.01.2010
Сообщений: 21
16.01.2010, 12:59  [ТС] 7
мега respect,мне бы так паскалить
0
174 / 171 / 40
Регистрация: 14.11.2009
Сообщений: 507
16.01.2010, 13:02 8
да это еще не сильно ,если будете учится то и у вас получится, я когда на форум попал,почти ничего не умел,потом смотрел как народ делает,набирался опыта,и научился немножко главное захотеть )
1
0 / 0 / 0
Регистрация: 16.01.2010
Сообщений: 21
16.01.2010, 13:22  [ТС] 9
спасибо за совет)да,правильно,всё дело в желании!я вот потихоньку тож начал осваивать Паскаль с 0!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.01.2010, 13:22

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

В массиве найти отрезок максимальной длины, в котором первое число равно последнему, второе - предпоследнему и т.д. Напечатать характеристики этого от
Помогите ребят!!!!препод задачи задачи для аттестации,сделал фактически все,кроме этой: &quot;В массиве...

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

Найдите отрезок массива, в котором первое число равно последнему, второе - предпоследнему и так далее
Задание: Задан числовой массив A(M). Найдите отрезок массива, в котором первое число равно...

Числа Люка определяются так: первое число равно 1, второе равно 3, каждое следующее равно сумме двух предыдущих. Состави
Задание Числа Люка определяются так: первое число равно 1, второе равно 3, каждое следующее равно...


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

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

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