[Admiral]

Данную задачу можно организовать следующим кодом

Код:

Program DvoynoyMassive;

Const
n=10;m=10;			{задаём размерности, в данном случае 10Х10}

Var
mass:array [1..n,1..m] of integer;		{объявляем массив целых чисел, с нумерацией с единицы}
a,b,c,d,i,sum,csum:integer;					{разные переменные, походу будут нужны}

Procedure input;
Begin
For a:=1 to n do begin
	For b:=1 to m do begin
		 Read(mass[a,b]); end; end; {читаем элементы с клавиатуры, при размерности 10х10 сто раз надо будет вбить цифры}
end;

Procedure output;
Begin
For a:=1 to n do begin
	For b:=1 to m do begin
		 Write(' ',mass[a,b]); end; {выводим элементы на экран}
	Writeln end;
end;

Begin
sum:=0;csum:=0;c:=0;
Write('Enter the elements of massive: ');
input;
Writeln('--------------------------source massive-------------------------');
output;

For a:=1 to n do begin
	For b:=1 to m do begin
	If (b>2) then
		If (mass[a,b]>0) then
			If (mass[a,b-1]>0) and (mass[a,b-2]>0)then begin
				mass[a,b]:=mass[a,b-1]+mass[a,b-2];
				c:=c+1; end
			Else begin
				For i:=1 to b-1 do begin
				d:=mass[a,b-i];
					if d>0 then
                                        begin
					sum:=d+sum;
					csum:=csum+1;
					end;

					if csum>1 then
                                        begin csum:=0;
                                        Break;
                                        end;
				end;
			        if sum>0 then
                                begin
                                mass[a,b]:=sum;
                                c:=c+1;
                                sum:=0;
                                end;
                        end;
end;end;
Writeln('--------------------------destiny massive------------------------');
output;

Write('The number of changing is ',c);
End.

Если масив хХ2 то никаких замен не будет, так как всего два элемента на строчку.

Результат выполнения программы (ВНИМАНИЕ! Для массива 2х5, а то 100 елементо не охота вбивать.)

Enter the elements of massive: 1 2 4 -456 5 2345 5 -567 68 34 -32 --------------------------source massive------------------------- 1 2 4 -456 5 2345 5 -567 68 34 --------------------------destiny massive------------------------ 1 2 3 -456 5 2345 5 -567 2350 2355 The number of changing is 4

Удачной сдачи!

[AAALLLEEEXXXXX]

Большое спасибо! Ты откуда сам?

[AAALLLEEEXXXXX]

Найти приближенно с точностью h min функции:


f(x)=ax2+bx+c на отрезке x2>=x>=x1.

x1,x2,a,b,c,h – заданы.

Требуется вычислить последовательно значение заданной функции от x1 с шагом h, пока не будет выполняться условие, требуемое в задаче.

[MickeyMouse]

Мля, программа для 10 класса

[AAALLLEEEXXXXX]

1).Найти приближенно с точностью h min функции:


f(x)=ax2+bx+c на отрезке x2>=x>=x1.

x1,x2,a,b,c,h – заданы.

Требуется вычислить последовательно значение заданной функции от x1 с шагом h, пока не будет выполняться условие, требуемое в задаче.


2). Составить прогу для ввода, обработки и печати массивов(1 и 2-х мерных).

Дана действительная матрица (Мхn) n,m<=10. В каждой строке матрицы сделать изменения: каждый положительный элемент заменить суммой предшествующих ему в этой строке положительных элементов и подсчитать число таких замен.

[AAALLLEEEXXXXX]

Как там новую тему задавать?

На Исходниках"

[Diseased Head]

AAALLLEEEXXXXX
Может функция так пишется: f(X)=a*X^2 + b*X + c. Где: X^2 - возведение X в квадрат.

[Diseased Head]

x1, x2 и h - дробные или целые числа?

[Diseased Head]

Да и про: a, b и c - тоже не уверен.