Решение задачи ещё актуально? Лично я сейчас тестирую загрузку текстовых данных отличных от картинок )). Если листинг программы загрузится, чудесно, ознакамливайтесь кому интересно.
В оригинале файл называется script.php.txt, кодировка файла UTF-8, язык программирования PHP.
Из работы оценочного алгоритма можно увидеть почему последовательности на основе GGB самые эффективные, а остальные являются лишь инверсиями, смещениями или объединениями того и другого.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.ToWords.Count.Println
end.
<h2>Пример</h2>
Наша Маша громко плачет уронила в речку мячик
8
Если 128*128 - разрешение, 8кбайт - объём, то возможно N - глубина
8*1024(*8 бит в байте)/(128*128) = 4 бита
Если цепочки две, то выводится ближайшая. Пойдет?
//t1.txt должен быть в папке с программой
//Pascal
var
f: text;
numValue, Counts, n, c, t, i: integer;
begin
assign(f, 't1.txt');
reset(f);
Counts := 0;
c := 0;
while not eof(f) do
begin
readln(f, n);
if (c = 0) or (n = t) then
c := c + 1
else
c := 1;
t := n;
if c > Counts then
begin
Counts := c;
numValue := n
end
end;
close(f);
assign(f, 't2.txt');
rewrite(f);
writeln('Длина цепочки: ', Counts);
for i := 1 to Counts do
writeln(f, numValue);
close(f)
end.
Изучение задачи, которую нужно решить через программу
<span> 1. </span>Определение:
-исходных данных
- результат
2. алгоритм будущей программы
3. создание программы
4. тестирование("контрольные точки" рассчитываются "руками" )
5. устранение ошибок