Паскаль. Векторы.

[koston]

1. Выведите на экран все числа, которые являются полными квадратами в диапазоне от n1 до n2.



2. В заданном векторе необходимо поменять местами первый элемент с последним, второй с предпоследним и т.д.



спасибо

[nikleb]

Как понять полными квадратами? Вторая программа это линейный масив? Опиши подробней

[Stilet]

Идеи есть?

[koston]

вторая задача-линейный массив

полные квадраты, это такие числа, например 9, т.е. 3*3=9, или 4*4=16, 5*5=25....

[pu4koff]

1) что-то вроде:

for i := n1 to n2 do
  if (sqrt(i) mod 1 = 0) then writeln(i);

2) прмиерно так:

const
  N = 10;
var
  a: array [1..N] of integer;
...
for i := 1 to N div 2 do
begin
  a[i] := a[i] xor a[N-i+1];
  a[N-i+1] := a[i] xor a[N-i+1];
  a[i] := a[i] xor a[N-i+1];
end;

[Serge_Bliznykov]

sqrt(i) mod 1

это ЖЕСТЬ!!!!!!!!! целый остаток от деления целого числа на 1 !?!? Рискну предположить, что это всегда будет ноль... ;-)))
да и не скомпилируется это...
Хотя алгоритм вполне рабочий!

правильно так:

var
  n1,n2,i  : integer;
  rr       : extended;
begin
  n1 := 5;
  n2 := 60;
  for i := n1 to n2 do begin
    rr := sqrt(i);
    if ( int(rr) = rr ) then writeln(i);
  end;
end.

ну n1,n2 надо вводить с клавы, разумеется..

[pu4koff]

о блин. оказываеца mod - остаток от деления целого на целое. Я думал ему пофиг че на че делить)
мой вариант даже не скомпилица. никогда модом не пользовался прост :-[

[koston]

во второй задаче переписал текст программы, но она отказывается работать, пишет :"error 36: BEGIN expected", в чем трабла?

[koston]

хелп ми плизззззз. срочно надо

[SNUPY]

Листинг в студию.
Рискну предположить, что выражение

во второй задаче переписал текст программы

в вашем [автор темы] сообщении означает, что взяли тупо откомпелировали код предложенный pu4koff:

  
const   
  N = 10;   
var   
  a: array [1..N] of integer;   
...   
for i := 1 to N div 2 do   
begin   
  a[i] := a[i] xor a[N-i+1];   
  a[N-i+1] := a[i] xor a[N-i+1];   
  a[i] := a[i] xor a[N-i+1];   
end;

Если да то, ваши [автор темы] знания паскаля минемальны. Бьюсь об заклад выделяется строка с троточием (или с For, если вы [автор темы] додумались удалить троеточие). Ну для решения проблемы вам [автор темы] нужно открыть лекции (если таковые имеются) и с большим вниманием прочесть тему, где рассказывается о синтаксисе или о теле программы в паксале.