Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
4 мая 2023 18:32
480
НАДО НАПИСАТЬ В ВИДЕ ПРОГРАММЫ ПАСКАЛЬ.
Если сумма налога исчисляется в рублях и копейках, то налоговая служба округляет её до ближайшего рубля (до 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
Остались вопросы?
Еще вопросы по категории Математика
Начертите на координатной плоскости четырёхугольник PQRS , если P(-4;2), Q(-2;4), R(4;1), S(-2,-2) Найдите координаты точек пересечения стороны QR с...
Какое из следующих утверждений верно? 1)Точка пересечения двух окружностей равноудалена от центров этих окружностей. 2)В параллелограмме есть два рав...
Срочно!!!!!Надо нарисовать координатную плоскость,так чтобы получился рисунок(животного или предмета)обязательно должны быть отмечены координаты...
Начертите луч OA отметьте на нем точки M и P.ззапишите все лучи получившиеся на чертеже...
Какие числа содержатся в данной последовательности: "10 n m 4 2m 7n"?...