выписываешь все уникальные(?) символы, которые есть в предложении.
Аисх = {С, Т, О, И, П, Н, А, К, Е, Л, пробел, запятая};
считаешь их общее количество.
Mисх = 12;
смотрим формулу.
М = (это та же формула N = , просто буковки другие, да)
подставляем число 12 под М, но т.к. тут такая непонятная штука со степенью, то подставляем наименьшее целое i, удовлетворяющее следующему неравенству: M <
теперь подставим известное значение мощности исходного алфавита:
12 < , следовательно i = 4(бит). тройка быть не может, т.к. = 8, а 8 < 12.
теперь каждому символу самостоятельно присваиваешь уникальную кодовую комбинацию. удобнее всего это сделать в виде таблицы. например:
С Т О
0010 1111 0100 и т.д.
теперь пишешь в строчечку все эти комбинации.
001011110100........ не забудь про пробелы и запятые.
чтобы рассчитать объем полученного текстового файла, тебе нужно общее количество символов предложения (34) умножить на 4 бита. это и будем объемом полученного файла.
*если что, то в строчку нужно писать комбинации символов всего предложения, а не только этих 12.
Program zadacha3; var V, Vo,a ,b, t, c, H: integer; begin writeln('моя программа вычисляет скорость при равноускоренном движении'); writeln('введите начальную скорость'); readln(a); writeln('введите ускорение'); readln(a); writeln('введите время'); readln(t); writeln('введите шаг'); readln(H); for b:=t to c do begin t:=t+H; V:=Vo+a*t; end; writeln('скорость равна V:= ',V); end.
После эндом на закрытии цикла не стояло точки с запятой, и где у тебя написано в третей строчке снизу 7V, что это я так и не понял? Я убрал оттуда семёрку, если не так то поменяй, я в формулу не вдавался. И у тебя ответ в цикле стоит я не знаю так должно быть или нет, обрати внимание на это, в своём варианте я переставил ответ на после цикла
Объяснение:
выписываешь все уникальные(?) символы, которые есть в предложении.
Аисх = {С, Т, О, И, П, Н, А, К, Е, Л, пробел, запятая};
считаешь их общее количество.
Mисх = 12;
смотрим формулу.
М =
(это та же формула N = 
, просто буковки другие, да)
подставляем число 12 под М, но т.к. тут такая непонятная штука со степенью, то подставляем наименьшее целое i, удовлетворяющее следующему неравенству: M <
теперь подставим известное значение мощности исходного алфавита:
12 <
, следовательно i = 4(бит). тройка быть не может, т.к. 
= 8, а 8 < 12.
теперь каждому символу самостоятельно присваиваешь уникальную кодовую комбинацию. удобнее всего это сделать в виде таблицы. например:
С Т О
0010 1111 0100 и т.д.
теперь пишешь в строчечку все эти комбинации.
001011110100........ не забудь про пробелы и запятые.
чтобы рассчитать объем полученного текстового файла, тебе нужно общее количество символов предложения (34) умножить на 4 бита. это и будем объемом полученного файла.
*если что, то в строчку нужно писать комбинации символов всего предложения, а не только этих 12.
надеюсь, все правильно и понятно.
var V, Vo,a ,b, t, c, H: integer;
begin
writeln('моя программа вычисляет скорость при равноускоренном движении');
writeln('введите начальную скорость');
readln(a);
writeln('введите ускорение');
readln(a);
writeln('введите время');
readln(t);
writeln('введите шаг');
readln(H);
for b:=t to c do
begin
t:=t+H;
V:=Vo+a*t;
end;
writeln('скорость равна V:= ',V);
end.
После эндом на закрытии цикла не стояло точки с запятой, и где у тебя написано в третей строчке снизу 7V, что это я так и не понял? Я убрал оттуда семёрку, если не так то поменяй, я в формулу не вдавался.
И у тебя ответ в цикле стоит я не знаю так должно быть или нет, обрати внимание на это, в своём варианте я переставил ответ на после цикла