(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 32 * 40 * 48 = 61440 шт
i = 8 бит
I - ?
Решение:
I = K * i = 61440 * 8 бит = 491520.0 бит
491520.0 бит = 61440.0 байт = 60.0 Кбайт
Var a:array[0..999] of integer;
n,i,p,max,c,d,t,j,k:integer;
begin
write ('Введите кол-во элементов в массиве: ');
readln (n);
p:=1;
d:=0;
write ('Массив: ');
for i:=1 to n do
begin
a[i]:=random(101)-50;
write (a[i],' ');
end;
max:=a[1];
for i:=1 to n do
begin
c:=abs(a[i]);
if c>max then max:=c;
if (a[i]<0) and (i mod 2 <> 0) then p:=p*a[i];
end;
WRITELN;
writeln ('Максимальный по модулю элемент = ',max);
writeln ('Произведение отрицательных нечётных элементов = ',p);
for i:=1 to n do
begin
if i mod 2 = 0 then write (a[i],' ');
end;
end.
Занятия большинства кружков рассчитаны на старшеклассников, но и есть и такие, где предлагают курсы для самых младших школьников. Программа обучения зависит от возраста учащихся. Самые юные программисты изучают основы, программируют простейшие графические объекты. Начиная с 6-7 класса ученики осваивают языки C+, Java, Python, Pascal, Delphi а также занимаются программированием сайтов и мобильных устройств.
К окончанию 11 класса многие участники кружков осваивают несколько языков программирования и изучают предметы IT-блока в объеме 1 курса профильных вузов. Неотъемлемая часть обучения — участие в олимпиадах по информатике и программированию разного уровня, разработка собственных проектов и их презентация на профильных конкурсах.
Посещение кружков также можно рассматривать как форму довузовской подготовки на IT-специальности, нередко в программу обучения включены элементы ЕГЭ по информатике. Выпускники кружков программирования, в основном, ориентированы на поступление на факультет ВМиК МГУ, в МИФИ, МФТИ, МГТУ им. Баумана. Нередко именно они становятся победителями Всероссийской олимпиады школьников по информатике и поступают в эти вузы вне конкурса. В обзоре «Учёбы.ру» — 9 кружков, где могут заниматься программированием школьники с 3 по 11 класс.
Вроде бы так, но когда программа выполняется, то из-за такого большого кол-ва клеток (1000х1000) все отображается как один черный квадрат ))) если сделать кол-во поменьше (например 100х100), то клетки будут видны (скрин).
uses graphABC;
var
w, h, i: integer;
begin
setwindowsize(1010, 1010);
w := windowwidth div 1000;
h := windowheight div 1000;
for i := 1 to 1000 do
begin
line(i * w, 0, i * w, windowheight);
line(0, i * h, windowwidth, i * h);
end;
end.
