1. Составить таблицу (10 сотрудников) - ФИО
- Возраст
- Пол (м, ж)
- Должность
- Дата начала трудового стажа
- Текущая дата (16.06.2020)
- Оклад
- Расчет налога на доход (оклад*13%)
- Расчет северного коэффициента (если стаж больше 3х лет, то + 30% оклада)
- Расчет заработной платы (Оклад + северный_коэф. - налог)
2. Посчитать всех женщин, всех мужчин
3. Построить график окладов
4. Добавить столбец логической функции, где будет отображаться «ложь»-«истина», если есть северный коэффициент (истина), нет – «ложь»
5. Рассчитать сумму всех ЗП
Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.
Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var s1:=ReadReal('Площадь квадрата');
var s2:=ReadReal('Площадь круга');
if pi*s1<2*s2 then Writeln('Квадрат умещается в круге')
else Writeln('Квадрат не умещается в круге')
end.
Тестовое решение:
Площадь квадрата 24.6
Площадь круга 28.4
Квадрат не умещается в круге
Исключение IndexOutOfRangeException ("Индекс находился вне границ массива") указывает на то, что в каком либо месте программы вы пытаетесь обратится к массиву с индексом, выходящим за его границы.
Вероятнее всего, конкретно в вашем коде ошибка может быть на строке 4, т.к вы объявляете имя a как массив на 100 элементов с допустимыми индексами от 1 до 100, но позже даёте пользователю право самому ввести требуемую размерность, и никак не проверяете вводимое пользователем значение. В таком случае любое число > 100 будет приводить к исключению IndexOutOfRangeException.
Что бы избежать исключительных ситуаций, вы можете пойти двумя путями:
1. Проверять вводимые данные на соответствие диапазону допустимых индексов для массива а
2. Использовать коллекции с динамической размерностью (Array of T или List<T>)