Укажіть дії, які можна виконувати з даними в СУБД MS Access за до запиту на вибірку. А. редагувати дані Б. упорядковувати дані В. здійснювати пошук даних за заданими умовами Г. вводити нові дані Д. отримувати нові дані за до обчислень за формулами 2 Укажіть об’єкти табличного процесора Excel, які може бути розміщено всередині клітинки електронної таблиці. A) діаграми Б) числові дані В) текстові дані Г) зображення Д) формули 3 Встановіть відповідність між комбінаціями клавіш і їхнім призначенням А. Ctrl+A 1) відмінити дію Б. Ctrl+Z 2) виділити все В. Ctrl+X 3) копіювати об’єкт Г. Ctrl+C 4) вставити об’єкт Д. Ctrl+V 5) вирізати об’єкт 4 Укажіть кількість слайдів, які містить щойно створена порожня презентація MS PowerPoint. А. жодного Б. один В. відповідно до шаблону оформлення Г. кількість обирає користувач 5 Укажіть програми, які призначено для стискання даних.
//Pascal
const m = 1000
var
arr: array[1..m] of integer;
n,i, j, k: integer;
begin
readln(n);
write ('Исходный массив: ');
for i := 1 to n do begin
readln(arr[i]);
end;
//сортировка методом пузырька
for i := 1 to n-1 do
for j := 1 to n-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;
write ('Отсортированный массив: ');
for i := 1 to n do
write (arr[i]:4);
end.
Алгоритм сортировки на классическом языке программирования С
# define SWAP(A,B) {A=A^B;B=A^B;A=A^B;}
void bubblesort(int A[], int n)
{
int i, j;
for(i = n-1 ; i > 0 ; i--)
{ for(j = 0 ; j < i ; j++)
{
if( A[j] > A[j+1] ) SWAP(A[j],A[j+1]);
}
}
}
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.
Тестовое решение:
-0.00136006072493969
2. А вот так учат писать это же школьные учителя:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
m:array[1..100] of real;
i,k:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 100 do begin
m[i]:=sin(i)*cos(i);
if m[i]<>0 then begin
s:=s+m[i];
k:=k+1
end
end;
Writeln(s/k)
end.
Тестовое решение:
-0.00136006072493969