Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 1
Регистрация: 30.09.2015
Сообщений: 63
1

Реализовать выдачу в системе заданной суммы m минимальным числом денежных знаков

14.03.2016, 21:28. Просмотров 899. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses crt;
var i,j,m,n,b:longint;
k:arrary[1..1000]of longint;
 
begin
 write('M-> ');
 readln(m);
 write('N-> ');
 readln(n);
 write('??????? ?????? K -> ');
 for i:=1 to n do read(k[i]);
 readln;
 
 for i:=1 to n do
 for j:=1 to n-1 do if k[j]<k[j+1] then
 begin
  b:=k[j];
  k[j]:=k[j+1];
  k[j+1]:=b;
 end;
 
 for i:=1 to n do
 begin 
  writeln(k[i],' ?.?. - ',m div k[i]);
  m:=m mod k[i];
 end;
 readln;
end.
Вот собственно код. Заранее спасибо!

Вот задание если нужно.
В массиве K(n) в порядке убывания представлены достоинства денежных знаков (купюр и монет) валютной системы некоторой страны. Реализовать выдачу в этой системе заданной суммы m минимальным числом денежных знаков.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.03.2016, 21:28
Ответы с готовыми решениями:

Реализовать выдачу в этой системе заданной суммы m минимальным количеством купюр
В массиве K (n) в порядке убывания представлены денежные знаки разного достоинства. Реализовать...

Реализовать выдачу заданной суммы денег минимальным количеством купюр
В массиве К в порядке уменьшения представлены денежные знаки разной стоимости. Реализовать выдачу в...

Реализовать выдачу заданной суммы денег
В одномерном массиве в порядке убывания представлены достоинства денежных знаков (купюр и монет)...

Набрать сумму минимальным количеством денежных знаков.
87. (6 б.) Касса. В массиве K(n) в порядке убывания представлены достоинства денежных знаков (купюр...

2
3697 / 1774 / 1954
Регистрация: 10.12.2014
Сообщений: 6,877
15.03.2016, 09:10 2
ikoz, а в чём, собственно, вопрос?

И зачем в приведённой программе подключен модуль, который не используется?

… И что за Армянин там у вас в программе: „arrary“ ?

… И зачем строки с 14 по 20, если
Цитата Сообщение от ikoz Посмотреть сообщение
в порядке убывания
… И к чему ваша программа программа выдаёт лишнюю информацию типа: „X ?.?. - 0“ ?
1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5401 / 3235 / 2375
Регистрация: 22.11.2013
Сообщений: 9,129
16.03.2016, 15:05 3
Пусть достоинства монет: 4, 3, 1
Пробуем выдать 6
Получаем: 4, 1, 1 -- 3 монеты
А минимум на самом деле 2: 3, 3

Разве нет?
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.03.2016, 15:05

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Написать алгоритм выплаты заданной суммы S минимальным количеством купюр
задан массив М натуральных чисел, упорядоченный по неубыванию, т.е. М&lt;=M&lt;=....&lt;=M. написать...

Написать алгоритм выплаты заданной суммы S минимальным количеством купюp достоинством M(1), ..., M(N)
Сделала вроде все правильно, но программа не работает, можете помочь найти ошибку? Задан массив...

В одномерном массиве в порядке убывания представлены достоинства денежных знаков
Касса. В одномерном массиве в порядке убывания представлены достоинства денежных знаков (купюр и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.