Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal В продаже книг в книжном магазине берет участие ЕОМ В продаже книг в книжном магазине берет участие ЕОМ. Написать программу, которая спрашивает у покупателя пазвание книги, которую тот желает купить. Если книга есть в продаже, то уведомляет, сколько она стоит, принимает деньги (сумма денег вводится с клавиатуры). Дальше ЕОМ определяет здачу(если денег внесено больше); выводится на экран "Спосибо", если здача не нужна; или выводить сообщения о... https://www.cyberforum.ru/ pascal/ thread86374.html Pascal Преобразовать массив так, чтобы сначала располагались все отрицательные элементы, а потом все положительные
ребят помогите срочно у мя экзамен!!!!!!!!!!!! Одномерный массив состоит из N вещественных элементов(n<=50).Преобразовать массив так что сначало располагаются все отрицательные элементы(в порядке появления),а потом все положительные(элемент 0 считаем положительными)Паскаль
Pascal Создать функции для выполнения арифметических операций над комплексными числами Заданы два комплексных числа (a+ib) и (c+id) и тип операции(+, -, *, /). Создать функции для выполнения арифметических операций над комплексными числами и выщитать значение модулей заданых комплексных чисел. Указания: a, b, c и d вводить с клавиатуры. https://www.cyberforum.ru/ pascal/ thread86370.html Pascal Структуры: списки, очереди и стек. https://www.cyberforum.ru/ pascal/ thread86369.html
Заданная последовательность слов из латинских букв, между словами есть пробелы, после последнего слова точка. Напечатать слова по алфавиту, для каждого из слов определить число его вхождений в эту последовательность.
Pascal Заменить значение первой компоненты типизированного файла на значение последней его компоненты
Создать файл, компоненты (количество <=7) которого являются целыми числами. После создания файла заменить значение первой компоненты файла на значение последней его компоненты. Исходный и результирующий файлы вывести на экран. Добавлено через 1 час 15 минут никто не решит?))) 		Pascal Составьте рекурсивную подпрограмму построения последовательности Фибоначчи, если an=an-1+an-2, где а1=1; a2=1; n=3,4,…,k. Составьте рекурсивную подпрограмму построения последовательности Фибоначчи, если an=an-1+an-2, где а1=1; a2=1; n=3,4,…,k. https://www.cyberforum.ru/ pascal/ thread86364.html
Pascal Поменять местами наибольший и наимегьший элементы матрицы https://www.cyberforum.ru/ pascal/ thread86361.html
Дана матрица A(N,M). Поменять местами её наибольшие и наименшие элементы. 		Pascal произведение количеств положительных элементов каждой строки
помогите решить для матрицы Вопределить произведение количеств положительных элементов каждой строки
Pascal Написать функцию проверки делимости на 3 числа N, вводимого с клавиатуры 12.12. Для проверки делимости числа на 3, необходимо, чтобы сумма цифр числа делилась на 3. Написать функцию проверки делимости на 3 числа N, вводимого с клавиатуры. 12.13. Для проверки делимости числа на 4, необходимо, чтобы число из последних двух цифр числа делилось на 4. Написать функцию проверки делимости на 4 числа N, вводимого с клавиатуры. 12.14. Для проверки делимости числа на 5,... https://www.cyberforum.ru/ pascal/ thread86356.html Pascal Упорядочить строки матрицы по убыванию Дана действительная прямоугольная матрица размерности NxM. Упорядочить строки матрицы по убыванию количества отрицательных чисел в строке https://www.cyberforum.ru/ pascal/ thread86348.html
Pascal Сравнение фигур
Две геометрические фигуры вырезаны из бумаги: отрезок длиной L и равнобедренный треугольник со сторонами В, С и С (данные вещественные). Описать функцию, аргументами которой являются размеры фигур, а результатом будет TRUE, если одной фигурой можно полностью закрыть другую, и FALSE в противном случае. 		Pascal региональная олимпиада https://www.cyberforum.ru/ pascal/ thread86327.html
Максимальное время работы программы 2 сек Решая задачу по информатике, Вова в очередной раз допустил ошибку. Он снова вывел в выходной файл числа, забыв разделить их пробелами. Увидев полученный результат, Вова сначала огорчился, а потом задумался над следующим вопросом: сколько существует различных последовательностей неотрицательных целых чисел, таких что, если выписать их без пробелов, то...
175 / 172 / 40
Регистрация: 14.11.2009
Сообщений: 507
16.01.2010, 12:57 0

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

16.01.2010, 12:57. Показов 3939. Ответов 8
Метки (Все метки)

Ответ

щас минутку

Добавлено через 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.


Вернуться к обсуждению:
Найти отрезок массива максимальной длины, в котором первое число равно последнему, второе предпоследнему и т.д. Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 16.01.2010, 12:57
Готовые ответы и решения:

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

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

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

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

8
16.01.2010, 12:57
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 16.01.2010, 12:57
Помогаю со студенческими работами здесь

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru