1 Востаннє редагувалося Torbins (15.12.2013 14:35:55)

Тема: Підрахунок кількості монет для видачі заданої суми

1)написати програму ,яка виводить суму всіх цифр які містяться в заданому рядку
віхідні дані: ви вводите з клавіатури рядок  в якому є хоча б одна цифра

н-д,вхідні дані:fgghjf4hbnj7,вихідні: 11


2)є необмежена кількість монет 1,2,5,10,25,50 копійок.написати програму,яка визначатиме ,якою найменшою кількістю монет можна видати певну суму у гривнях,
н-д, вхідні дані:сума в гривнях2,72
вихідні:8


на мові програмування Pascal

2 Востаннє редагувалося Chemist-i (14.12.2013 12:47:02)

Re: Підрахунок кількості монет для видачі заданої суми

http://s018.radikal.ru/i504/1305/4e/128b3beefcef.jpg

x
Подякували: xrystynka_1

3

Re: Підрахунок кількості монет для видачі заданої суми

http://old.otvet.mail.ru/question/97693652
Не твоя однокурсниця?

Подякували: xrystynka_1

4 Востаннє редагувалося xrystynka_ (14.12.2013 13:16:43)

Re: Підрахунок кількості монет для видачі заданої суми

ось до 2 задачі
шось з типами ,чайник я)))

Прихований текст

program z1;
var suma, kil,Kil1,Kil2,Kil3,Kil4,Kil5,Kil6:integer;
begin
readln(suma);
Kil1 := suma div 50;
suma := Suma mod 50;
Kil2 := Suma div 25;
Suma := Suma mod 25;
Kil3 := Suma div 10;
Suma := Suma mod 10;
Kil4 := Suma div 5;
Suma := Suma mod 5;
Kil5 := Suma div 2;
Suma := Suma mod 2;
Kil6 := Suma div 1;
Suma := Suma mod 1;
kil:=kil1+kil2+kil3+kil4+kil5+kil6;
writeln(kil);
readln;
end.

5 Востаннє редагувалося Logans (14.12.2013 13:12:50)

Re: Підрахунок кількості монет для видачі заданої суми

xrystynka_ написав:

ось до 2 задачі
шось з типами ,чайник я)))

Прихований текст

program z1;
var suma, kil,Kil1,Kil2,Kil3,Kil4,Kil5,Kil6:i nteger;
begin
readln(suma);
Kil1 := suma div 50;
suma := Suma mod 50;
Kil2 := Suma div 25;
Suma := Suma mod 25;
Kil3 := Suma div 10;
Suma := Suma mod 10;
Kil4 := Suma div 5;
Suma := Suma mod 5;
Kil5 := Suma div 2;
Suma := Suma mod 2;
Kil6 := Suma div 1;
Suma := Suma mod 1;
kil:=kil1+kil2+kil3+kil4+kil5+kil6;
writeln(kil);
readln;
end.

Для вставки коду, потрібно використовувати тег code, який знаходиться трохи вище, при наборі повідомлення.
http://screenshot.su/img/22/41/16/22411669c5201e1ed1f9f89c1cc7eed6.jpg
І ще краще, якщо ви будете вставляти ваш код під спойлер:
http://screenshot.su/img/fa/7f/82/fa7f82535a7c2b049ffc9a059ce10028.jpg

Тільки не перепутайте пріорітет, спочаткуй йде spoiler, а в ньому вже йде code:
http://screenshot.su/img/8b/2f/41/8b2f41613a95a01305d15df3544df5f0.jpg

"Most good programmers do programming not because they expect to get paid or get adulation by the public, but because it is fun to program."
- Linus Torvalds
Подякували: xrystynka_1

6

Re: Підрахунок кількості монет для видачі заданої суми

var suma, kil,Kil1,Kil2,Kil3,Kil4,Kil5,Kil6:integer;
x
Подякували: xrystynka_1

7

Re: Підрахунок кількості монет для видачі заданої суми

зробила,а тепер допоміжь з типами

8

Re: Підрахунок кількості монет для видачі заданої суми

вона не так працює,точніше працює з цілою сумою,а мені не так тре

9

Re: Підрахунок кількості монет для видачі заданої суми

Власне, тут із цілими і треба, тільки ввід-вивід зробити в real:

program z1;
var suma, kil,Kil1,Kil2,Kil3,Kil4,Kil5,Kil6:integer;
    suma_r:real;
begin
  readln(suma_r);
  suma:=round(100*suma_r);{переводимо в копійки і про всяк випадок округляємо до цілого}
  Kil1 := suma div 50;
  suma := Suma mod 50;
  Kil2 := Suma div 25;
  Suma := Suma mod 25;
  Kil3 := Suma div 10;
  Suma := Suma mod 10;
  Kil4 := Suma div 5;
  Suma := Suma mod 5;
  Kil5 := Suma div 2;
  Suma := Suma mod 2;
  Kil6 := Suma div 1;
  Suma := Suma mod 1;
  kil:=kil1+kil2+kil3+kil4+kil5+kil6;
  writeln(kil/100);{переводимо назад в гривні}
  readln;
end.

Якщо вас це влаштовує, то добре. Але можна ще:

  • прибрати всі змінні kilN, натомість додавати всі частки одразу до kil;

  • внести номінали монет до масиву і робити це все в циклі.

І відступи наступного разу робіть обов'язково!

Подякували: xrystynka_, Chemist-i2

10

Re: Підрахунок кількості монет для видачі заданої суми

koala написав:

І відступи наступного разу робіть обов'язково!

Чого ти нервуєшся ? Видовбай собі кнопку с "!"

11

Re: Підрахунок кількості монет для видачі заданої суми

Пане Singularity, я, перепрошую, свині з вами не пас. А якщо вам в кожному знаку оклику вважається нервовість, то попийте краще настоянки валеріани лікарської.

12

Re: Підрахунок кількості монет для видачі заданої суми

xrystynka_
Створіть для першої задачі окрему тему.

Singularity
Я не помічав, щоб koala зловживав знаками оклику. На мою думку, з його повідомленнями усе гаразд.

Подякували: Replace, Bartash2