Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.11.2010, 21:08   #1
Max</C/>im
 
Регистрация: 26.09.2010
Сообщений: 3
По умолчанию Задачи по Паскалю (((

помогите решить задачи:
1)Объединить 2 упорядоченных массива по возрастанию в 1 массив упорядоченный по возрастанию.

2)Найти отрезок массива максимальной длины 1 число которого равно последнему,2-предпоследнему.Найти длину этого отрезка.

В одномерном массиве найти число повторяющейся максимальное число раз

Заранее благодарен!!

P.S Ребят очень нужна помощь! У меня послезавтра пробник экзамена((

Последний раз редактировалось Max</C/>im; 30.11.2010 в 22:35.
Max</C/>im вне форума Ответить с цитированием
Старый 30.11.2010, 23:08   #2
rubius2008
Форумчанин
 
Регистрация: 19.03.2010
Сообщений: 409
По умолчанию

1. Задача
a, b - упорядоченные массивы, n, m - их размерности, с - итог.
Код:
...
k:=0; i:=1; j:=1;
while (k<m+n) do begin
  if j>m then for x:=i to n do begin
     k:=k+1; c[k]:=a[x];
  end
  else if i>n then for x:=j to m do begin
     k:=k+1; c[k]:=b[x];
  end
  else if a[i]>b[j] then begin
    k:=k+1; c[k]:=b[j];
    j:=j+1;
  end
  else if a[i]<=b[j]then begin
    k:=k+1; c[k]:=a[i];
    i:=i+1;
  end;
end;
...
2. Задача не совсем понятна
3. Решаема, но лень мне думать, так что сам думай.
Есть вопросы, пишите в ЛС.
rubius2008 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
задачи по паскалю!!!! *Марусенька* Помощь студентам 13 15.01.2010 00:22
Задачи по паскалю kseon Помощь студентам 1 06.12.2009 22:09
2 задачи по Паскалю Павел Я Помощь студентам 27 18.03.2009 20:27
Задачи по паскалю. Lavron Паскаль, Turbo Pascal, PascalABC.NET 20 05.01.2009 15:34
Задачи по паскалю. Никуся Паскаль, Turbo Pascal, PascalABC.NET 13 28.12.2008 21:33