var
a:array[1..12] of integer;
i:integer;
begin
randomize;
writeln('Сгенерированный массив:');
for i := 1 to 12 do
begin
a[i] := random(36) - 15;
write(a[i], ' ');
end;
writeln;
end.
//вторая программа
const
n = 8;
var
a:array[1..n] of integer;
i, count3, count4, count5:integer;
begin
randomize;
writeln('Оценки учеников:');
for i := 1 to n do
begin
a[i] := random(3) + 3;
write(a[i], ' ');
if a[i] = 5 then
inc(count5);
if a[i] = 4 then
inc(count4);
if a[i] = 3 then
inc(count3);
end;
writeln;
writeln('Троек - ', count3);
writeln('Четверок - ', count4);
writeln('Пятерок - ', count5);
end.
//третья программа
var
k:array[1..12] of integer;
i:integer;
begin
randomize;
writeln('Сгенерированный массив:');
for i := 1 to 12 do
begin
k[i] := random(36) - 15;
write(k[i], ' ');
end;
writeln;
writeln('Преобразованный массив:');
for i := 1 to 12 do
begin
k[i] := k[i] * (-1);
write(k[i], ' ');
end;
end.
var
a, b, c:real;
begin
write('A = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
if abs(A - B )< abs(A - C) then
writeln('точка B расположена ближе к точке А, чем точка С. Расстояние от А до B: ', abs(A - B))
else
if abs(A - B ) > abs(A - C) then
writeln('точка С расположена ближе к точке А, чем точка B. Расстояние от А до С: ', abs(A - C))
else
writeln('Точки B и C находятся на одинковом расстоянии от точки А равном: ', abs(A - C));
end.
Задача1.
Дано: N=256
Найти: i= ?
Решение : 2^i=N (2^i=256 , 256=2^8 , то есть i=8 бит )
Задача2.
Дано: N=16 ; k=20*20
Найти: V=?
Решение : V=i*k; 2^i=16 --> i=4 бит ; V=4*20*20=1600 бит .
Задача 3.
Дано: k=256*128 ; N=128
Найти: V=? Кб
Решение: (таже формула , что и сверху ) i=7 бит
V=7*256*128=229376 бит
теперь переводим в КилоБайты ( 229376 /8 =28672 (байт) ; 28672 / 1024 = 28 Кб.
Задача 4.
Дано: V=96 байт (768 бит ) ; N=24
Найти : k=?
Решение : V=i*k отсюда k= V/i (в данном случае i не знаю как вывести )
k=768/24=32 ( пикселей в изображении).
Задача 5.
Дано: k=128*64 ; V=16 Кб(131072 бит )
Найти: N=?
Решение: V=i*k ; i=V/k (131072/ 128*64=16 ).