Оч-оч нада! Плиз!, Задачи по Паскалю Опции

[†M@MOHT^eHoK†]

Ребят, оч нада! Воть задачки по Паскалю... Ну никак решить не могу! Пж, мне до послезавтра сдать надо! И бесплатно! А я потом свои решённые выложу на сайте! Воть! Мне зачёт светит, а без задач - никак! Заранее спасибо!

1. Дан одномерный целочисленный массив B(n) и натуральное число n. Для каждого из элементов массива B выяснить, сколько раз оно входит в эту последовательность. Результат представить в виде:
"a1 встречается k1 раз" При печати не должно быть повторяющихся строк.

2. Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке: все звонкие согласные буквы, которые входят более чем в одно слово; все гласные буквы, которые не входят более чем в одно слово.

3. Дана строка символов и число N. Произвести ротацию строки на N символов (например: если исходная строка равна '1x2y3z4a', а N=3, то результирующая строка будет равна ' z4a1x2y3').

...и самое главное:

4. Два натуральных числа называются "дружественными", если каждое из них равно сумме всех делителей другого, за исключением его самого (таковы, например, числа 220 и 284). Напечатать все пары "дружественных" чисел, не превосходящих заданного натурального числа.

5. Элемент двумерного массива называется локальным минимумом, если он строго меньше всех имеющихся у него соседей. Подсчитать количество локальных минимумов заданной матрицы размером NxN найти максимум среди всех локальных минимумов.

Я надеюсь на вашу помошь! (И лучше сразу удалите темку, если решаете платно!)

[Lapp]

Я помогу, причем по каждому пункту. Хватит ли тебе этого - твоя проблема.

1. Дан одномерный целочисленный массив B(n) и натуральное число n. Для каждого из элементов массива B выяснить, сколько раз оно входит в эту последовательность. Результат представить в виде:
"a1 встречается k1 раз" При печати не должно быть повторяющихся строк.

Примерно так:

for i:=1 to n do begin
  k:=0;
  for j:=1 to n do if b[i]=b[j] if j<i then break else Inc(k);
  if k>0 then WriteLn('Number ',b[i],' repeated ',k,' times')
end;

2. Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке: все звонкие согласные буквы, которые входят более чем в одно слово; все гласные буквы, которые не входят более чем в одно слово.

Про звонкие согласные:

Заводишь множество звонких согласных Z.
Цикл по алфавиту.
  Если буква L в Z, то проходишь по тексту и ищешь L.
    Если нашел - дальше ищещь запятую.
    Если нашел - дальше снова ищешь L.
    Если нашел - заканчиваешь просмотр текста и печатаешь L.

Про гласные можно для разнообразия сделать иначе (если, конечно, текст лежит в строке):
Заводишь множество гласных G.
Цикл по алфавиту.
Если буква L в G, то ...

  t:=s;
  Delete(t,1,Pos(L));
  Delete(t,1,Pos(',');
  if Pos(L,t)=0 then Write(L)

3. Дана строка символов и число N. Произвести ротацию строки на N символов (например: если исходная строка равна '1x2y3z4a', а N=3, то результирующая строка будет равна ' z4a1x2y3').

Типа вот так:

  t:=Copy(s,Length(s)-n+1,n);
  Delete(s,Length(s)-n+1,n);
  Insert(t,s,1);

4. Два натуральных числа называются "дружественными", если каждое из них равно сумме всех делителей другого, за исключением его самого (таковы, например, числа 220 и 284). Напечатать все пары "дружественных" чисел, не превосходящих заданного натурального числа.

Недавно решали что-то про дужественные числа, тебе должно помочь. Поищи на дружественн*

5. Элемент двумерного массива называется локальным минимумом, если он строго меньше всех имеющихся у него соседей. Подсчитать количество локальных минимумов заданной матрицы размером NxN найти максимум среди всех локальных минимумов.

Ну.. можно так:

m:=0;
for i:=1 to n do for j:=1 to n do begin
  c:=a[i,j];
  if ((i=1)or(c<a[i-1,j]))and((i=N)or(c<a[i+1,j]))and((j=1)or(c<a[i,j-1]))and((j=n)or(c<a[i,j+1])) then begin
    if (m=0)or(c>x) then x:=c;
    Inc(m)
  end
end;

Мне кажется, я тебе достаточно помог. Попробуй теперь извлечь из этого пользу.. Только учти: я ничего не проверял, писал прямо в ответ. Ошибки могут быть..