помогиет решить задачу!! срочно, не могу зачет здать!
вот она:
Составьте прогу, проверяющую, можно ли, меняя местами элементы одномерного массива А, получить одномерный массив В

сортируешь оба массива, а потом поэлементам сравниваешь соответственные :
a[1] & b[1]
a[2] & b[2]
...
a[n] & b[n].
если пара не равна, то flag:=false => конец цикла проверки.

зы это естественно для массивов А и Б размерности N (одинаковой)

Я чуть тока шарю, но не понятно. Если можно, то поподробнее чуть об алгоритме.

Выбери любой из методов сортировки отсюда: FAQ: Методы сортировки
, отсортируй по возрастанию оба массива и сравнивай числа с одинаковыми индексами... Что неясно?

Сортируешь оба массива по возрастанию(убыванию) на твой вкус, естественно оба или так или так.

далее делаешь примерно так :

var

{необходимые переменные}
 ...
 flag:boolean;

begin
...
   flag:=false;
   i:=1;
   while(i<=n)and(not(flag)) do
    begin
        if not(a[i]=b[i]) then
         flag:=true;
        inc(i);
    end;

    if not(flag) then writeln('Yes')
     else writeln('No');

понял как сортировать по возростанию( в тетрадке нашел!!)Но как их сравнивать не очень...

flag := true;
for i := 1 to n do
  flag := flag and (a[i] = b[i]);

if flag then writeln('Можно') else writeln('Нельзя');

т.е я сортирую потом добавляю
ag := true;
for i := 1 to n do
flag := flag and (a[i] = b[i]);

if flag then writeln('Можно') else writeln('Нельзя');
и все

это короче, но и тут лучше while использовать, ведь вовсе не обязательно нужен полный просмотр массива, согласись ;)

а что обозначают:
flag := true;
flag:=false;
а то потом препод спрашивать будет

Нет, не соглашусь... Что, из For нельзя выйти как только Flag = False? Можно. Так почему While? У тебя же все-таки фиксированное количество проходов...

Да можно, например используя exit... но врядли препод это оценит, они этого не любят, покрайней мере в таких простых ситуациях, где он (exit) вовсе необязателен. ;)

а по поводу фиксировонного числа, если у нас в массиве пара тысяч элементов, а уже первая пара не сошлась, то все что будет происходить дальше бессмысленно, так что, электрик, либо exit сувай, либо цикл через while органиовывай :yes:

klem4
специально для тебя:

flag := true;
for i := 1 to n do begin
  flag := flag and (a[i] = b[i]);
  if not flag then break;
end;

if flag then writeln('Можно') else writeln('Нельзя');

и сколько сравнений тебе понадобится? И где ты видел Exit? Кстати, мне как-то все равно, что преподы любят, а что нет.

и Как лучше закончить?

короче посидел подумал и вот задача:

Program laba7;

uses
 crt;

type
 matr=array [1..7,1..7] of real;

var
 ma:matr;
 n,m:byte;
 pol:integer;

Procedure Zastavka;

const
x=40;
y=10;
c=9;
var
 i:byte;

Begin
 clrscr;
 gotoxy(x,y);
 textcolor©;
 write('Программа');
 gotoxy(wherex-21,wherey+1);
 write('‚Вычисление математических функций');
 gotoxy(wherex-26,wherey+1);
 textcolor(15);
 write('Автор: Макаев А,Р,');
 textcolor(15);
 for i:=1 to 2 do
 delay(65535);
 clrscr;
end;


Procedure xread(var ma:matr; var n,m:byte);

var
 i,j:byte;
Begin
 Writeln('Vvedite kolichestvo strok');
 readln(n);
 Writeln('Vvedite kolichestvo stolbcov');
 readln(m);
 for i:=1 to n do
  begin
   Writeln('Vvedite ',i,' stroku');
   for j:=1 to m do
   read(ma[i,j]);
  end;
end;

Function pol1(ma:matr;n,m:byte):integer;

Var
i,j:byte;
pol2:integer;

begin
 pol2:=0;
 for i:=1 to n do
  for j:=1 to m do
   if ma[i,j]>=0 then
     pol2:=pol2+1;pol1:=pol2;
end;


BEGIN
  zastavka;
  Xread(ma,n,m);
  pol:=pol1(ma,n,m);
  writeln ('Количество положительных элементов ',pol);
  readln;
  readln;
end.

А ты в курсе, что она неверно оформлена? У тебя ее ни один преподаватель не примет Вот из-за этого:

  pol:=pol1(ma,n,m);

а pol - глобальная переменная... Нехорошо. Тогда зачем делать это функцией? Оформи, как процедуру.

ИЗВИНИТЕ СКИНУЛ НЕ ТУ ЗАДАЧУ:( ТА ЗАДАЧАЧА ВЫДАЕТ СНАЧАЛА ЗАСТАВКУ ,А ПОТОМ СЩИТАЕТ В ВАШЕЙ МАТРИЦЕ ЧИСЛО ПОЛОЖИТЕЛЬНЫХ ЭЛЕМЕНТОВ, ПРИЧЕМ ВСЕ СДЕЛАННО ЧЕРЕЗ ПРОЦЕДУРЫ),А ЭТО ВОТ ТА САМААЯ ЗАДАЧА!!!





KLEM4,А ТЫ ГОВОРИШЬ, ЧТО САМ НЕ РЕШАЮ....ПРОСТО Я ЭЛЕКТРИК В ПРЯМОМ СМЫСЛЕ УЧУСЬ НА ЭЛЕКТРОЭНЕРГЕТИЧЕСКОМ, И НЕ ШАРЮ В ВАШИХ ЯЗЫКАХ, ДА ЕЩЕ ПРЕПОД, НЕ ДАЙ БОГ ВАМ ТАКОГО.... ВОТ И ДОСТАЮ ВАС, ИЗВИНИТЕ КОНЕЧНО....

Вот только кричать не надо...

Ну и смысл? Зачем тебе 2 одинаковые процедуры ввода массива и 2 одинаковые процедуры сортировки? А если у тебя будет 4 массива? Copy+Paste? Для того она и процедура, чтобы выполнять повторяющуюся последовательность действий, а ты при первом же повторе определяешь вторую процедуру Так делай совсем без процедур...

а мне и надо функцией

Ну, тогда и используй функцию по прямому назначению !

...
BEGIN
  zastavka;
  Xread(ma,n,m);
  writeln ('Количество положительных элементов ', pol1(ma,n,m));
  readln;
  readln;
end.

Люди, по поводу "сравнения элементов массивов с одинаковыми индексами".
А разве нельзя просто использовать стандартные операции сравнения массивов (if a=b then...)? Там ведь наверно используется алгоритм сравнения до первой неравной пары. К чему вручную мучится?

:D
Интересно, где это они "стандартные"?
Попробуй, запусти:

type
  arrType = array[1 .. 4] of integer;

const
  a: arrtype = (1, 2, 3, 4);
  b: arrtype = (1, 2, 3, 5);

begin
  writeln( a = B );
end.

Что видишь на экране?

Упс... Извинтиляюсь. Это я перепутал с ( a:=B ). Блин, во всех учебниках пишут "Не забудьте об этой операции!". Вот я и не забыл! :-)