Решение элементарной задачи.

[klaster]

Всех с прошедшим новым годом! Я студент, и мне нужно в очень короткий срок - до 10ого января - решить задачу. Сама она очень проста, я пытаюсь написать требуемое сам, но из-за неимения опыта я хочу сделать ее наверняка, с вашей помощью.

Итак, задача:

"Известна денежная сумма. Разменять ее купюрами 500, 100, 10 и монетой 2 руб., если это возможно."

Сказано писать во free pascal, так же прошу вас решить задачу просто - чтобы препод не сомневался, что я до седьмого пота решал ее, и пояснять каждое действие, это весьма важно.

Заплачу 100 рублей, надеюсь на вашу скорую помощь

[Z1000000]

Для всех реальных денежных систем ( в том числе и твоей) подходит жадный алгоритм. Сначала набираешь самыми крупными, потом помельче и до самых маленьких. Но вот как ты сумму 5 рублей будешь разменивать монетой в 2 рубля - это для меня загадка!

[Z1000000]

Program Monets;
const Monet : array[1..4] of Integer = (2,10,100,500);
var
 N,K,i : Integer;
 aM : array[1..4] of Integer;
begin
i := 4;
writeln ('Введите необходимую сумму :');
readln(N);
repeat
 begin
 K := N div Monet[i];
 if K <> 0 then aM[i] := K else aM[i] := 0;
 N := N mod Monet[i];
 i := i-1;
 end
until ((N = 0) or (i = 0));

if N = 0 then
 for i:=4 downto 1 do
  writeln ('Требуется ',aM[i],' монет достоинством ',Monet[i])
else
 writeln('Невозможно разменять');

readln;
end.

[klaster]

2 Z1000000

спасибо, сейчас прогоню ее, если все ок - скину на счет вмр

[klaster]

Total errors: 2
illegal character , compilation failed

[k0tone]

Total errors: 2
illegal character , compilation failed

всё работает, проверил!

[Z1000000]

Total errors: 2
illegal character , compilation failed

Не знаю, что у тебя за компилятор...
У меня прекрасно собирает. См.архив.

[klaster]

Вижу что прекрасно собирает, но в своей я все проверил - один в один, и все равно нет результата.

работаю с free pascal.

[Serge_Bliznykov]

спокойнее, спокойнее.
Держите себя в рамках, пожалуйста..

Сообщение от klaster

но в своей я все проверил - один в один, и все равно нет результата.

klaster, ну, рассказывай, и по подробней - какой у тебя компилятор, что делаешь, какие ошибки выдаются (если выдаются, конечно), что означает - "нет результата" ?...

[klaster]

Все работает, но я не знаю и не смогу объяснить:
- N, K, i - что это за целые значения? у меня есть догадки, но нужен точный ответ.
- aM[i] - что означает aМ?

по поводу остального имею представление, эти наверняка нелепые и глупые на ваш взгляд вопросы внесут целостность в понимание .

Рассказать подробно могу только историю о том, как меня весь семестр игнорировал препод, хотя я посещал все его пары, и теперь почти вся моя группа решает вторую задачу, а я не решил и первую, не получил зачета и вообще. Вы понимаете, жалкое зрелище.
Из учебника Павловской "Паскаль, Программирование на языке высокого уровня" я подчерпнул общие сведения, но только с вашей помощью и благодаря присланному исходнику привел свою писанину в порядок.