<span>U(i) = U(i-1) + L(i-1), а L(i) = L(i-1) + L(i-2)? </span>
Const
s='информатика';
var
s1:string;
begin
s1:=s; Delete(s1,1,2); Delete(s1,7,3);
Writeln(s1);
s1:=s; Delete(s1,1,1); Delete(s1,2,1); Delete(s1,3,3); Delete(s1,4,2);
Writeln(s1)
end.
Это тема из теории случайных процессов. Формул для построения именно этих графиков не существует, никогда больше эти графики не создать.
На картинке приведены две реализации поведения двух величин (Х и У, А и В) во времени на периоде Т=100 ед. времени (секунд, часов, лет,... ). Например, записаны самописцем/ регистратором напряжение и ток в какой-то цепи, или пульс и что-то еще у пациента (кардиографом), или дневная вы работка угля на шахтах в Англии ...
Вопрос в том, какая стоит задача по исследованию. В любом случае для определения характеристик этих случ. процессов их придется дискретизировать. Затем обычно: стационарность, нормальность, оценку средней (постоянная составляющая), спектральный анализ, корреляционный анализ,
выбор фидьтров, подача на вход сигнала от генератора белого шума (квазибелого, серого), снова обработка, чтобы убедиться, что стат. хар-ки получены соответствующие ... и т.д.
Все это в Матлабе должно быть
Значит так...очередная нудная программа с простым алгоритмом.
Печатает начальный массив, потом диагональ(в уже измененном массиве), потом новый массив, потом число элементов 19..59, произведение диагонали, сумму элементов столбца s.
program test;
uses crt;
var
arr:array[1..8,1..8] of integer;
i,j,cou,pr,s,sum:integer;
begin
clrscr;
randomize;
pr:=1;
s:=7;
for i:=1 to 8 do
begin
for j:=1 to 8 do
begin
arr[i,j]:=random(127)+2;
write(arr[i,j],' ');
end;
writeln;
end;
writeln;
for i:=1 to 8 do
for j:=1 to 8 do
begin
if (arr[i,j]>18) and (arr[i,j]<60) then
begin
cou:=cou+1;
arr[i,j]:=0;
end;
if i=j then
begin
pr:=pr+arr[i,j];
write(arr[i,j],' ');
end;
if j=s then
sum:=sum+arr[i,j];
end;
writeln;writeln;
for i:=1 to 8 do
begin
for j:=1 to 8 do
write(arr[i,j],' ');
writeln;
end;
writeln;
writeln(cou);
writeln(pr);
writeln(sum);
readln;
end.
Var a,i,b:longint;
begin
b:=1;
readln(a);
for i:=2 to a do
b:=b*i;
writeln(b);
<span>end.
вторую извини, не знаю.</span>