IPB


Бесплатные VPN сервера

Здравствуйте, гость ( Вход | Регистрация )

> Внимание!

Задавая вопрос, обязательно укажите свой логин, домен и скрипт, которых он касается.

>> !!Ответы на 90% вопросов здесь!! <<


Правила хостинга | Общие ошибки новичков | Поиск

 
Тема закрытаНачать новую тему
СРОЧНО! Программист на Pascal, Вопрос жизни и отчисления
Горбушка
сообщение 15.6.2011, 12:45
Сообщение #1


Ректор
**********

Группа: Пользователи
Сообщений: 8994
Регистрация: 3.3.2008
Из: Москва/Россия
Пользователь №: 42
Домен: m-v-l.org


Срочно требуется программист на Pascal.

Задача не сложная, институтская... Вопрос сдачи экзамена... Сам не напишу за незнанием языка... (не мне сдавать)

Кто может помочь - отпишитесь в теме. СРОЧНО!!!

Из того, что знаю - требуется знание объектов.

Задание:
Цитата
Оценить минимальное количество денег внутри копилки,зная её вес без монет,вес с монетами и вес монет каждого типа.
Реализовать требуется с использованием объектов.


--------------------
Мы - анононим. Имя нам - Легион. Мы не прощаем. Мы не забываем. Ждите нас.
Перейти в начало страницы
 
+Цитировать сообщение
lordok
сообщение 15.6.2011, 14:23
Сообщение #2


Школьник
*

Группа: Пользователи
Сообщений: 1
Регистрация: 15.6.2011
Пользователь №: 3723



пришли на мыло, посмотрю
Перейти в начало страницы
 
+Цитировать сообщение
Harconen
сообщение 15.6.2011, 15:12
Сообщение #3


Школьник
*

Группа: Пользователи
Сообщений: 1
Регистрация: 15.6.2011
Пользователь №: 3725
Домен: нету но Хочу


[quote name='Горбушка' date='15.6.2011, 12:58' post='38163']
Срочно требуется программист на Pascal.

Задача не сложная, институтская... Вопрос сдачи экзамена... Сам не напишу за незнанием языка... (не мне сдавать)

Сделаю . Обращайтесь Harconen@mail.ru, ICQ 9669822 , skype Igor.delphis
Перейти в начало страницы
 
+Цитировать сообщение
Горбушка
сообщение 16.6.2011, 1:02
Сообщение #4


Ректор
**********

Группа: Пользователи
Сообщений: 8994
Регистрация: 3.3.2008
Из: Москва/Россия
Пользователь №: 42
Домен: m-v-l.org


Задание:

Цитата
Оценить минимальное количество денег внутри копилки,зная её вес без монет,вес с монетами и вес монет каждого типа.


Реализовать требуется с использованием объектов.


--------------------
Мы - анононим. Имя нам - Легион. Мы не прощаем. Мы не забываем. Ждите нас.
Перейти в начало страницы
 
+Цитировать сообщение
Горбушка
сообщение 16.6.2011, 19:31
Сообщение #5


Ректор
**********

Группа: Пользователи
Сообщений: 8994
Регистрация: 3.3.2008
Из: Москва/Россия
Пользователь №: 42
Домен: m-v-l.org


Ну так что? Кто-нить сделает? С меня на пиво...


--------------------
Мы - анононим. Имя нам - Легион. Мы не прощаем. Мы не забываем. Ждите нас.
Перейти в начало страницы
 
+Цитировать сообщение
Count
сообщение 16.6.2011, 19:57
Сообщение #6


Кандидат наук
******

Группа: Пользователи
Сообщений: 559
Регистрация: 31.8.2010
Из: Брест
Пользователь №: 1769



ууу... не такой задание мне точно не под силу


--------------------
Перейти в начало страницы
 
+Цитировать сообщение
zolegz@inbox.ru
сообщение 17.6.2011, 14:28
Сообщение #7


Выпускник
**

Группа: Пользователи
Сообщений: 12
Регистрация: 17.6.2011
Пользователь №: 3738



вцелом задача не трудная. дело времени,
а писать в турбопаскале или можно в делфях?
и цена вопроса)

ася 217709468
или в лс
территориально Воронеж
мыло в нике
на любой из указанных вариантов связи необходимо отправить техзадание или просто задание или вообще формулировку условия в т.ч. указание предмета и методов рассчета(математических)
указать мин\макс сроки.
Перейти в начало страницы
 
+Цитировать сообщение
Горбушка
сообщение 17.6.2011, 14:30
Сообщение #8


Ректор
**********

Группа: Пользователи
Сообщений: 8994
Регистрация: 3.3.2008
Из: Москва/Россия
Пользователь №: 42
Домен: m-v-l.org


Не актуально, срок - сегодня...


--------------------
Мы - анононим. Имя нам - Легион. Мы не прощаем. Мы не забываем. Ждите нас.
Перейти в начало страницы
 
+Цитировать сообщение
Гад
сообщение 17.6.2011, 14:52
Сообщение #9


Охранник
********

Группа: root
Сообщений: 3514
Регистрация: 22.2.2010
Из: Казань
Пользователь №: 1113
Домен: for-us.nl


Код
program PiggyBank;

var
  k, k1, n, i: Integer;
  csm: LongInt;
  c, m: array[1..200] of Integer;

procedure Rec(i, ms: Integer; cs: LongInt);
var
  j: Integer;
begin
  if i > n then
    begin
      if (ms = k) and (cs < csm) then csm := cs;
      Exit;
    end;
  j := 1;
  while ms + j * m[i] <= k do
    begin
      Rec(i + 1, ms + j * m[i], cs + LongInt(j) * c[i]);
      Inc(j);
    end;
end;

begin
  Assign(Input, 'input.txt');
  Reset(Input);
  Read(k, k1, n);
  for i := 1 to n do
    Read(c[i], m[i]);
  Close(Input);

  k := k1 - k;
  csm := MaxLongInt;
  Rec(1, 0, 0);

  if csm = MaxLongInt then
    Write('No')
  else
    Write(csm);
end.

(c)


--------------------
Перейти в начало страницы
 
+Цитировать сообщение
Горбушка
сообщение 17.6.2011, 15:29
Сообщение #10


Ректор
**********

Группа: Пользователи
Сообщений: 8994
Регистрация: 3.3.2008
Из: Москва/Россия
Пользователь №: 42
Домен: m-v-l.org


Гад, ты прелесть (с)


--------------------
Мы - анононим. Имя нам - Легион. Мы не прощаем. Мы не забываем. Ждите нас.
Перейти в начало страницы
 
+Цитировать сообщение

Тема закрытаНачать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



RSS Текстовая версия Сейчас: 21.11.2019, 8:24