Напишите программу, рассчитывающую зарплату, которая будет получена после удержания подоходного налога...

program CalculateSalary;

var Salary, Tax, NetSalary: Real; TaxRate: Integer;

begin // Ввод оклада write('Введите оклад в рублях: '); readln(Salary);

// Ввод процента подоходного налога write('Введите процент подоходного налога: '); readln(TaxRate);

// Расчет суммы налога Tax := Salary * TaxRate / 100;

// Расчет чистой зарплаты NetSalary := Salary - Tax;

// Вывод результатов writeln('Зарплата до удержания налога: ', Salary:0:2, ' руб.'); writeln('Сумма налога: ', Tax:0:2, ' руб.'); writeln('Чистая зарплата: ', NetSalary:0:2, ' руб.');

end.

Конечно! Давайте напишем программу на языке программирования Pascal, которая будет рассчитывать зарплату после удержания подоходного налога. Для этого нам потребуется ввести оклад (А) и процент налога (p). Затем мы вычислим сумму налога и вычтем её из оклада, чтобы получить итоговую зарплату.

Вот пример программы:

program CalculateNetSalary;

uses
  crt;

var
  A: Real;     // Оклад
  p: Real;     // Процент налога
  tax: Real;   // Сумма налога
  netSalary: Real; // Итоговая зарплата

begin
  clrscr;
  
  // Ввод оклада
  Write('Введите оклад (A) в рублях: ');
  ReadLn(A);
  
  // Ввод процента налога
  Write('Введите процент налога (p): ');
  ReadLn(p);
  
  // Расчет суммы налога
  tax := (A * p) / 100;
  
  // Расчет итоговой зарплаты
  netSalary := A - tax;
  
  // Вывод результата
  WriteLn('Сумма налога: ', tax:0:2, ' руб.');
  WriteLn('Итоговая зарплата после удержания налога: ', netSalary:0:2, ' руб.');
  
  ReadLn; // Ожидание нажатия клавиши для завершения программы
end.

Пояснение

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

   • A: переменная типа Real для хранения оклада.
   • p: переменная типа Real для хранения процента налога.
   • tax: переменная типа Real для хранения суммы налога.
   • netSalary: переменная типа Real для хранения итоговой зарплаты после удержания налога.

2. Ввод данных:

   • Сначала программа запрашивает у пользователя ввод оклада (A) и процента налога (p).

3. Расчеты:

   • Сумма налога вычисляется по формуле: tax := (A * p) / 100.
   • Итоговая зарплата после удержания налога вычисляется по формуле: netSalary := A - tax.

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

   • Программа выводит сумму налога и итоговую зарплату после удержания налога.

5. Финальная часть:

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

Этот пример демонстрирует базовые принципы работы с вводом и выводом данных, а также простые арифметические операции на языке Pascal.