Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Интересные и занимательные задачи по программированию > Олимпиадные задачи на делфи

Автор: ahito1 7.11.2008, 20:36

Доброго времени суток, Всем!
Нужно решить олимпиадные задачи, нет разницы на каком языке паскаль/делфи/си. Я решил делать на делфи, но возник вопрос, в том, где найти такие алгоритмы для решения этих задач, кодить та я умею, а вот с алгоритмами к этим задачкам проблемы, купил я печатную книгу "Алгоритмы и программы" но там совсем другое smile

, попомогите пожалуйста.
Задачи в файле:

Автор: Samhein 12.11.2008, 19:47

Дельфи. Для работы с файлами испозовал memo. Задание номер 1 третьего этапа.

Код


var
i,j,k,kolvo,p3:integer;
s:string;
mas:array of integer;
begin
memo1.lines.LoadFromFile('train.inp');
setlength(mas,StrToInt(memo1.lines.Strings[0]));
s := memo1.lines.Strings[1];
i := 0;
k := StrToInt(memo1.lines.Strings[0]);
while i <= k do
begin
  if pos(' ',s) <> 0 then
  begin
  mas[i] := StrToInt(copy(s,1,pos(' ',s)-1));
  delete(s,1,pos(' ',s));
  end;
inc(i);
end;
kolvo := 0;
j := 1;
while j <> 0 do
begin
i := 1;
j := 0;
while i <= k  do
begin
  if mas[i-1] > mas[i] then
  begin
  j := 1;
  kolvo := kolvo + 1;
  p3 := mas[i-1];
  mas[i-1] := mas[i];
  mas[i] := p3;
  end;
inc(i);
end;
end;
memo1.lines.Text := IntToStr(kolvo);
memo1.lines.SaveToFile('train.out');
end;

Автор: Voledy 12.11.2008, 22:22

Цитата(ahito1 @ 7.11.2008, 20:36)

, попомогите пожалуйста.
Задачи в файле:

читай книжки по дискретке... smile

могу дать пару ссылок интерестных...

http://informatics.mccme.ru/
http://rain.ifmo.ru/cat/view.php/vis
http://www.contester.tsure.ru/

тут есть все чтобы успешно прграмить!!!... осталось тока вкл. соображаловку!!!... smile

Автор: Avers 13.11.2008, 10:16

Ищи Кормана "Алгоритмы. Построение и анализ". В инете она есть, доступная для скачивания - погугли

Добавлено через 55 секунд
Это если всерьез хочешь спортивным кодингом заняться. А если нет - забей на все это smile

пока не поздно

Автор: Silent 24.11.2008, 19:12

Со школьной что ли олимпиады задачи-то? Не особо и мощные кстати... Алгоритмы:
1) комбинаторика, подсчет количества сочетаний
2) перебор
3) динамика
4) сортировка массива за наименьшее количество обменов соседних элементов
5) динамика
6) не совсем понял, предполагаю что перебор с возвратом
7) разложение на множители, теория чисел, решетом Эратосфена
8) динамика