1. Составьте таблицу, описывающую критерии качества современного программного обеспечения , характеристики его деятельности, заполните таблицу. 2Какие виды ПО компании бесплатно предоставляет пользователям для рекламы своей продукции?
Const n = 10; var matrix : array [1..n] of array [1..n] of integer; i, j, max : integer; begin {формирование матрицы} for j := 1 to n do begin if j <= Trunc(n / 2) then {находим последний индекс для вставки 1} max := j else max := n - j + 1; for i := 1 to max do {заполняем линию единицами} begin matrix[j][i] := 1; matrix[j][n - i + 1] := 1; end; end; {вывод матрицы (если не нужно, удалите код)} for j := 1 to n do begin for i := 1 to n do write(matrix[j][i], ' '); writeln; end; end.
1) 513 =512+1 =2^9+2^0 =1000000001 (2) число разбиваем на суммы слагаемых степеней числа 2 (например, число 99=64+35=64+32+3=64+32+2+1=2^6+2^5+2^1+2^0=1100011(2) ) 2) делим на 2, пока не получим число меньше 2 то есть 1 (дробная часть отбрасывается)
513 256 128 64 32 16 8 4 2 1 если четно внизу пишем 0 иначе 1 1 0 0 0 0 0 0 0 0 1 собираем цифры с конца на начало
n = 10;
var
matrix : array [1..n] of array [1..n] of integer;
i, j, max : integer;
begin
{формирование матрицы}
for j := 1 to n do
begin
if j <= Trunc(n / 2) then {находим последний индекс для вставки 1}
max := j
else
max := n - j + 1;
for i := 1 to max do {заполняем линию единицами}
begin
matrix[j][i] := 1;
matrix[j][n - i + 1] := 1;
end;
end;
{вывод матрицы (если не нужно, удалите код)}
for j := 1 to n do
begin
for i := 1 to n do
write(matrix[j][i], ' ');
writeln;
end;
end.