Выполните для примера 18.3. 1. выполните программу несколько раз. уберите прозрачную заливку. объясните, почему некоторые окружности не видны. 2. внесите в программу такие изменения, чтобы можно было изобразить 20 кругов; 100 кругов. 3. какой максимальный размер может иметь радиус круга в
программе? внесите в программу изменения так, чтобы рисовались круги с радиу- сом не более 20. количество кругов установите равным 10 000. 4. внесите изменения в программу так, чтобы пользователь мог вводить количество отображаемых на экране кругов. пример 18.3. v. программа: uses graphabc;
var x,y,r: integer; begin setpenwidth(3); setbrushstyle(bsclear); for var i: = 1 to 10 do begin x : = random(600); y : = random(400); r : = random(150); setpencolor(clrandom); circle(x,y,r); end; end.

16 символов

Объяснение:

I = К * i, где

I - информационный объём сообщения (документа)

К - количество символов в сообщении (документе)

i - информационный вес символа (количество бит, которым кодируется 1 символ)

N = 2^i, где

N - мощность алфавита (количество символов в алфавите)

i - информационный вес символа (количество бит или байт, которым кодируется 1 символ)

Дано:

K = 10 страниц * 305 символов = 3050 символов

I = 1 525 байт = 12 200 бит

Найти:

N

I = К * i

i = I / K

i = 12 200 / 3050 = 4 бит

N = 2^4 = 16 символов

1 байт = 8 бит

var a: string;

begin

write ('Введите слово: '); read (a);

writeln ('Именительный падеж: ',copy(a,1,length(a)));

writeln ('Родительный падеж: ',copy(a,1,length(a)-1),'ы');

writeln ('Дательный падеж: ',copy(a,1,length(a)-1),'е');

writeln ('Винительный падеж: ',copy(a,1,length(a)-1),'у');

writeln ('Творительный падеж: ',copy(a,1,length(a)-1),'ой');

writeln ('Предложный падеж: ',copy(a,1,length(a)-1),'е');

end.

Основной момент, это удаление окончания путем копирования слова в строке a начиная с первого символа, до длины слова минус 1 символ.

Объяснение: