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

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

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

Здравствуйте! Помогите разобраться с задачей:
Покупатель должен заплотить в кассу S рублей. У него имеются купюры по 1, 5, 10, 100, 500, 1000 и 10000 руб. Сколько купюр разного достоинства лтдаст покупатель, если рн начинает плотить с самых крупных купюр?
Заранее вам спасибо!

http://www.cyberforum.ru/pascal/thread372332.html

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.03.2009, 15:07
Я подобрал для вас темы с готовыми решениями и ответами на вопрос задача на цикл с параметром (Pascal):

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

цикл с параметром
дано целое число т(>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
Эксперт С++
3016 / 1361 / 415
Регистрация: 19.01.2009
Сообщений: 3,613
Завершенные тесты: 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
в универе задание дали , которую следует решить...

Цикл с параметром
С клавиатуры вводятся 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