Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 860 б
- Dwayne_Johnson 845 б
4 мая 2023 18:32
199
НАДО НАПИСАТЬ В ВИДЕ ПРОГРАММЫ ПАСКАЛЬ.
Если сумма налога исчисляется в рублях и копейках, то налоговая служба округляет её до ближайшего рубля (до 50 копеек — с недостатком, свыше 50 копеек (включая 50) — с избытком). Используйте компьютер, чтобы ввести точную сумму налога и вывести, сколько следует уплатить.ПРОШУ С ОБЪЯСНЕНИЕМ , СПАСИБО
1
ответ
Конечно, я могу помочь написать программу на языке Pascal, которая будет округлять сумму налога до ближайшего рубля.
Прежде всего, необходимо понимать, что округление до ближайшего рубля производится путем проверки дробной части числа. Если дробная часть меньше 0,5, то число округляется вниз, если же больше или равна 0,5, то число округляется вверх.
Вот как может выглядеть программа на языке Pascal, которая реализует такую логику:
```
program tax_calculation;
var
tax: real;
rounded_tax: integer;
begin
writeln('Введите сумму налога:');
readln(tax);
rounded_tax := round(tax); // округляем до ближайшего целого числа
if frac(tax) < 0.5 then
writeln('Сумма налога: ', rounded_tax)
else
writeln('Сумма налога: ', rounded_tax + 1);
readln;
end.
```
В этой программе мы сначала запрашиваем у пользователя сумму налога, которую сохраняем в переменной `tax`. Затем мы округляем это число до ближайшего целого числа с помощью функции `round()`.
Далее мы проверяем дробную часть числа с помощью функции `frac()`. Если дробная часть меньше 0,5, то мы выводим на экран округленную сумму налога. Если же дробная часть больше или равна 0,5, то мы выводим на экран округленную сумму налога, увеличенную на 1.
Надеюсь, моя помощь была полезной!
Прежде всего, необходимо понимать, что округление до ближайшего рубля производится путем проверки дробной части числа. Если дробная часть меньше 0,5, то число округляется вниз, если же больше или равна 0,5, то число округляется вверх.
Вот как может выглядеть программа на языке Pascal, которая реализует такую логику:
```
program tax_calculation;
var
tax: real;
rounded_tax: integer;
begin
writeln('Введите сумму налога:');
readln(tax);
rounded_tax := round(tax); // округляем до ближайшего целого числа
if frac(tax) < 0.5 then
writeln('Сумма налога: ', rounded_tax)
else
writeln('Сумма налога: ', rounded_tax + 1);
readln;
end.
```
В этой программе мы сначала запрашиваем у пользователя сумму налога, которую сохраняем в переменной `tax`. Затем мы округляем это число до ближайшего целого числа с помощью функции `round()`.
Далее мы проверяем дробную часть числа с помощью функции `frac()`. Если дробная часть меньше 0,5, то мы выводим на экран округленную сумму налога. Если же дробная часть больше или равна 0,5, то мы выводим на экран округленную сумму налога, увеличенную на 1.
Надеюсь, моя помощь была полезной!
0
·
Хороший ответ
4 мая 2023 18:33
Остались вопросы?
Еще вопросы по категории Математика
(5/7-2/3):(4/9-5/12)...
Какое число представляет собой 101010 в десятичной системе счисления?...
Сколько секунд в 1 часе,10 минутах?...
ариант 3:...
В футбольном турнире участвовали команды A, B, C, D, E. Каждая команда сыграла с каждой ровно один раз. В каждой игре за победу давалось 3 очка, за ни...
Все предметы