[09:55, 12.05.2021] Информатик : Работа №1 1. В электронной таблице значение формулы =СУММ(С3:Е3) равно 21. Чему равно значение формулы =СРЗНАЧ(С3:F3), если значение ячейки F3 равно 15?
2. У исполнителя Никита две команды, которым присвоены номера: 1. прибавь 1; 2. умножь на 2. Первая из них увеличивает число на экране на 1, а вторая удваивает его. Например, 2122 — это программа “умножь на 2 прибавь 1 умножь на 2 умножь на 2”,
которая преобразует число 1 в число 12. Запишите порядок команд в программе преобразования числа 14 в число 73, содержащей не более 7 команд, указывая лишь номера команд. Если таких программ более одной, то запишите любую из них.
3. Напишите программу вычисления среднего геометрического трёх случайных целых чисел, принадлежащих промежутку [1;23]. Результатом работы программы должна быть строка, в которой через пробел указаны первое число, второе число, третье число и их среднее геометрическое.
Работа №2
1. При регистрации в компьютерной системе каждому пользователю выдаётся пароль, состоящий из 8 символов и содержащий только символы Н, И, К, Т, А. Каждый такой пароль в компьютерной программе записывается минимально возможным и одинаковым целым количеством байт, при этом используют посимвольное кодирование и все символы кодируются одинаковым и минимально возможным количеством бит. Определите, сколько байт необходимо для хранения 20 паролей.
2. Напишите программу, заполняющую массив из одиннадцати чисел так, чтобы первый элемент был равен 7, а каждый следующий - произведению его номера и значения предыдущего элемента.
3. Напишите программу, создающую массив из восьми целых случайных чисел в промежутке [-20;20] и находящую сумму отрицательных элементов этого массива.
Объяснение: Настольный теннис — олимпийский вид спорта, спортивная игра с мячом, в которой используют специальные ракетки и игровой стол, разграниченный сеткой пополам. Игра может проходить между двумя соперниками или двумя парами соперников. Задачей игроков является удерживать мяч в игре при ракеток — каждый игрок после одного отскока мяча на своей половине стола должен отправить мяч на половину стола соперника. Очко начисляется игроку или паре игроков, когда соперник не может вернуть мяч в соответствии с правилами. Каждая партия продолжается до 11 очков, матч состоит из нечётного количества партий, и играется на большинство побед в партиях.
procedure TfrmMain.FindFilesOnDisk(Dir : string);
var SR : TSearchRec;
Err : integer;
i, j : integer;
st : string;
begin
if (Dir[Length(Dir)] <> '\') then Dir := Dir + '\';
Err := FindFirst(Dir + '*.*', faAnyFile, SR);
while Err = 0 do
begin
j := 0;
st := AnsiUpperCase(SR.Name);
if lbDirs.Items.Count > 0 then //Если в списке есть каталоги
//Проверить, нет ли среди них
for i := 0 to lbDirs.Items.Count - 1 do
if lbDirs.Items[i] = st then //найденного
begin
j := 1;
break;
end; //if lbDirs.Items[i] = st then
if j = 0 then
begin
if (SR.Name <> '.') and
(SR.Name <> '..') and
((SR.Attr and faDirectory) <> 0) then
begin
inc(NumDir);
DirList.Add(Dir + st);
frmMain.sbMain.Panels[1].Text := IntToStr(NumDir);
pbFind.Position := NumDir;
Application.ProcessMessages;
FindFilesOnDisk(Dir + SR.Name);
end; //if (SR.Name <> '.') and
end; //if j = 0 then
Err := FindNext(SR);
end;
end;
Объяснение: