VPF::Олимпиадные задачи на делфи - Форум программистов

ahito1

Дата 7.11.2008, 20:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 20.8.2007

Репутация: нет
Всего: -1

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

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

Это сообщение отредактировал(а) ahito1 - 7.11.2008, 22:27

Присоединённый файл ( Кол-во скачиваний: 71 )

________.doc 77,00 Kb

Samhein

Дата 12.11.2008, 19:47 (ссылка)

(нет голосов)

Загрузка ...

Башзэфашовец

Профиль
Группа: Участник
Сообщений: 282
Регистрация: 27.6.2005

Репутация: нет
Всего: 3

Дельфи. Для работы с файлами испозовал 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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 3.5.2008

Репутация: нет
Всего: нет

Цитата(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 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 20.6.2008
Где: 26rus

Репутация: нет
Всего: нет

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

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

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

--------------------

Born to be wild

Silent

Дата 24.11.2008, 19:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 252
Регистрация: 3.10.2006

Репутация: 1
Всего: 9

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Интересные и занимательные задачи по программированию \| Следующая тема »