var
u:[0..n-1]array of real;//znacheniya ot -1 do 1;
a:array [-25..25, -25..25] of real;
b:array [-25..25, -25..25] of real;
razn: real;
i,j, ii, jj:integer;
begin
for i:=0 to n-1 do
u := Random(2) - 1.0;
for i:=-25 to 25 do begin
for j:=-25 to 25 do begin
a[i,j]:=0;
b[i,j]:=0;
end;
end;
for ii:=0 to n-1 do begin
for jj:=0 to n-1 do begin
if ii<>jj then begin
i := round(u[ii]*[color=red]25[/color]);
j := round(u[jj]*[color=red]25[/color]);
a[i,j] := a[i,j]+1;//eto poschitalos' kolichestvo raznostei v odinakovix intervalax
razn := u[ii] - u[jj];
{ или вместо верхней команды
razn := u[ii] + u[jj]; ???
}
b[i,j] := b[i,j] + razn;
end;
end;
end;
end;
please help!
Zdravstvuite! Pomogite pojaluista! Srocho neobhodimo, a sama tormoju...http://forum.codenet.ru/images/icons/icon9.gif
Unhappy
Dan massiv tipa real u, v nem v znacheniya ot -1 do 1. Ego nujno razbit' na 50 intervalov, to est' kajdui interval raven 0,04. Dalee nujno sravnit' poparno vse znacheniya to est' (u[1]-u[2]).. etc. i raspredelit' ih v novom dvumernom massive v sootvetstvii s ranee opredelennumi intervalami. Zatem poscitat' kolichestvo elementov v kajdom intervale i summu znachenij v kajdom intervale.
Zaranee ogromnoe spasibo!
Unhappy
Dan massiv tipa real u, v nem v znacheniya ot -1 do 1. Ego nujno razbit' na 50 intervalov, to est' kajdui interval raven 0,04. Dalee nujno sravnit' poparno vse znacheniya to est' (u[1]-u[2]).. etc. i raspredelit' ih v novom dvumernom massive v sootvetstvii s ranee opredelennumi intervalami. Zatem poscitat' kolichestvo elementov v kajdom intervale i summu znachenij v kajdom intervale.
Zaranee ogromnoe spasibo!
Задача не совсем понятна.
Например какова размерность массивов?
И по какому принципу формируется второй массив?
Допустим u имеет размерность M
Тогда второй массив напр. B имеет размерность Mx50?
И если значение u[1]-u[2] попадает в 4й интервал, тогда B[1,4] := u[1]-u[2]?
А если u[1] = 1, а u[2] = -1? Тогда разность = 2 и она не попадает ни в один интервал.
Боюсь твой препод сам не понимает эту задачу :)
Например какова размерность массивов?
И по какому принципу формируется второй массив?
Допустим u имеет размерность M
Тогда второй массив напр. B имеет размерность Mx50?
И если значение u[1]-u[2] попадает в 4й интервал, тогда B[1,4] := u[1]-u[2]?
А если u[1] = 1, а u[2] = -1? Тогда разность = 2 и она не попадает ни в один интервал.
Боюсь твой препод сам не понимает эту задачу :)
Цитата:
Originally posted by Mоngооsе
Задача не совсем понятна.
Izvinite, chto ob'ysnila ne sovsem yasno.
Например какова размерность массивов?
Pervui massiv odnomernui, vtoroi dvumernui A [50, 50], luche imet' eshe i B[50,50];
И по какому принципу формируется второй массив?
Vtoroi (dvumernui massiv) formiruetsya po sleduiushemu prinzipu: znacheniya (u-u[i+1]) zapisuvautsya v yacheiku, gde nomer stroki eto round(u*50), a nomer stolbza - eto round(u[i+1]*50);
Допустим u имеет размерность M
Тогда второй массив напр. B имеет размерность Mx50?
И если значение u[1]-u[2] попадает в 4й интервал, тогда B[1,4] := u[1]-u[2]?
net, na znachenie voobshe ne nado smotret'
А если u[1] = 1, а u[2] = -1? Тогда разность = 2 и она не попадает ни в один интервал.
Paznost' popadaet v interval ne v zavisimosti ot znacheniya, a v zavisimosti ot u i u[i+1].
Боюсь твой препод сам не понимает эту задачу :)
Vot kak nado razbit' na intervalu i poscitat' kolichestvo znacheni v odinakovih intervalah:
var
u:[n]array of real;//znacheniya ot -1 do 1;
a:array [-25..25, -25..25] of real;
b:array [-25..25, -25..25] of real;
i,j,ii,jj:integer;
begin
for i:=-25 to 25 do
begin
for j:=-25 to 25 do begin
a[i,j]:=0;
b[i,j]:=0;
end;
end;
for ii:=0 to n-1 do
begin
for jj:=0 to n-1 do
begin
if ii<>jj then begin
a[round(u[ii]*50),round(u[jj]*50)]:= a[(round(u[ii]*50)),(round(u[jj]*50))]+1;//eto poschitalos' kolichestvo raznostei v odinakovix intervalax
end;
end;
end;
end;
Pomogite mne please summu raznostej poschiat', esli oni popadaiut v odin interval, to est'
if ((round(u[ii]*60))= (round(u[ii+1]*60))) and ((round(u[jj]*60))= (round(u[jj+1]*60)))
Spasibo!
Задача не совсем понятна.
Izvinite, chto ob'ysnila ne sovsem yasno.
Например какова размерность массивов?
Pervui massiv odnomernui, vtoroi dvumernui A [50, 50], luche imet' eshe i B[50,50];
И по какому принципу формируется второй массив?
Vtoroi (dvumernui massiv) formiruetsya po sleduiushemu prinzipu: znacheniya (u-u[i+1]) zapisuvautsya v yacheiku, gde nomer stroki eto round(u*50), a nomer stolbza - eto round(u[i+1]*50);
Допустим u имеет размерность M
Тогда второй массив напр. B имеет размерность Mx50?
И если значение u[1]-u[2] попадает в 4й интервал, тогда B[1,4] := u[1]-u[2]?
net, na znachenie voobshe ne nado smotret'
А если u[1] = 1, а u[2] = -1? Тогда разность = 2 и она не попадает ни в один интервал.
Paznost' popadaet v interval ne v zavisimosti ot znacheniya, a v zavisimosti ot u i u[i+1].
Боюсь твой препод сам не понимает эту задачу :)
Vot kak nado razbit' na intervalu i poscitat' kolichestvo znacheni v odinakovih intervalah:
var
u:[n]array of real;//znacheniya ot -1 do 1;
a:array [-25..25, -25..25] of real;
b:array [-25..25, -25..25] of real;
i,j,ii,jj:integer;
begin
for i:=-25 to 25 do
begin
for j:=-25 to 25 do begin
a[i,j]:=0;
b[i,j]:=0;
end;
end;
for ii:=0 to n-1 do
begin
for jj:=0 to n-1 do
begin
if ii<>jj then begin
a[round(u[ii]*50),round(u[jj]*50)]:= a[(round(u[ii]*50)),(round(u[jj]*50))]+1;//eto poschitalos' kolichestvo raznostei v odinakovix intervalax
end;
end;
end;
end;
Pomogite mne please summu raznostej poschiat', esli oni popadaiut v odin interval, to est'
if ((round(u[ii]*60))= (round(u[ii+1]*60))) and ((round(u[jj]*60))= (round(u[jj+1]*60)))
Spasibo!
Может это? Задача все еще не на 100% понятна... :)
Код: