Автор | Сообщение |
|
Отправлено: 12.04.21 17:20. Заголовок: 24
В текстовом файле k8-0.txt находится цепочка из символов, в которую могут входить заглавные буквы латинского алфавита A…Z и десятичные цифры. Найдите длину самой длинной подцепочки, состоящей из одинаковых символов. Если в файл несколько цепочек одинаковой длины, нужно взять первую из них. Выведите сначала символ, из которого строится эта подцепочка, а затем через пробел – длину этой подцепочки. цитата: | Подскажите, в чём ошибка? |
| var f:text; z,tek,pred: char; kol,max:integer; begin assign (f,'C:\Users\Admin\Desktop\EWTF.txt'); reset(f); read (f,pred); kol:=1;z:=pred;max:=0; while not eof (f) do begin read (f,tek); if tek=pred then kol:=kol+1 else begin if kol>max then begin max:=kol; z:=pred; end; kol:=1; end; pred:=tek;end; if kol>max then begin max:=kol; z:=pred; end; writeln(z,'',max); close (f); end.
|
|
|
Ответов - 3
[только новые]
|
|
|
| Администратор
|
Сообщение: 2697
|
|
Отправлено: 12.04.21 21:01. Заголовок: Думаю, что сначала л..
Думаю, что сначала лучше поставить отступы нормально. Так очень сложно что-то понять в программе.
|
|
|
|
Отправлено: 28.04.21 14:27. Заголовок: Кэйт пишет: Подскаж..
Кэйт пишет: цитата: | Подскажите, в чём ошибка? |
| А почему Вы решили, что здесь ошибка? Скопировал код из вопроса, подправил путь к файлу и программа запустилась. Конечно, если бы самая длинная цепочка замыкала файл, то ответ был бы неверным.
|
|
|
|
Отправлено: 04.05.21 16:11. Заголовок: GasDM пишет: Конечн..
GasDM пишет: цитата: | Конечно, если бы самая длинная цепочка замыкала файл, то ответ был бы неверным. |
| Всё было бы нормально. Обратите внимание на конец кода после посимвольного чтения файла if kol > max then writeln(z, '', max);close(f);
|
|
|
|