Определить основные функции табличной модели, количество правильных ответов: 2 хранения и обработки графической информации сортировка данных для программного кода форматирование данных по критериям расчет данных по формулам
begin var a: array[1..N] of real; var i: integer; var growing: boolean;
for i := 1 to N do begin readln(a[i]); end;
growing := true;
for i := 2 to N do begin if a[i] <= a[i - 1] then begin growing := false; break; end; end;
writeln(growing); end.
const m = 5; const n = 4; const limit = 100;
begin var matrix: array[1..m] of array[1..n] of real; var matrixb: array[1..m - 1] of array[1..n - 1] of real; var row, col, rb, cb, lowest_row, lowest_col: integer; var lowest: real; var p: boolean;
lowest := limit;
for row := 1 to m do begin for col := 1 to n do begin matrix[row][col] := random(limit - 1); if matrix[row][col] < lowest then begin lowest := matrix[row][col]; lowest_col := col; lowest_row := row; end; write(matrix[row][col], ' '); end; writeln(''); end;
writeln(''); writeln(lowest); writeln('');
rb := 1;
for row := 1 to m do begin p := false; cb := 1; for col := 1 to n do begin if (not (col = lowest_col)) and (not (row = lowest_row)) then begin p := true; matrixb[rb][cb] := matrix[row][col]; cb := cb + 1; end; end; if p then begin rb := rb + 1; end; end;
for rb := 1 to m - 1 do begin for cb := 1 to n - 1 do begin write(matrixb[rb][cb], ' '); end; writeln(''); end;
8. Информационный вес одной точки (бит) = объем файла(бит)/кол-во пикселей= (1*1024*1024*8)/(1024*512) = 16 бит
9. Количество пикселей на см: 600/2,54 = 236,22 (в 1 дюйме - 2.54 см) Количество пикселей по высоте: 10*236,22= 2362 (и столько же получится по ширине) Объем файла = общее кол-во пикселей*глубину цвета = 2362*2362*32= 178529408 бит = 22316176 байт = 21793 Кб= 21,28 Мб
begin
var a: array[1..N] of real;
var i: integer;
var growing: boolean;
for i := 1 to N do begin
readln(a[i]);
end;
growing := true;
for i := 2 to N do begin
if a[i] <= a[i - 1] then begin
growing := false;
break;
end;
end;
writeln(growing);
end.
const m = 5;
const n = 4;
const limit = 100;
begin
var matrix: array[1..m] of array[1..n] of real;
var matrixb: array[1..m - 1] of array[1..n - 1] of real;
var row, col, rb, cb, lowest_row, lowest_col: integer;
var lowest: real;
var p: boolean;
lowest := limit;
for row := 1 to m do begin
for col := 1 to n do begin
matrix[row][col] := random(limit - 1);
if matrix[row][col] < lowest then begin
lowest := matrix[row][col];
lowest_col := col;
lowest_row := row;
end;
write(matrix[row][col], ' ');
end;
writeln('');
end;
writeln('');
writeln(lowest);
writeln('');
rb := 1;
for row := 1 to m do begin
p := false;
cb := 1;
for col := 1 to n do begin
if (not (col = lowest_col)) and (not (row = lowest_row)) then begin
p := true;
matrixb[rb][cb] := matrix[row][col];
cb := cb + 1;
end;
end;
if p then begin
rb := rb + 1;
end;
end;
for rb := 1 to m - 1 do begin
for cb := 1 to n - 1 do begin
write(matrixb[rb][cb], ' ');
end;
writeln('');
end;
end.
9. Количество пикселей на см: 600/2,54 = 236,22 (в 1 дюйме - 2.54 см)
Количество пикселей по высоте: 10*236,22= 2362
(и столько же получится по ширине)
Объем файла = общее кол-во пикселей*глубину цвета = 2362*2362*32= 178529408 бит = 22316176 байт = 21793 Кб= 21,28 Мб
10. Аналогично предыдущей задаче:
750/2.54= 295,27
32*295,27= 9448
9448*9448*64= 5712941056 бит= 714117632 байт= 697380,5 Кб = 681Мб
11. Вопрос не до конца сформулирован, видимо необходимо найти время передачи данных.
Тогда: время за которое передастся файл=объем файла (бит)/скорость передачи данных(бит/сек.) = (10*1024*1024*8)/2500000= 33,55 сек.