Конспект на тему гироскопический датчик

1)

Function check7(a As Range) As Integer

Dim r As Range

Dim i As Integer

For Each r In a

i = i + 1 - Sgn((Abs(r) + 3) Mod 10)

Next

check7 = i

End Function

Excel VBA

2)

А что здесь программировать-то?

Задача сводится к с следующей: Дано два ящика и 7 мячиков. Сколькими можно разместить эти 7 мячиков в этих двух ящиках?

Бросаем все мячики в первый ящик (это первое размещение), затем перекладываем по одному мячика из первого ящика во второй.

Получаем варианты:

7|0

6|1

5|2

4|3

3|4

2|5

1|6

Итого 7 вариантов (варианта 0|7 быть не может, поскольку двузначное число с нуля не начинается).

В общем-то и без вычислений всем очевидно, что разместить 7 мячиков в двух ящиков ровно 7.

Что должна вычислять программа?

Program picaso; uses crt;var i,n,ls,ld,min,max,temp,k,j,f,aux:integer; a:array[1..10] of integer;begin clrscr; writeln('Vedite dlinu masiva');read(n); writeln('Vedite granitu s leva');read(ls); writeln('Vedite granitu s prava');read(ld); for i:=1 to n do  begin write('A[',i,']='); readln(a[i]); end; min:=a[1];max:=a[1]; repeat f:=1; for i:=ls to ld-1 do if a[i]<a[i+1] then  begin  aux:=a[i];  a[i]:=a[i+1];  a[i+1]:=aux;  f:=0;             end;    until f=1; for i:=ls to ld do write(a[i]:3); writeln; writeln('min: ',a[ls],' max: ',a[ld]); aux:=a[ls];  a[ls]:=a[ld];  a[ld]:=aux;  for i:=ls to ld do write(a[i]:3); end.