Дана последовательность для алгоритма Лемпела- Зива: 10010110 Даны числа: 0,084 ; 0,168 ; 0,336 ; 0,0336 ; 0,3784.
Задача номер 2:
Последовательность данных формируется путем повтора восьми бит, указанных в таблице в столбце «Последовательность для алгоритма Лемпела- Зива».
Закодировать полученную последовательность, заполнив первые 16 строк словаря. В ответе указать размер кода фразы и закодированную последовательность.
На каждый следующий день спортсмен пробегает в
большее расстояние чем в предыдущий.
Т.е. если обобщить:
Расстояние, которое спортсмен пробегает каждый n-ный день.
В итоге, у нас получилась геометрическая прогрессия, где
Чтобы найти сумму первых n членов геометрической прогрессии:
В программе пишем:
_________________________
var
i:integer;
k:double;
begin
k:=1.1;
for i:=1 to 6 do k:=k*1.1;
writeln(100*(k-1):0:2);
end.
__________________________
begin
writeln('Введите количество часов в первом моменте времени');
readln(a);
writeln('Введите количество минут в первом моменте времени');
readln(b);
writeln('Введите количество секунд в первом моменте времени');
readln(c);
writeln('Введите количество часов во втором моменте времени');
readln(a1);
writeln('Введите количество минут во втором моменте времени');
readln(b1);
writeln('Введите количество секунд во втором моменте времени');
readln(c1);
s:=abs(a*3600+b*60+c-a1*3600-b1*60-c1);
writeln(s,' секунд');
end.
2)var a,b:integer;
s:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if (a+b) mod 2 =0 then s:=a*b
else s:= a/b;
writeln(s);
end.
3)var b,s,n:real;
begin
writeln('Введите количество часов');
readln(n);
n:=n/3;
s:=2*power(2,(n-1));
writeln(s,' амёб');
end.
4)var a:array[1..7]of integer;
i:integer;
begin
for i:=1 to 7 do
begin
a[i]:=random(11);
writeln('a[',i,']= ',a[i]);
end;
end.