Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/22: Рейтинг темы: голосов - 22, средняя оценка - 4.50
anubis
0 / 0 / 0
Регистрация: 15.01.2009
Сообщений: 14
1

задача на цикл с параметром

02.03.2009, 15:07. Просмотров 3978. Ответов 3
Метки нет (Все метки)

Здравствуйте! Помогите разобраться с задачей:
Покупатель должен заплотить в кассу S рублей. У него имеются купюры по 1, 5, 10, 100, 500, 1000 и 10000 руб. Сколько купюр разного достоинства лтдаст покупатель, если рн начинает плотить с самых крупных купюр?
Заранее вам спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.03.2009, 15:07
Ответы с готовыми решениями:

задача на цикл с параметром
напечатать числа следущим образом: а)10 10,4 11 11,4 ...

Задача по теме цикл с параметром
Доброго времени суток! Попросили сделать программу на турбо паскале, а я так как уже года 4 на нем...

цикл с параметром
дано целое число т(>0). найти сумму n +(n+1) +(n+2) + ... +(2*n) (целое число)

Цикл с параметром
Составить программу, которая находит наибольшее значение отношения трехзначного числа к сумме его...

Цикл с параметром FOR
Известны результаты соревнования по прыжкам в высоту n учеников. Найдите суммарный результат ...

3
Extremall
20 / 20 / 10
Регистрация: 26.02.2009
Сообщений: 49
02.03.2009, 17:47 2
Если, как я понял, нужно найти количество купюр, то вот код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var s:integer;
    nom:array[1..7] of integer = (1,5,10,100,500,1000,10000);
    i,j,k:integer;
 
begin
readln(s);
k:=0;
for i:=7 downto 1 do begin
  j:=s div nom[i];
  inc(k,j);
  s:=s mod nom[i];
end;
write(k);
readln;
end.
0
schdub
Эксперт С++
3037 / 1379 / 421
Регистрация: 19.01.2009
Сообщений: 3,679
Завершенные тесты: 1
02.03.2009, 18:40 3
Во-первых, говоря о предыдущей программке, то, чтобы она заработала, номиналы купюр нужно поместить в раздел объявления констант.

Во-вторых, она считает количество купюр вообще, а в задании сказано количество купюр разного достоинства.

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
const nom:array[1..7] of integer = (1,5,10,100,500,1000,10000);
var s,i,j,k,c : integer;
 
begin
  k:=0;
 
  Write('Введите сумму, которую необходимо заплатить : ');
  readln(s);
 
  c :=0;
  for i:=7 downto 1 do
  begin
 
    j:=s div nom[i];
 
    if j>0 then Inc(c);
 
    inc(k,j);
    s:=s mod nom[i];
  end;
 
  Write('Нужно заплатить ',c,' купюр разного достоинства.');
  readln;
end.
0
Extremall
20 / 20 / 10
Регистрация: 26.02.2009
Сообщений: 49
02.03.2009, 22:27 4
Программка была рабочая, просто писал в Delphi по привычке, а там такое катит. А что насчёт задания, то значит я не совсем понял, что нужно сделать.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.03.2009, 22:27

Цикл с параметром...
Помогите плиззз с данной задачкой... Используя оператор цикла с параметром составить программу...

Цикл с параметром for
в универе задание дали , которую следует решить http://www.****************/images/3909123.jpg ...

Цикл с параметром
С клавиатуры вводятся 8 чисел: -10, -3, -1, 4, 9, 14, 17, 21 а) Определить образуют ли они...


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

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

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