2 задачки на массивы

[абвгд]

Помогите решить =)
Как во второй задаче выделить нужные элементы матрицы?

[Alex11223]

И как помочь? Что конкретно не получается?
Если вы не хотите ничего рассказать\показaть, кроме копипаста задания, то это называется не "помогите решить", а "решите за меня" )

[абвгд]

Как во второй задаче выделить нужные элементы матрицы?
И как выделить в первой задаче индексы массива, которые должны быть в квадрате?
Так? for i:=1 to sqrt(n) do

[Rin]

Эх, никто не хочет учиться!)

// первая прога
const n=100;
var
  mas:array [1..n] of integer;
  s:string;
  i,j:integer;
  veshestvennoe:boolean;
begin
  for i:=1 to n do
  begin
    veshestvennoe:=false;
    mas[i]:=random(1000);
    s:=FloatToStr(sqrt(mas[i]));
    for j:=1 to length(s) do
       if s[j]='.' then
       begin    
           veshestvennoe:=true;
           break;
       end;
       if not veshestvennoe then writeln(mas[i]);
  end;

end.

Вместо замудренного алгоритма с использования строки можно написать так:

if int(sqrt(mas[i]))=sqrt(mas[i]) then writeln(mas[i]);

[Rin]

//вторая прога
const n=7;
var
summa:extended;
m:array [1..7,1..7] of double;
i,j :integer;
..........
function sum(var chislo,ii,jj:integer):extended;
var z,g:integer;
begin
  result:=0;
  if chislo<>0 then
  begin
     g:=(n div ii)+1;
     for z:=0 to chislo do
     begin
          result:=result+m[ii,g];
          g:=g+1;
     end;
     g:=n div ii;
     for z:=0 to chislo-1 do
     begin
          result:=result+m[ii,g];
          g:=g-1;
     end;     
  end
  else
  result:=m[ii,jj];
........
begin
...........
//заполнение матрицы
//ещё что-нибудь твое
......
//а теперь вычисление  суммы
summa:=0;
for i:=1 to n do
for j:=1 to n do
if ((n div i)+1)<=i then summa:=summa+sum(i-1,i,j)
  else summa:=summa+sum(n-i,i,j)

Только тут могут быть косяки, т.к. в Delphi не проверял. В уме набрасывал код.

[абвгд]

А для паскаля же пойдёт?)

[MyLastHit]

А для паскаля же пойдёт?)

На чем по твоему написаны данные программы?

[Rin]

Прошу прощения за вторую программу. Ну и огород я нагородил там.
Проверил на delphi(интересно стало и заняться нечем было) и очумел от заоблачных цифр))).
Долго ломал голову над выборкой элементов и наконец придумал. Вот рабочая прога.

//вторая прога
const n=7;
var
summa:extended;
m:array [1..n,1..n] of double;
i,j :integer;


begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
m[i,j]:=random(2);
write(m[i,j]:7:2);
end;
writeln;
end;
//а теперь вычисление  суммы
summa:=0;

  for i := -(n div 2) to (n div 2) do
  for j := abs(i) + 1 to n - abs(i) do
  summa := summa + m[i + (n div 2) + 1, j];


writeln;
writeln;
writeln(summa:9:7);

readln;
end.

[TinMan]

Сообщение от Rin

Эх, никто не хочет учиться!)

// первая прога
const n=100;
var
  mas:array [1..n] of integer;
  s:string;
  i,j:integer;
  veshestvennoe:boolean;
begin
  for i:=1 to n do
  begin
    veshestvennoe:=false;
    mas[i]:=random(1000);
    s:=FloatToStr(sqrt(mas[i]));
    for j:=1 to length(s) do
       if s[j]='.' then
       begin    
           veshestvennoe:=true;
           break;
       end;
       if not veshestvennoe then writeln(mas[i]);
  end;

end.

Вместо замудренного алгоритма с использования строки можно написать так:

if int(sqrt(mas[i]))=sqrt(mas[i]) then writeln(mas[i]);

Rin, не нужно проходить по всем элементам массива и выбирать по условию. Нужно пройтись только по полным квадратам:

  i:= 1;
  while Sqr(i)<=n do begin
    Writeln(s[i]);
    Inc(i)
  end;

Кстати, оба способа проверки условия спорны. Первый - потому что в стандартном Pascal нет функции FloatToStr (нужно подключать sysutils). Второй - может не сработать из-за точности. Хотя это маловероятно, но все же старайся избегать проверки на равенство для действительных чисел. Делай проверку неравенством модуля разности и малого эпсилон.

[Rin]

Только после того, как Ты поправил меня, я увидел, что не так понял задачу.
Мне почудилось, что нужно вывести не индексы полных квадратов, а числа в массиве, такие как :4, 9, 16, 25,..., 256 или 625, а если таких чисел в массиве нет, то ничего не будет на экране.
Вот я лошара))). Стыдно.

Делай проверку неравенством модуля разности и малого эпсилон

А это как?