Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 840 б
- Dwayne_Johnson 840 б
4 мая 2023 18:32
193
НАДО НАПИСАТЬ В ВИДЕ ПРОГРАММЫ ПАСКАЛЬ.
Если сумма налога исчисляется в рублях и копейках, то налоговая служба округляет её до ближайшего рубля (до 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
Остались вопросы?
Еще вопросы по категории Математика
Какую дробь представляет число 10 в минус второй?...
баз.год. отч.год темп роста % Среднегодовая стоимость 112400 119945 осно...
Математический кружок посещают 40 пятиклассников, что составляет 5/8 всех пятиклассников школы. Сколько всего учащихся в пяти классах этой школы?...
2cosx+√3=0 пожалуйста...
What is 10 25 in English?...
Все предметы