Составить таблицу, содержащую следующие поля: ФИО
Месяц
Дата поступления
Рабочих
дней в месяце
Средний
заработок
Дата выдачи
больничного
Дата
окончания больничного
Заполнить таблицу в соответствии с условиями.
Записей в таблице — 10, фамилии могут повторяться.
Значения в столбце «Дата поступления» вводятся таким образом, чтобы были сотрудники со стажем меньше 5 лет, больше 8 лет и от 5 до 8 лет.
Различных месяцев — 3
Средний заработок задается произвольно.
Выполнить:
1. Вставить в таблицу столбец «Стаж» и вычислить стаж.
2. Вставить столбец «Дней по больничному листу» и вычислить продолжительность больничного.
3. Дополнить таблицу столбцом «К оплате по больничному». Значения в столбце вычислить в соответствии с условием: если стаж меньше 5 лет, то 50% от среднего заработка, если стаж больше 8 лет, то 100%, от 5 до 8 лет — 80%.
4. Вычислить общую сумму оплаты больничных листов.
5. Вычислить средний стаж.
6. Используя функцию СЧЕТЕСЛИ, определить количество сотрудников со стажем больше 8 лет.
7. Используя стандартные функции, найти минимальное и максимальное значения среднего заработка.
8. Вычислить сумму оплаты больничных листов по месяцам и оформить в виде таблицы в соответствии с образцом.
Месяц
К оплате по больничному
Количество дней по больничному
9. Построить диаграмму оплаты по месяцам.
10. Вычислить количество больничных дней для каждого сотрудника.
var a, b, с: integer;
begin
write('Введите два числа: ');
readln(a, b);
if a < b then с := a + 1 else с := b + 1;
repeat с := с - 1
until (a mod с = 0) and (b mod с = 0);
write('NOD = ', с)
end.
//2. Алгоритм с вычитанием (цикл while)
var a, b: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
while a <> b do
if a > b then
a := a - b
else
b := b - a;
writeln('NOD = ', a);
end.