Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи по информатике\программированию

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2

Открыть новую тему     Написать ответ в эту тему

MOFA



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
VladislavTim
Это  с одного Индийского сервера, они каждый год контест устраивают, но как я понял учавствовать там не стоит. Там все ужасно устроено, ответ на Submit задачи не приходит, Board только на первых 100 команд. Тоесть пока в первую сотню не попадеш, результата своего не увтдиш.

Всего записей: 20 | Зарегистр. 29-01-2005 | Отправлено: 20:49 21-02-2005
FuzzyLogic



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
MOFA эту задачу, пусть вам VladislavTim решает, он очень любит задачи на динамическое программирование

Всего записей: 1920 | Зарегистр. 27-07-2002 | Отправлено: 02:12 22-02-2005
VladislavTim



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
FuzzyLogic
Не вопрос

Всего записей: 298 | Зарегистр. 19-12-2003 | Отправлено: 20:17 22-02-2005
Stravinskiy



Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Помогите решить задачу:
Даны два текстовых файла нужно слить их в один с условием:строчки должны идти через одну....нужен алгоритм решение этого

Всего записей: 24 | Зарегистр. 03-02-2006 | Отправлено: 19:50 25-04-2006
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
А в чём сложность?
Припустим, что файлы одинакового размера (в смысле кол-ва строк)
Открываем эти два файла на чтение, а третий на запись.
Теперь цикл
Читаем строку с первого файла, пишем в третий.
Читаем строку с второго файла, пишем в третий.
И так до конца

----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 20:31 25-04-2006
Kostya1991

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть вот такое задание на Pascal:

Код:
 
Значение переменной С, вычисленное в программе, написанной на языкеPascal,
 
var K,C:integer;  
begin
     C:=0;
     forK:=l to 1000 do
          if (K mod 30 <> 0) and (K mod 70 <> 0) and (K mod 42 = 0) then C:=C+1;  
     writeln('C=',C)  
end.
равно___.
 

 
Я ввёл этот код в Pascal. Но когда я жму исполнить(выбираю Run - Run) ничего не происходит. Скажите это проблема в моём паскале или в программе?
Спасибо.
 
 
 

Всего записей: 13 | Зарегистр. 16-11-2005 | Отправлено: 19:31 10-03-2007 | Исправлено: Kostya1991, 00:00 11-03-2007
rain87



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Kostya1991
какая-то лажа написана у тебя. если исправить
Код:
var K,C:integer;  
begin  
     C:=0;  
     for K:=1 to 1000 do
          if (K mod 30 = 0) and (K mod 70 = 0) and (K mod 42 = 0) then C:=C+1;
     writeln('C=',C)  
end.
так, то результат
Код:
C=4

Всего записей: 1744 | Зарегистр. 21-06-2006 | Отправлено: 20:10 10-03-2007
Kostya1991

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Там ответ 19.
Вот сфоткал задание:
http://up.li.ru/image/?id=271324
Там знак не =, а <>.
Ой, только сейчас сам заметил, неправильно написал. Сейчас поправлю.
 
P.S. Только всё равно не считается у меня...

Всего записей: 13 | Зарегистр. 16-11-2005 | Отправлено: 23:58 10-03-2007
Andrey_Wlodimirovich



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ребята, приятель попросил помочь: ему дали по информатике задание (факультет экономический), нужно составить блок схему, в оригинале задание выглядет так:
 

Цитата:
Требуется вычислить расход фонда зарплаты по цеху , код которого вводится по запросу. Структуру записей файла дана п.П.13. Записи файла упорядочены по:  
П13 реквизитам : 2,1 и 5
П13.1 Потребность в зарплате ОПЛ
П13.2 Имя: ZARPLATA  

 
Структура  записей базы данных:
№ п/п Поле записи Имя данного Тип Длина (вид)    
1 Код изделия IZDEL_ZP C 10    
2 Код цеха CEH_ZP 2    
3 Кол-во изделий KOL_IZD_ZP 6,2    
4 З/п на 1 изделие ZPLATA_ZP 7,2    
5 Месяц выпуска MESYAC_ZP 2

 
Контрольный пример:
IZDEL_ZP CEH_ZP KOL_ZP KOL_IZD_ZP MESYAC_ZP    
ГДК 20 100 10 01.06.2006    
ГДК 30 100 10 02.06.2006    
ГДК 50 200 20 21.09.2006    
ВОД 60 150 150 30.12.2006    
ВОД 20 160 16 11.01.2007    
ВОД 40 200 20 13.04.2007

Всего записей: 1773 | Зарегистр. 15-11-2003 | Отправлено: 17:39 17-05-2007 | Исправлено: Andrey_Wlodimirovich, 17:54 17-05-2007
ShamaN



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Помогите с алгоритмом.
 
Есть заготовки веревок по метру.  
Есть входные данные: кол. и размер необходимых отрезков, тоесть массив чисел 1...N
 
