Найти члены последовательности, удовлетворяющие условию

@eryana · Регистрация: 10.03.2010

Author24 — интернет-сервис помощи студентам

Часть 1. Создание функции
Даны натуральные числа n, a1,…,an, где n≤2500. Найти члены ak последовательности a1,…,an, удовлетворяющие условию 2k< (ak-1+ak+1)/2, и определить их количество.

Часть 2. Создание процедуры
Даны натуральные числа n, m и матрица разрядности nхm действительных чисел, где n,m≤12. Найти строку матрицы с максимальной суммой элементов.

Метод выполнения программ
в основной программе должно выполнятся только:
1)ввод исходных данных(или рандомно или в с клавиатуры,не важно)
2)вывод результата
в процедуре либо функции соответственно должно выполняться:
1)передача параметров по значению из основной программы
2)непосредственное решение задачи
3)если продедура-возвращение параметров в основную программу
если функция присвоение результата вычисление,выполненное в подпрограмме,в основной пргограмме

@Puporev · 29.05.2010, 07:22

2.

Pascal

uses crt;
const nmax=20;
type matr=array[1..nmax,1..nmax] of real;
procedure Stroka(mt:matr;x,y:byte;var mx:real; var imx:byte);
var i,j:byte;
    sm:real;
begin
mx:=0;
for i:=1 to y do
sm:=sm+mt[1,i];
imx:=1;
for i:=1 to x do
 begin
  sm:=0;
  for j:=1 to y do
  sm:=sm+mt[i,j];
  if sm>mx then
   begin
    mx:=sm;
    imx:=i;
   end;
  writeln('Сумма в строке ',i,'=',sm:6:2);
 end;
writeln;
end;
var a:matr;
    n,m,i,j,imax:byte;
    max:real;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=10*random;
     write(a[i,j]:6:2);
    end;
   writeln;
 end;
writeln;
Stroka(a,n,m,max,imax);
write('Максимальная сумма в строке ',imax,'=',max:6:2);
readln
end.

Добавлено через 2 минуты

условию 2k< (ak-1+ak+1)/2,

Думаю это написано неправильно, скорее всего нужно
a[k]<(a[k-1]+a[k+1])/2
т.е. найти те члены последовательности, которые меньше среднего арифметического соседей.

@eryana · 29.05.2010, 11:47 **[ТС]**

Ну вообщем как
нужно найти такой член последователькости Аk
что бы он удовлетвоярял условию,т.е. пример
последовательность:5,4,3,2,1.
берём число 4(начинаем со второго и заканчиваем пердпоследним членом последовательности)
2 во второй стпене=4
предидущий член,т.е. а первое=5
последующий после нашего А второго=3
получаем:
4<(5+3)\2
выполняется?
нет
значит не считаем это число,а переходим к следующему числу

вот такое понятие

Добавлено через 2 минуты
а 2k
это 2^k-2 в степени k
просто тут не знаю как прописать.
2^k<(Апредидущего+Апоследующее)\2

@Puporev · 29.05.2010, 12:28

Если нужно найти числа по условию
2^k<(a[k-1+a[k+1])/2 а n<=2500, то нужно считать 2^2500? Это уже длинная арифметика.
Что-то нет желания заморачиваться.

Кстати во второй задаче не заметил, нужно

Pascal

1	const nmax=12;

Добавлено через 2 минуты
И вообще как-то непонятно в первой задаче при чем тут сами числа a[k] если они никак не участвуют в вычислениях.

@eryana · 30.05.2010, 13:19 **[ТС]**

решение первой задачи

@Puporev · 30.05.2010, 13:29

for i:=2 to 29 do begin

А если
for i:=2 to 2500 do begin ????

@eryana · 31.05.2010, 16:10 **[ТС]**

ну так там же условие
n≤2500
значит можно меньше,но не больше

@eryana 0 / 0 / 1 Регистрация: 10.03.2010 Сообщений: 66
		1
	Найти члены последовательности, удовлетворяющие условию 28.05.2010, 21:44. Показов 1781. Ответов 6 Метки нет (Все метки) *Часть 1. Создание функции* Даны натуральные числа n, a1,…,an, где n≤2500. Найти члены ak последовательности a1,…,an, удовлетворяющие условию 2k< (ak-1+ak+1)/2, и определить их количество. *Часть 2. Создание процедуры* Даны натуральные числа n, m и матрица разрядности nхm действительных чисел, где n,m≤12. Найти строку матрицы с максимальной суммой элементов. *Метод выполнения программ* в основной программе должно выполнятся только: 1)ввод исходных данных(или рандомно или в с клавиатуры,не важно) 2)вывод результата в процедуре либо функции соответственно должно выполняться: 1)передача параметров по значению из основной программы 2)непосредственное решение задачи 3)если продедура-возвращение параметров в основную программу если функция присвоение результата вычисление,выполненное в подпрограмме,в основной пргограмме 0

@eryana 0 / 0 / 1 Регистрация: 10.03.2010 Сообщений: 66
	29.05.2010, 11:47 [ТС]	3
	Ну вообщем как нужно найти такой член последователькости Аk что бы он удовлетвоярял условию,т.е. пример последовательность:5,4,3,2,1. берём число 4(начинаем со второго и заканчиваем пердпоследним членом последовательности) 2 во второй стпене=4 предидущий член,т.е. а первое=5 последующий после нашего А второго=3 получаем: 4<(5+3)\2 выполняется? нет значит не считаем это число,а переходим к следующему числу вот такое понятие Добавлено через 2 минуты а 2k это 2^k-2 в степени k просто тут не знаю как прописать. 2^k<(Апредидущего+Апоследующее)\2 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	30.05.2010, 13:29	6
	for i:=2 to 29 do begin А если for i:=2 to 2500 do begin ???? 0

@eryana 0 / 0 / 1 Регистрация: 10.03.2010 Сообщений: 66
	31.05.2010, 16:10 [ТС]	7
	ну так там же условие n≤2500 значит можно меньше,но не больше 0

Найти члены последовательности, удовлетворяющие условию

Решение