Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.54/54: Рейтинг темы: голосов - 54, средняя оценка - 4.54
2 / 2 / 4
Регистрация: 06.11.2011
Сообщений: 108
1

Товар стоит "a" руб. "b" коп. За него заплатили "c" руб. "d" коп. Сколько сдачи требуется получить?

17.11.2011, 01:41. Просмотров 10102. Ответов 7
Метки нет (Все метки)

Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить? Вводятся 4 числа: a, b, c и d. Необходимо вывести 2 числа: e и f, число рублей и копеек, соответственно.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
var a, b, c, d:integer;
 begin
     read(a);
     read(b);
     read(c);
     read(d);
c:=c-a;
d:=d-b;
if (d<0) then (c:=c-1) and (d:=d+100);
if (c<0) then writeln('0') else writeln(c,' ',d);
readln;
 end.
поправьте

Добавлено через 17 минут
Цитата Сообщение от vadiprog Посмотреть сообщение
Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить? Вводятся 4 числа: a, b, c и d. Необходимо вывести 2 числа: e и f, число рублей и копеек, соответственно.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
var a, b, c, d:integer;
 begin
     read(a);
     read(b);
     read(c);
     read(d);
c:=c-a;
d:=d-b;
if (d<0) then (c:=c-1) and (d:=d+100);
if (c<0) then writeln('0') else writeln(c,' ',d);
readln;
 end.
поправьте
всё сам исправил... там надо было в begin end взять операции
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.11.2011, 01:41
Ответы с готовыми решениями:

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву "б" на сочетание "ак",
В каждом слове текста замените &quot;а&quot; на букву &quot;е&quot;, если &quot;а&quot; стоит на четном месте, и заменить букву...

Из слов "Работа", "крест", "тон" составить фразу "Кто не работает, тот не ест" и определить ее длину
Из слова &quot;Работа&quot;,&quot;крест&quot;,&quot;тон&quot; составить фразу:&quot;Кто не работает, тот не ест&quot; и определить ее длину.

На форме располагаются компоненты: редактор Edit; линейка ScrollBar; радионабор с опциями "Цветы", "Деревья", "Рыбы", "Звери"
Доброго времени суток, 2 курс 2 семестр, пришли, препод раздал задачи, сказал качайте дома и...

Тысячные числа исправлять к примеру с "1200" на "1 200", "12000" на "12 000" и т.д
Собственно числа исправлять к примеру с &quot;1200&quot; на &quot;1 200&quot;, &quot;12000&quot; на &quot;12 000&quot;, &quot;120000&quot; на...

7
0 / 0 / 0
Регистрация: 12.01.2016
Сообщений: 8
04.03.2019, 03:08 2
В случае запрета на использование иных переменных, кроме исходных можно использовать:
Python
1
print((c * 100 + d - a * 100 - b) // 100,  (c * 100 + d - a * 100 - b) % 100)
0
487 / 391 / 258
Регистрация: 05.04.2013
Сообщений: 1,729
04.03.2019, 04:53 3
Цитата Сообщение от spany Посмотреть сообщение
Python
при чем здесь Python?
0
0 / 0 / 0
Регистрация: 12.01.2016
Сообщений: 8
04.03.2019, 09:55 4
Упс... В три часа ночи плохо читаются заголовки. ;((
Спасибо за подсказку.
Да, действительно, Python ни при чём. Моя невнимательность.
0
5168 / 2027 / 435
Регистрация: 20.11.2009
Сообщений: 6,721
Записей в блоге: 1
04.03.2019, 13:55 5
Цитата Сообщение от vadiprog Посмотреть сообщение
Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить? Вводятся 4 числа: a, b, c и d. Необходимо вывести 2 числа: e и f, число рублей и копеек, соответственно.
в школе, в классе в шестом наверное уже, всегда учили считать такие вещи, таким образом - приводить все к одной величине, производить расчет и, если требуется, перевести в исходную систему.. как сейчас в школе дела обстоят, увы понятия не имею, но чую не очень хорошо...

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

никаких ифов в помине в таких задачах не надо, это усложняет задание очень сильно
0
D1973
04.03.2019, 18:16
  #6

Не по теме:

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

0
0 / 0 / 0
Регистрация: 19.11.2019
Сообщений: 3
19.11.2019, 23:26 7
Код для Pascal
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 a, b, c, d: integer;
begin
    readln (a);
    readln (b);
    readln (c);
   readln (d);
 c:=c-a;
 d:=d-b;
  if (d<0) then 
   begin
   c:=c-1;
   d:=d+100;
   end;
    if (c<0) then
    begin
    write ('0');
    end
     else 
     begin
     write (c, ' ', d);
     end
end.
0
AHBAR
20.11.2019, 06:25     Товар стоит "a" руб. "b" коп. За него заплатили "c" руб. "d" коп. Сколько сдачи требуется получить?
  #8

Не по теме:

spany, vovaraw, Сидит в раю компания душ, общаются на лавочке, беседуют. Вдруг один из них исчез и через несколько секунд появился и так несколько раз. Другим надоело, что он так пропадает и спрашивают у него: что случилось, куда ты пропадаешь? А тот отвечает: да эти реаниматоры в больнице все никак меня нормально откачать не могут!

0
20.11.2019, 06:25
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.11.2019, 06:25
Привет! Вот еще темы с ответами:

Строка: Определить, сколько в заданной строке символов: "*", ";", ":".
Дан массив символов. Определить, сколько в нём символов * ; :

В слове Х перед каждой буквой "к", которой предшествует буква "с", вставить букву "н"
Привет всем) вот условие задачи:В слове Х перед каждой буквой &quot;к&quot;, которой предшествует буква &quot;с&quot;,...

Дана строка. Заменить все буквы "м" на "н". Заменить все вхождения сочетаний букв "про" на "нет"
2.Дана строка. 1) Заменить все буквы м на н. 2) Заменить все вхождения сочетаний букв &quot;про&quot; на...

Сделать выборку слов, перед которыми стоит "07", и заканчивающихся на "о". Скопировать их в memo2
Есть текст. По нажатию кнопки Button1 он загружается в memo1. Из него надо сделать выборку слов...


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

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

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