Необходимо найти варианты оптимальной разрезки веровок на заданные отрезки. т.е. потратив наименьшее колличество веревок.
 
например, необходимо иметь куски
 
- 10 штук по 10 см
- 10 штук по 60
- 10 штук по 30
 
результат должен быть: 10 штук по 60+30+10

Всего записей: 1297 | Зарегистр. 23-09-2004 | Отправлено: 10:08 17-06-2008
StrelokAndrey

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Столкнулся с такой задачей:
 
сколько существует способов раскроить 100 метров проволоки на куски по 2, 5, 20 и 50 метров
 
Может подскадет кто как её решить? Заранее спасибо!

Всего записей: 2 | Зарегистр. 22-11-2009 | Отправлено: 23:02 22-11-2009
ya_Mickey

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
StrelokAndrey
Если тупо, то как-то так: (осторожно, псевдокод!)
 

Код:
 
samples : array = {2,5,20,50};
currentCase: stack;
 
proc cutRemainLength( remainLength, curSamplePtr )
curSamples : array = {samples[curSamplePtr:]}
beg
  if remainLenght == 0 then
     printCase(currentCase);
     return;
  end if
 
  foreach samplePtr in curSamples
  beg
    if remainLength < samplePtr then // данный случай не подходит.
       return;
    else  
       currentCase.push(samplePtr);
       cutRemainLength(remainLength-samplePtr, indexof(samplePtr));
  end if
end proc
 

 
Сорри, что не по теме.

Всего записей: 59 | Зарегистр. 14-05-2008 | Отправлено: 08:09 23-11-2009 | Исправлено: ya_Mickey, 08:16 23-11-2009
StrelokAndrey

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ой, а это на каком языке?

Всего записей: 2 | Зарегистр. 22-11-2009 | Отправлено: 20:46 23-11-2009
ya_Mickey

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
StrelokAndrey
Сказано же - псевдокод. Переводи на какой хочешь.

Всего записей: 59 | Зарегистр. 14-05-2008 | Отправлено: 06:37 24-11-2009
KillDead

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем добрый день.  
Препод по программированию задал задачку. Что-то никак не соображу, как решается.  
Задача по Динамическим структурам данных, по паскалю в частности. Хотя жёстко к языку не привязана. Так что интересует алгоритм решения а не реализация . Вообще задача вроде как стандартная и видел много вопросов по ней. Но вот  решения, которое подходит мне не нашёл.
Есть однонаправленный список, который может быть зациклен  
Задание такое – определить зацикленный ли список?
Данные и условия:
   
Список может быть зациклен не только на предыдущий элемент.  Т.е решение запустить 2 прохода по списку с разным шагом в 2 не подходит.
Перезаписывать, добавлять что-либо в самом списке нельзя. Т.е добавить флаг-" здесь мы были" нельзя.
Создавать переменные, которые зависят от количества элементов в цикле нельзя. Т.е создать ещё список с пройденными адресами нельзя.
Количество элементов списка (N) неизвестно. И максимальное количество проходов по списку, за которое точно можно будет сказать, что список не зациклен (или зациклен), не должно превышать N. Т.е тупой поиск в пройденных элементах использовать нельзя.  
Вродь всё)  

Всего записей: 140 | Зарегистр. 13-08-2006 | Отправлено: 13:52 03-12-2009 | Исправлено: KillDead, 23:36 06-12-2009
FuzzyLogic



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KillDead
Если кол-во проходов по списку N (кол-во элементов в списке), как вы сказали, то что мешает просто пробежать начиная с каждого элемента N+1 шагов (или до конца списка или пока не упрётесь в элемент откуда начинали) и посмотреть вернётесь ли вы в точку откуда начинали данный проход.

Всего записей: 1920 | Зарегистр. 27-07-2002 | Отправлено: 20:03 03-12-2009 | Исправлено: FuzzyLogic, 20:06 03-12-2009
KillDead

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Если кол-во проходов по списку N (кол-во элементов в списке), как вы сказали, то что мешает просто пробежать начиная с каждого элемента N+1 шагов (или до конца списка или пока не упрётесь в элемент откуда начинали) и посмотреть вернётесь ли вы в точку откуда начинали данный проход.

Спасибо за ответ. Как я понял, ваш способ- просто пробежать N раз и посмотреть на что ссылается элемент? Только
Цитата:
Количество элементов списка (N) неизвестно.

Или я неправильно понял?
Я уже и не знаю что делать. Мож что-нить связанное с указателями и памятью тут?

Всего записей: 140 | Зарегистр. 13-08-2006 | Отправлено: 22:40 03-12-2009
pavlovigor

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день помогите написать программу (С++) по переводу римских цифр в арабские с коментариями

Всего записей: 2 | Зарегистр. 25-03-2011 | Отправлено: 15:17 15-05-2013
miwa

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
pavlovigor
Ссылка

Всего записей: 455 | Зарегистр. 10-10-2004 | Отправлено: 15:59 15-05-2013
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи по информатике\программированию


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru