Алгоритмы обработки массивов

Дома:
Разработать алгоритм
и отладить программу
построения таблицы
Пифагора

Z=

Несколько
операторов

Пример: TYPE
DIAP=1..5;
VECTOR = array[DIAP] of real;
PRIZ = array[Boolean] of char;
VAR D: array[3..8] of byte;
p : priz; V: vector;

TYPE
VECTOR= array[1..5] of real;
MATRIX= array[1..10] of VECTOR;
или
MATRIX= array[1..10] of array[1..5] of real;
или
MATRIX= array[1..10,1..5] of real;

Структуры задания n-мерного массива
Array[диап. инд.1] of array[диап. инд.2 ]of…
of array [диап. инд. N] of[простой тип];
Array[Диап.1,диап.2,…, диап. N] OF <простой тип>;

Var
V: array [0..10,`A`..`C`, Boolean] of char; {разные типы диапазонов}

B[3] V[1,`B`, False] M[1,1]
V[1] [`B`] [False] P[True]

M [i, j] M [2+i,i+5] M [2, 4] M [i] [j]

FOR i:=1 TO 10 DO B [i]:= 0;
Var X: PACKED Array[1..10] of real;

К типу массив применима лишь
одна операция присваивания
А:=В;

N-1
S10 = Σ ai2i
i=0

1 0 1 1
23 22 21 20
а3 а2 а 1 а 0
23.1+22.0+21.1+20.1=
8 + 0 + 2 + 1 =11

CONST
C1:integer=311; {простые типы}
C2:real=3.14;
C3:boolean=false;
C4:char='A';
C5:string='строка'; {строковый тип}

vector:array[0..4] of byte=(0,1,2,3,4);

vec:array[-1..2] of char='abcd'; или vec:array[-1..2] of char=('a','b','c','d');

При объявлении многомерных констант-массивов множество констант заключается в скобки

CONST
matr:array[1..2,1..4] of byte=((0,1,2,3),(4,5,6,7)); cub:array[0..1,1..2,1..3] of byte=(((0,1,2),(3,4,5)),
((6,7,8),(9,10,11)));

Константы-записи
<идентификатоp>:<тип_записи >=(<список зн.полей>)

Список значения полей имеет вид - <имя_поля>:<константа>

Дома:
1) Разработать алгоритм и отладить программу
Нахождения элемента, ближайшего к среднему в одномерном массиве
2) Написать программу перевода целого десятичного числа в двоичную систему счисления

TYPE point= record
x, y: real;
end;
CONST t: point =(x:0; y: -1);