Множества и не только...

[kat297]

Дана матрица А размерностью [N х N] элементов целого типа из диапазона от -127 до 127. Не используя вспомогательных массивов и не изменяя порядка следования элементов в матрице А определите, есть ли хотя бы один столбец, содержащий элементы, входящие в какой-либо из оставшихся N-1 столбцов и если есть, то выведите на экран все такие столбцы



Не привыкла просить помощи, но все же, если не трудно...



Не хочу показаться наглой...но еще проблемки с этими задачами:

1) Дан текстовый файл литерных величин. Преобразовать исходный текстовый файл, удалив все слова, встречающиеся более 2 раз.

2)Составьте программу шифрования текстового сообщения. Можно использовать такой способ шифровки. Шифровальщик (пользователь) задает ключ шифровки - целое число, которое определяет величину смещения букв русского алфавита, например ключ =3, тогда в тексте буква “а” заменяется на “г” и т.д. Используются все буквы русского алфавита

3)В заданном предложении удалите каждое второе слово, а оставшиеся слова переверните. (Например, из текста “А роза упала на лапу азора” должен получиться текст “азор ан ароза”).



Не получается как-то...Или хотя бы намекните каким образом это можно сделать.. Заранее спасибо

[Stilet]

Составьте программу шифрования

Обрати внимание здесь:
http://www.programmersforum.ru/showthread.php?t=3209
на функцию Cesar в посте RSLoader'a.

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

http://www.programmersforum.ru/showt...369#post398369
Здесь я даю пример разбора строки в массив
Добавь что-то типа:

 for i:=1 to count do begin
  if i mod 2=0 then
   for j:= length(a[i]) downto 1 do write(a[i][j]); write(' ');
 end;

По идее это должно вывести слова в перевернутом виде, но не проверял...

[kat297]

Stilet, огромнейшее спасибо за помощь) Оооочень помогло)

Есть еще один маленький вопросик... Вроде написала.. Но сказали переделать. Вот условие:
Дан прямоугольный массив А[1..M,1..N]. Получить номера строк, элементы которых расположены в возрастающем порядке
Вот мой вариант:

var
 a:array [1..1000,1..1000] of integer;
 n,m:integer;
procedure vvod(x,y:integer);
 var
  i,j:integer;
begin
 randomize;
 for i:=1 to x do
 begin
  for j:=1 to y do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:5);
   end;
  writeln;
 end;
end;

procedure poisk;
 var
  i,j,s:integer;
begin
 for i:=1 to n do
 begin
  s:=0;
  for j:=1 to n-1 do
     if (a[j,i])>(a[j+1,i]) then
   begin
    inc(s);
    write(a[j,i],' ',a[j+1,i],' ');
   end;
  if s<>0 then
   writeln(i);
 end;

end;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('n m=');
  readln(n, m);
  vvod(n, m);
  poisk;
  readln;
end.

Проблема в том, что он сравнивает и выводит 2 соседних числа, т.е. если рядом стоят 3 числа удовлетворяющие условию, то выводит пару 1,2 и 2,3, а должно 1,2,3. Вроде надо добавить цикл.. С ним проблемы

[Stilet]

Я бы делал так:

  var
        a:array [1..1000,1..1000] of integer;
        ns:array[1..1000] of boolean;
        i,j:integer;
        x,y:integer;
begin
 x:=5;y:=5;
 for i:=1 to x do begin ns[i]:=true;
  for j:=1 to y do begin
    a[i,j]:=random(100);
    write(a[i,j]:5);

    if (j>1) and  ns[i] and (a[i,j]<a[i,j-1]) then
      ns[i]:=false;
   end;
  writeln;
 end;
 writeln;
 for i:=1 to x do if ns[i] then write(i:5);
  { TODO -oUser -cConsole Main : Insert code here }
  readln;
end.

Смысл тут в том что в допмассиве запоминается false если в последовательности появляются радомстоящие элементы не по возрастанию.