nd (arr [CNT] .Num lt; 10) and IsUse=False); ( ПІБ ); (arr [CNT] .FIO); ( Кількість діб: ); (arr [CNT] .OKL); ( Ціна доби: ); (arr [CNT]. Prc); (14);
writeln ( Додана запис: );
textcolor (10);
{Шапка}
writeln(laquo;|------|------------------------|---------|-----|--------|raquo;);
textcolor (10); ( || ); textcolor (13); write ( N ); (10); ( || ); textcolor (13); write ( ПІБ сотрудникаraquo;);(10);(laquo;||raquo;);textcolor(13);write(laquo;Сутокraquo;);(10);(laquo;||raquo;);textcolor(13);write(laquo;Ценаraquo;);(10);(laquo;||raquo;);textcolor(13);write(laquo;Итогоraquo;);(10);(laquo;||raquo;);
{Висновок поточної записи}(laquo;|-------|---------------------------|----------|-------|---------|raquo;);(10);(laquo;||raquo;);textcolor(15);write(arr[CNT].num:4);(10);(laquo;||raquo;);textcolor(15);write(arr[CNT].FIO:20);(10);(laquo;||raquo;);textcolor(15);write(arr[CNT].OKL:8:2);(10);(laquo;||raquo;);textcolor(15);write(arr[CNT].Prc:5:2);(10);(laquo;||raquo;);textcolor(15);write(arr[CNT].OKL*arr[CNT].Prc:8:2);(10);(laquo;||raquo;);
{Подвал}(laquo;|------|--------------------------------|----------|-------|----------|raquo;);(11);
writeln (Не можна додати! Досягнуто максимум ')
end;
write ( Для продовження натисніть будь-яку клавішу );
readkey;
end;
{***************************************** ******************}
{***************************************** ******************}
{***************************************** ******************}
procedure view_s; {Процедура перегляду списку співробітників}
var: integer ;; (10);
{Шапка}(laquo;|-----|--------------------------------|---------|-----|--------|raquo;);(10);(laquo;||raquo;);textcolor(13);write(laquo; N ); (10); ( || ); textcolor (13); write ( ПІБ сотрудникаraquo;);(10);(laquo;||raquo;);textcolor(13);write(laquo;Сутокraquo;);(10);(laquo;||raquo;);textcolor(13);write(laquo;Ценаraquo;);(10);(laquo;||raquo;);textcolor(13);write(laquo;Итогоraquo;);(10);(laquo;||raquo;);i:=1 to CNT do
{Висновок поточної записи}(laquo;|------|-------------------------------|-----------|------|-----------|raquo;);(10);(laquo;||raquo;);textcolor(15);write(arr[i].num:4);(10);(laquo;||raquo;);textcolor(15);write(arr[i].FIO:20);(10);(laquo;||raquo;);textcolor(15);write(arr[i].OKL:8:2);(10);(laquo;||raquo;);textcolor(15);write(arr[i].Prc:5:2);(10);(laquo;||raquo;);textcolor(15);write(arr[i].OKL*arr[CNT].Prc:8:2);(10);(laquo;||raquo;);;
{Подвал}(laquo;|------|-----------------------------|----------|------|-----------|raquo;);(11);(laquo;Для продовження натисніть будь-яку клавішу );
readkey ;;
{***************************************** ******************}
{***************************************** ******************}
{***************************************** ******************} sort_s;: array [1..9] of integer;: Array [1..NN] of my_record;, j, k: integer;:integer;: integer; CNT gt; 1 theni:=1 to 9 do [i]:=0 ;;:=Arr [1] .Num;:=Arr [1] .Num; i:=1 to CNT doArr [i] .Num gt; Max then Max:=Arr [i] .Num; Arr [i] .Num lt; Min then Min:=Arr [i] .Num ;; i:=1 to CNT do:=Arr [i ] .Num-Min + 1; [j]:=B [j] +1 ;;:=0; j:=1 to 9 doB [j] lt; gt; 0 thenk:=1 to B [j] do :=i + 1; [i] .NUM:=j + Min - 1 ;;;; i:=1 to CNT doj:=1 to CNT doA [i] .Num=Arr [j] .Num then [i ] .FIO:=Arr [j] .FIO; [i] .OKL:=Arr [j] .OKL; [i] .Prc:=Arr [j] .Prc ;;;; i:=1 to CNT do [i] .Num:=A [i] .Num; [i] .FIO:=A [i] .FIO; [i] .OKL:=A [i] .OKL; [i] .Prc:=A [i] .Prc ;;; (11); ( Відсортовано. Для продовження натисніть будь-яку клавішу );
readkey;
end;
end.
Контрольні питання
. У чому суть алгоритму сортування вибором?
Спочатку відшукується запис з найменшим значенням ключа і вона поміщається на перше місце. Ця запис виключається з подальшого аналізу. Потім відшукується запис з найменшим значенням ключа в решти масиву, поміщається на друге місце і виключається з подальшого аналізу і т.д.
. У чому суть алгоритму сортування обміном?
Виконується послідовний аналіз масиву даних: якщо два сусідні елементи (ключа) не задовольняють умові (1), то вони міняються місцями; якщо в процесі такого аналізу виконана хоча б одна перестановка, процес порівняння повторюється з початку масиву, інакше алгоритм закін...
