Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
4 мая 2023 18:32
289
НАДО НАПИСАТЬ В ВИДЕ ПРОГРАММЫ ПАСКАЛЬ.
Если сумма налога исчисляется в рублях и копейках, то налоговая служба округляет её до ближайшего рубля (до 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
Остались вопросы?
Еще вопросы по категории Математика
Какое число является наибольшим в данном задании?...
Начерти два параллельных отрезка. Длина которого 3 см,а второго 4см...
В правильной четырехугольной пирамиде SABCD точка О - центр основания, S - вершина, SO=5, BD=23. Найдите боковое ребро SC....
В каком числе 8 единиц второго разряда? а)802 б)208 в)280...
Сколько часов в 7 днях?...