ответьте на вопрос в общих понятиях или кратко: 1. Зачем понадобилось уточнять понятие «алгоритм»?
2. Какие задачи рассматриваются в теории алгоритмов?
3. Почему можно ограничиться алгоритмами обработки символьных строк? Можно ли рассматривать только алгоритмы для преобразования двоичных кодов?
4. Как вы понимаете утверждение «Алгоритм задаёт некоторую функцию»?
5. Как связаны понятия «алгоритм» и «исполнитель»?
6. Что такое программа?
7. В каком случае говорят, что два алгоритма эквивалентны?
8. Что такое универсальный исполнитель?
9. Сравните интуитивное и строгое понятия алгоритма.
10. Опишите устройство и систему программирования машины Тьюринга.
11. Что такое состояние машины Тьюринга?
12. Сопоставьте устройство машины Тьюринга с устройством компьютера. Какие устройства машины Тьюринга выполняют те же функции, что и аналогичные устройства компьютера?
13. В чем особенность состояний q0 и q1, машины Тьюринга?
14. По какому принципу можно построить программу для машины Тьюринга, которая последовательно выполняет операции А и Б?
15. Сформулируйте тезис Чёрча-Тьюринга.
16. Сравните машины Тьюринга и Поста.
17. Зачем нумеруются строки в программе для машины Поста?
18. Что такое нормальный алгорифм Маркова?
19. Зачем используют специальные символы в НАМ?
20. Что означает эквивалентность различных универсальных исполнителей?
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.Row(0).Sum+a.Row(n-1).Sum;
s+=a.Col(0).Skip(1).Take(n-2).Sum+a.Col(m-1).Skip(1).Take(n-2).Sum;
Writeln('Сумма по периметру ',s)
end.
Пример
Количество строк в матрице: 4
Количество столбцов в матрице: 5
*** Исходная матрица [4,5] ***
87 -67 11 59 46
-13 86 -74 20 -98
-74 24 6 51 74
26 -93 36 40 66
Сумма по периметру 100
// Внимание! Если программа не работает, обновите версию!
function GetDiagNeganives(a:array[,] of integer):sequence of integer;
begin
for var i:=0 to a.RowCount-1 do
if a[i,i]<0 then yield(i)
end;
function GetSumm(a:array[,] of integer; t:sequence of integer):integer;
begin
Result:=0;
foreach var e in t do
Result+=a.Row(e).Sum
end;
procedure MatrixWrite(a:array[,] of integer);
begin
var n:=a.RowCount;
Writeln('*** Исходная матрица [',n,',',n,'] ***');
a.Println(4); Writeln(4*a.ColCount*'-')
end;
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
var a:=MatrRandom(n,n,-99,99);
MatrixWrite(a);
var s:=GetDiagNeganives(a);
Writeln('S=',GetSumm(a,s))
end.
Пример
Количество строк/столбцов в матрице: 5
*** Исходная матрица [5,5] ***
-31 -1 -29 -69 -19
-83 84 52 42 52
13 -24 -70 98 -33
60 -94 -84 19 -14
-55 81 -36 57 98
S=-165