Практическая работа: «технология обработки числовой данных»
Создать и заполнить таблицу «Учет заработной платы рабочих цеха за месяц».
Исходные данные: фамилия рабочего (не менее 8), количество отработанных рабочих дней за месяц (при 6-дневной рабочей неделе); количество часов, отработанных в выходные и праздничные дни;
Вычислить
1) для каждого рабочего:
- количество часов, отработанных в рабочее время (при 8-часовом рабочем дне);
- начисленную заработную плату (стоимость 1 часа – 120 руб.; коэффициент работы в выходные и праздничные дни – 1,5);
- подоходный налог (удержанную сумму – 13 %);
- сумму к выдаче;
- отклонение от средней заработной платы рабочих цеха в %;
2) по цеху:
- минимальное, максимальное и среднее значение заработной платы;
- количество рабочих, зарплата которых больше средней;
- количество и суммарную зарплату рабочих, работавших в выходные и праздничные дни.
Построить гистограмму заработной платы рабочих цеха.

1) посчитать сумму всех нечетных чисел от 230 до 430
// PascalABC.NET 3.0, сборка 1088
var
  i,s:integer;
begin
  i:=231; s:=0;
  repeat
    s:=s+i; i:=i+2
  until i>400;
  Writeln('Сумма нечетных чисел на интервале [230;400]: ',s)
end.

Результат выполнения программы:
Сумма нечетных чисел на интервале [230;400]: 26775

2) вычислить квадратные корни из чисел : 900, 893, 886,... до тех пор пока это можно делать
// PascalABC.NET 3.0, сборка 1088
var
  i:integer;
begin
  i:=900;
  repeat
    Write('(',i:3,',',sqrt(i):9:5,') ');
    i:=i-7
  until i<0;
  Writeln;
end.

Результат выполнения программы:
(900, 30.00000) (893, 29.88311) (886, 29.76575) (879, 29.64793)
(872, 29.52965) (865, 29.41088) (858, 29.29164) (851, 29.17190)
(844, 29.05168) (837, 28.93095) (830, 28.80972) (823, 28.68798)
... часть строк пропущена
(130, 11.40175) (123, 11.09054) (116, 10.77033) (109, 10.44031)
(102, 10.09950) ( 95,  9.74679) ( 88,  9.38083) ( 81,  9.00000)
( 74,  8.60233) ( 67,  8.18535) ( 60,  7.74597) ( 53,  7.28011)
( 46,  6.78233) ( 39,  6.24500) ( 32,  5.65685) ( 25,  5.00000)
( 18,  4.24264) ( 11,  3.31662) (  4,  2.00000)

3) найти сумму чисел шестизначного числа
// PascalABC.NET 3.0, сборка 1088
var
  n:longint;
  s:integer;
begin
  Write('n='); Read(n);
  repeat
    s:=s + (n mod 10);
    n:=n div 10
  until n=0;
  Writeln('Сумма цифр числа равна ',s)
end.

Тестовое решение:
n=472305
Сумма цифр числа равна 21

Иерархическая БДИерархические базы данных — самая ранняя модель представления сложной структуры данных. Информация в иерархической базе организована по принципу древовидной структуры, в виде отношений «предок-потомок». Каждая запись может иметь не более одной родительской записи и несколько подчиненных. Связи записей реализуются в виде физических указателей с одной записи на другую. Основной недостаток иерархической структуры базы данных — невозможность реализовать отношения «много-ко-многим», а также ситуации, когда запись имеет несколько предков. Графически такую структуру можно изобразить в виде дерева, состоящего из объектов различных уровней. Верхний уровень занимает один объект, второй — объекты второго уровня и так далее. Между объектами существуют связи, каждый объект может включать в себя несколько объектов более низкого уровня. Такие объекты находятся в отношении предка (объект более близкий к корню) к потомку (объект более низкого уровня), при этом возможно, чтобы объект-предок не имел потомков или имел их несколько, тогда как у объекта-потомка обязательно только один предок. Объекты, имеющие общего предка, называются близнецами.