Составить программу известна заработная плата сотрудников вычислить величину подоходного налога в Turbo...

Для составления программы на Turbo Pascal, которая вычислит величину подоходного налога с заработной платы сотрудников, необходимо использовать математические операции для расчета налога в соответствии с действующими законодательством. В программе можно предусмотреть ввод заработной платы сотрудника и произвести расчет налога с помощью соответствующей формулы.

Для составления программы, которая вычисляет величину подоходного налога на заработную плату сотрудников в Turbo Pascal, необходимо учитывать следующие шаги:

1. Ввод заработной платы сотрудников.
2. Расчет подоходного налога на основе введенной заработной платы.
3. Вывод результата.

Предположим, что ставка подоходного налога фиксированная и составляет, например, 13% от заработной платы.

Ниже приведен пример программы на Turbo Pascal, которая выполняет эти действия:

program IncomeTaxCalculation;
uses crt;

const
  TaxRate = 0.13;  { Ставка подоходного налога, 13% }

var
  Salary: Real;    { Заработная плата сотрудника }
  Tax: Real;       { Величина подоходного налога }

begin
  ClrScr;  { Очистка экрана }
  
  { Ввод заработной платы сотрудника }
  Write('Введите заработную плату сотрудника: ');
  ReadLn(Salary);
  
  { Расчет подоходного налога }
  Tax := Salary * TaxRate;
  
  { Вывод результата }
  WriteLn('Заработная плата: ', Salary:0:2, ' руб.');
  WriteLn('Подоходный налог: ', Tax:0:2, ' руб.');
  
  ReadLn;  { Ожидание нажатия клавиши для завершения программы }
end.

Объяснение кода:

1. Объявление константы TaxRate:

   const
     TaxRate = 0.13;  { Ставка подоходного налога, 13% }
   

   Здесь мы задаем константу TaxRate, которая хранит процентную ставку подоходного налога (13%).

2. Объявление переменных:

   var
     Salary: Real;    { Заработная плата сотрудника }
     Tax: Real;       { Величина подоходного налога }
   

   Объявляем две переменные: Salary для хранения заработной платы сотрудника и Tax для хранения рассчитанного налога.

3. Очистка экрана:

   ClrScr;  { Очистка экрана }
   

   Команда ClrScr очищает экран перед выводом информации.

4. Ввод заработной платы:

   Write('Введите заработную плату сотрудника: ');
   ReadLn(Salary);
   

   Команды Write и ReadLn используются для ввода заработной платы сотрудника. Write выводит сообщение без перехода на новую строку, а ReadLn считывает введенное значение и сохраняет его в переменной Salary.

5. Расчет подоходного налога:

   Tax := Salary * TaxRate;
   

   Величина налога рассчитывается путем умножения заработной платы на ставку налога.

6. Вывод результата:

   WriteLn('Заработная плата: ', Salary:0:2, ' руб.');
   WriteLn('Подоходный налог: ', Tax:0:2, ' руб.');
   

   Команды WriteLn используются для вывода заработной платы и рассчитанного налога на экран. Формат :0:2 указывает, что числа должны быть выведены с двумя знаками после запятой.

7. Ожидание нажатия клавиши:

   ReadLn;  { Ожидание нажатия клавиши для завершения программы }
   

   Команда ReadLn в конце программы позволяет задержать выполнение, чтобы пользователь мог увидеть результаты перед закрытием программы.

Этот пример можно расширить для работы с несколькими сотрудниками, добавив циклы и массивы для хранения данных.

Для составления программы на Turbo Pascal, которая будет вычислять величину подоходного налога с заработной платы сотрудников, необходимо выполнить следующие шаги:

1. Создать переменные для хранения заработной платы сотрудника и величины подоходного налога.
2. Запросить у пользователя ввод заработной платы сотрудника.
3. Рассчитать величину подоходного налога с помощью формулы: подоходный налог = заработная плата * 0.13 (13% от заработной платы).
4. Вывести на экран величину подоходного налога.

Пример программы на Turbo Pascal:

program CalculateTax;

var
  salary, incomeTax: real;

begin
  // запрос ввода заработной платы сотрудника
  writeln('Введите заработную плату сотрудника: ');
  readln(salary);
  
  // рассчет подоходного налога
  incomeTax := salary * 0.13;
  
  // вывод результата на экран
  writeln('Подоходный налог: ', incomeTax:0:2);
  
end.

Данная программа позволит пользователю ввести заработную плату сотрудника и выведет на экран величину подоходного налога, который составит 13% от заработной платы.