Вам надано об’єкт JSON, що представляє частину вашої колекції музичних альбомів. Кожен альбом має унікальний ідентифікаційний номер як ключ і кілька інших властивостей. Не всі альбоми мають повну інформацію. Ви починаєте з функції updateRecords, яка приймає такий об’єкт, як колекція, ідентифікатор, реквізит (наприклад, виконавець або композиції) та значення. Завершіть функцію, використовуючи наведені нижче правила, щоб змінити об’єкт, переданий функції.
Ваша функція завжди повинна повертати весь об'єкт.
Якщо prop не є доріжками, а значення не є порожнім рядком, оновіть або встановіть значення prop для цього альбому.
Якщо prop - це треки, але альбом не має властивості track, створіть порожній масив і додайте йому значення.
Якщо prop - це доріжки, а значення не є порожнім рядком, додайте значення в кінець масиву існуючих доріжок альбому.
Якщо значення порожній рядок, видаліть дану властивість prop з альбому.
Примітка: Для тестів використовується копія об’єкта колекції.
1200dpi/2,54см=472 точек на см
Площадь листа формата А4==21*29,7=623,7 см^2
А всего точек в сканируемом изображение будет: 472*472*623,7=138950380,8
Каждая точка кодируется с бит, поэтому на кодирование всех точек на листе надо: 138950380,8*24=3334809139 бит информации или 416851142,4 байт или 407081 Кбайт или 397,5 Мбайт
2) Время звучания файла=объем файла/(число каналов*разрядность*частоту)
Объем=2847*512*8=11661312 бит
T=1161312/(1*8*8000)=182 c
T=1161312/(2*16*48000)=7.6 с
type oc=record
per,bt,tr:integer;
end;
ab=record
fam,im:string;
ocen:oc;
end;
var b:array [1..50] of ab;
l:ab;
i,n,g,k,h:integer;
begin
clrscr;
writeln ('введи количество абитуриентов');
readln (n);
Writeln ('Вводи фамилии, имена и 3 оценки');
for i:=1 to n do
with b[i] do
begin
readln (fam);
readln (im);
readln (ocen.per,ocen.bt,ocen.tr);
end;
clrscr;
for j:=1 to n do
for i:=1 to n-1 do
if b[i].fam>b[i+1].fam then
begin
l:=b[i];
b[i]:=b[i+1];
b[i+1]:=l;
end;
writeln ('Список всех аббитуриентов:');
for i:=1 to n do
writeln (b[i].fam,' ',b[i].im,' ',b[i].ocen.per,' ',b[i].ocen.bt,' ',b[i].ocen.tr);
writeln ('Список допущенных аббитуриентов');
for i:=1 to n do
with b[i] do
begin
with ocen do
if (per>30) and (bt>30) and (tr>30) and (per+bt+tr>140) then writeln (fam,' ',im,' ',ocen.per,' ',ocen.bt,' ',ocen.tr);
end;
readln;
end.