Текстовый файл состоит не более чем из 1200000 символов x y z
Текстовый файл 24-197.txt содержит строку из заглавных латинских букв X, Y и Z, всего не более чем из 106 символов. Определите максимальное количество идущих подряд троек символов X*X или Y*Y, где * обозначает один любой символ.
ЕГЭ задание 24 Определите максимальное количество идущих подряд символов
Текстовый файл 24-157.txt состоит не более чем из 106 символов и содержит только заглавные буквы.
Определите максимальное количество идущих подряд символов, среди которых нет подстроки XYZ
Текст задачи: Текстовый файл состоит не более чем из 1200000 символов, которые являются прописными.
Определите максимальное количество идущих подряд символов, среди которых каждые два соседних различны
Текстовый файл состоит не более чем из 106 символов X, Y и Z. Определите максимальное количество.
Определите максимальное количество идущих подряд символов, среди которых каждые два соседних различны
Доброго времени суток! На этот раз задание иное. Текстовый файл состоит не более чем из.
Cпасибо огромное, разобралась
Добавлено через 1 минуту
Gdez, а можете мне ещё помочь?
Вот такая программа:
текст задачи:Текстовый файл 24-197.txt содержит строку из заглавных латинских букв X, Y и Z, всего не более чем из 106 символов. Определите максимальное количество идущих подряд троек символов X*Y или Z*Y, где * обозначает один любой символ.
Не понимаю почему 19 у меня , а в ответе 20
Marysia, именно ее и исправлял - так как алгоритм счетчика нужен другой, и условие сократил
Кстати, этот код для первой задачи "вернее" предыдущего (за счет i = i - 2), и условие в первой задаче можно сократить до:
Добавлено через 12 минут
i = i - 2 -> используется, если были X*Y или Z*Y перед этим - нужно "откатить" на два индекса назад
Например, XXY YXZ YXX YZZ YYY(пробелы для визуализации "троек")
Ваш код "поймает" -> XXY Y XZY XXY ZZYYY => получились 2 тройки подряд
Мой -> в начале XYY, следующая тройка YXZ не подходит под условие, возвращаемся на две позиции назад -> (x)XY YXZ YXX YZZ YYY -> XYY XZY XXY ZZY YY => 4 тройки
Определить максимальное количество идущих подряд символов, расположенных в алфавитном порядке
Вообще 0 мыслей о том как это решить, помогите пожалуйста. Текстовый файл состоит не более чем.
Максимальное количество подряд идущих значений
Необходимо посчитать для каждого символа в строке максимальное количество подряд идущих значений. .
Посчитайте максимальное количество подряд идущих нулей
1. Дан одномерный массив А, состоящий из N элементов. Посчитайте максимальное количество подряд.
Наибольшее количество символов идущих подряд
Добрый вечер, помогите с заданием. Есть записанный в файл текст. Нужно определить наибольшее число.
Найти наибольшее количество подряд идущих одинаковых символов
Задача: "Дан текст, который пользователь должен ввести в программу, найти и вывести наибольшее.
В последовательности символов подсчитать наибольшее количество идущих подряд пробелов
Даны натуральное число n, символы s1 … sn . Подсчитать наибольшее количество идущих подряд.
Текст задачи:
Текстовый файл состоит не более чем из 1200000 символов, которые являются прописными буквами латинского алфавита. Определите максимальное количество идущих подряд символов, среди которых нет подстроки XYZ. Для выполнения этого задания следует написать программу.
Мой код выводит число 304, а правильным ответом является число 305. Помогите, пожалуйста, решить проблему
Определите максимальное количество идущих подряд символов, среди которых каждые два соседних различны
Доброго времени суток! На этот раз задание иное. Текстовый файл состоит не более чем из.
Определите максимальное количество идущих подряд символов, среди которых каждые два соседних различны
Текстовый файл состоит не более чем из 106 символов X, Y и Z. Определите максимальное количество.
ЕГЭ задание 24 Определите максимальное количество идущих подряд символов
Текстовый файл 24-157.txt состоит не более чем из 106 символов и содержит только заглавные буквы.
у меня вообще 301 получилось. может скопировал не все. но простая проверка на строке дает правильный результат
Определите максимальное количество подряд идущих положительных элементов последовательности
Здравствуйте. Я на этом сайте новичок. Если этот вопрос уже задавался ранее, то не ругайте сильно.
Определить максимальное количество идущих подряд символов A
Всем доброго времени суток! Хотел бы попросить помощи у знатоков по С++, как сделать следующее.
Определить максимальное количество одинаковых символов, идущих подряд
Ввести строку с клавиатуры. Определить максимальное количество одинаковых символов, идущих подряд.
Максимальное количество символов подряд из подстроки входящие в строку
Здравствуйте. Задача найти максимальное количество символов подряд из подстроки входящие в строку.
Определить максимальное количество идущих подряд символов, расположенных в алфавитном порядке
Вообще 0 мыслей о том как это решить, помогите пожалуйста. Текстовый файл состоит не более чем.
Вообще 0 мыслей о том как это решить, помогите пожалуйста.
Текстовый файл состоит не более чем из 10 6 символов x, y, z.
Определите максимальное количество идущих подряд символов, расположенных в алфавитном порядке(возможно с повторением символов).
Ответ: 15
Определить максимальное количество одинаковых символов, идущих подряд
Ввести строку с клавиатуры. Определить максимальное количество одинаковых символов, идущих подряд.
Дана строка символов. определить максимальное количество идущих подряд одинаковых слов в строке.
Дана строка символов. определить максимальное количество идущих подряд одинаковых слов в строке. .
Описать функцию, которая подсчитывает максимальное количество символов, идущих подряд в строке
Добрый день! Дали задание, но не совсем ясно, а выполнить надо. Просьба написать: a)функцию.
Определить максимальное количество идущих подряд списков
Для заданного списка определить максимальное количество идущих подряд списков. Добавлено через.
Решение
Ну и мои стандартные 5 копеек
Некоторые адепты "re" утверждают, что регуляркой можно заменить чуть ли не все операторы в кодах. Ну почти все.
В общем смысле, да. Регулярка - это конечный автомат.
На деле же это будет монструозная, практически непонимаемая и неподдерживаемая регулярка
С виду как brainf_ck, только еще страшнее
Добавлено через 3 минуты
А, если вообще любые - диапазон по всей аски (ну окромя спецсимволов), и флаг убрать
Добавлено через 34 секунды
Но это костыль. Надо подумать
iSmokeJC, получается в подобных задачах в том числе можно, пройдясь по последовательности, составить логический массив; потом сжать его в строку и через регулярку найти максимальную последовательность из 1.
Спасибо
Некоторые адепты "re" утверждают, что регуляркой можно заменить чуть ли не все операторы в кодах. Ну почти все.
Только почти, т. к. регулярки - не Тьюринг-полные. Вот BF да, но там заманаешься реализовывать все основные алгоритмы: от условий и циклов до умножения и деления + нельзя в основной интерпретации объявлять функции.
Определить максимальное количество идущих подряд атомов
пытаюсь написать программу, которая для списка определяет максимальное количество идущих подряд.
Определить максимальное количество идущих подряд нулей
Для заданного списка определить максимальное количество идущих подряд нулей. Спасибо.
Определить максимальное количество подряд идущих положительных элементов
Здравствуйте, нужна помощь в решении задачи. Буду очень благодарен! В массиве A(N) определить.
Определить максимальное количество идущих подряд чётных чисел
Как определить максимальное количество идущих подряд чётных чисел для такого, к примеру, ряда.
Определить максимальное количество подряд идущих положительных чисел
В заданном списке определить максимальное количество подряд идущих положительных чисел.
Определите максимальное количество идущих подряд символов, среди которых каждые два соседних различны
Текстовый файл состоит не более чем из 106 символов X, Y и Z. Определите максимальное количество.
Данил Цветов
К счастью, на ЕГЭ давно в задачах разные варианты ЯП предоставляются. Python - если тебе важен факт сдать экзамен, и желательно минимальными усилиями; C/C++ - если тебе всё кажется лёгким и ты хочешь хоть немного интереса у себя вызвать к экзамену; Pascal - это если ты любитель чинить двигатели, но через выхлопную трубу.
Данил, хз, если говорить про дельфи, то ООП там нормально прикручен, первую работу на нем вспоминаю без отвращения. Обычный паскаль да, слишком "базовый".
Данил, как я понимаю, просто высер про паскаль, ни чего не зная о нём? Аргументов как всегда не будет?
> C/C++ - если тебе всё кажется лёгким и ты хочешь хоть немного интереса у себя вызвать к экзамену
C/C++ для души, а не для "усложнения"
Данил Цветов ответил Романтику
Romantik, Паскаль был мой первый язык программирования, ещё в 2014 году. Я сам его учил и разрабатывал на нём то, что в голову придёт, в течении ~полгода. После чего я наконец-то накопил на книгу по C++ и изучал его. Работать программистом я стал ещё до того, как поступил в универ.
Показать полностью.
Я конечно благодарен паскалю за то, что он помог мне в фундаментальных вещах разобраться (хотя в большинстве своём, я благодарен хорошо составленному учебнику по нему).
Из аргументов, не заходя во все подводные камни разработки на Паскале, мне достаточно того, что на ЕГЭ и олимпиадах нужно решать задачи, а Паскаль (как показывает опыт участия на моей первой олимпиаде используя именно Паскаль), заставляет тебя минимум половину времени решать, как обходить ограничения, которые тебе вставляет палками в колёса сам ЯП.
Да и извините, но разработка ПО на Паскале, это то ещё развлечение.
Ну, и насчёт такого поставления вопроса ко мне, дам совет, о котором не просят: лучшее работайте электриком, дешево и качественно, как заявляете на своей странице вк, не лезьте в IT. Ваш ZenGL никому не нужен, вместе с вашим паскалём.
И это не слова какого-то зумера, который не уважает старое (тем более, веду блокчейн проект на C/C++); это слова человека, который видит, как кто-то разрабатывает на МЁРТВОМ языке, тратит на это время и считает, что это не так.
Данил Цветов ответил Данилу
Данил, очень "не дельный" совет, от человека изучавшего паскаль "только где-то там" и поверхностно.
Заявляя что паскаль "мёртвый язык" - вы так же можете заявлять что "С/С++" - "мёртвый язык".
Когда человек ни чего не знает о паскале, а вспоминает как городил "огороды" для того чтоб что-то обойти, а не разобраться как работает - автоматически напрашивается вывод, что паскаль изучался только поверхностно и "убежал за технологиями".
Мой совет вам: не надо ни кому советовать, что делать, а что нет. Человек сам выберет то, что нужно ему. Не надо пред ним стелить "свою дорожку", идите по ней сами! Каждый человек выбирает тот ЯП, который подходит ему! )))
Данил Цветов ответил Романтику
Romantik, Я рассказал, что то, что я пишу - проверенно реальным опытным путём; что-то в изучении, а что-то в олимпиадах.
И полгода для паскаля, хочу признаться, это очень и очень много. И гнался я не за "технологиями", а за реальным прогрессом.
Не совсем понимаю, почему с таким суждением, вы вообще на паскале, а не двоичном коде, ПО разрабатываете.
Кстати. При всём моём уважении, из нас двоих, вы единственный, кто не сказал хоть какие-то аргументы, кроме "ты не прав, ты гнался за технологиями" и "НЕТ" на каждое моё "ДА".
Есть аргументы в пользу того, почему паскалём вообще надо пользоваться?
Данил, паскаль развивается. Поддерживает различные ОС, в том числе и возможность нативной разработки под микроконтроллеры.
Паскаль может абсолютно всё то же самое что и Си/Си++. По скорости разработки (при должных навыках и/или используя библиотеки или пользуясь компонентами) где-то быстрее чем на C/C++, по скорости работы (при должном умении, что так же относится и к C/C++) не уступает скорости работы конечного приложения.
Данил Цветов ответил Романтику
Romantik,
Для технологий важен порог вхождения. Сколько обучающего материала для разработки под микроконтроллеры с использованием Pascal? Как много библиотек есть под Pascal? Есть ли хоть что-то похожее на Boost? Я могу на нём за тот же срок реализовать какое-нибудь небольшое приложение, которое требует ещё и трёхмерную визуализацию? Ладно, чёрт с ней, трёхмерной графикой, я вообще могу написать приложение, без издевательств над собой, которое требует отличное распределение памяти?
Показать полностью.
Я не хочу даже говорить про то, как отвратительно везде выглядят спагетти из begin/end. Объявление переменных со своей строгой типизацией в отдельной секции var тоже не особо удобная, особенно для читаемости кода, фича (хотя может это субъективно). Из того, что я помню, мне не нравилась в паскаль коде перенасыщенность разными словами, вместо символов, опять же, как в случае с теми же begin/end, repeat. while, todo . then и прочее. Когда я ещё работал с паскалём, на нём не было нормальной работы с памятью и динамических массивов, сейчас, я полагаю, они есть.
Кстати. Сам создатель заявляет, что язык был в основном был разработан для изучения программирования, а не для разработки на нём ПО. Не совсем понимаю, зачем отвёрткой забивать гвозди.
Если не секрет, почему коммерческих разработок на паскале, фактически нет? Заговор или "гонятся за технологиями"?
Не скажу, что мне приносит удовольствие вас печалить, но тот факт, что человек обходит более современные и качественные технологии стороной, говорит о его ну уж очень сильной консервативности и неспособности быть конкурентным на рынке труда или даже в разработке собственного ПО [Обязательно послежу за вашей разработкой опенгл аля де паскаль на гитхабе].
На последок, не подскажете, кем работаете? Работаете ли программистом и сколько нынче паскаль/делфи разработчики получают?
На уроке рассмотрен материал для подготовки к ЕГЭ по информатике, разбор 24 задания. Объясняется тема о программной обработке символьной информации.
ЕГЭ по информатике 24 задание объяснение
24-е задание: «Программная обработка символьной информации»
Уровень сложности — повышенный,
Требуется использование специализированного программного обеспечения — нет,
Максимальный балл — 1,
Примерное время выполнения — 8 минут.
Проверяемые элементы содержания: Умение создавать собственные программы (10–20 строк) для обработки символьной информации
Выполнение 24 задания ЕГЭ
Плейлист видеоразборов задания на YouTube:
Решение
codcw, b нужно начинать с 1. И после выхода из цикла проверить b (если конец строки - годная последовательность, то она не учтется)
Работа с отдельными строками файла
24 задание с сайта К. Полякова, № 137:
Текстовый файл 24-s1.txt состоит не более чем из 10 6 заглавных латинских букв ( A..Z ). Текст разбит на строки различной длины.
Определите количество строк, в которых буква J встречается чаще, чем буква E .
Ответ: 482
begin assign(input, '24-s1.txt'); var s: string; var k := 0; while true do // бесконечный цикл begin readln(s); // считываем очередную строку if s = '' then break; // если строка пустая (т.е. достигнут конец файла), выходим if s.Count(c -> c = 'J') > s.Count(c -> c = 'E') then k += 1; end; print(k) end.
Рубрики:
Здравствуйте, подскажите, пожалуйста, что не так. У меня ни ваша программа не работает, ни своя.
Program N2;
var b, a, i : integer;
s: string;
k:text;
begin
s:=’C:\24_demo.txt’;
assign(k, s);
reset(k);
b := 1;
a := 1;
for i:=2 to Length(s) do
if (s[i]=s[i-1]) and (s[i]=’X’) then
begin
a:=a+1;
if b < a then b:=a;
end
else a:=1;
writeln(b);
end.
Своя по нахождение максимального кол-во подряд идущих символов
х. Что не так с программой?
Yatogami
Здравствуйте, в задаче №33 ваша программа
begin
assign(input, ‘Путь к файлу’);
var s: string;
read(s); // весь текст файла
var k := 0;
var c1 := ‘BCD’;
var c2 := ‘BDE’;
var c3 := ‘BCE’;
for var i := 1 to length(s) — 2 do
begin
if (s[i] in c1) and (s[i + 1] in c2) and (s[i + 2] in c3)
and (s[i] s[i + 1]) and (s[i + 1] s[i + 2]) then
k += 1
end;
print(k)
end.
Не работает в паскале (путь изменил на свой, в файл добавил символы из вашего, клоню к тому, что это не ошибка невнимательности)
И хотелось бы узнать( если можно) почему моя программа выдает неправильный результат
var count,numb,i:longint;
s:string;
f:text;
mas:array [1..2] of string;
begin
assign(f,’путь к файлу ‘);
reset(f);
readln(f,s);
count:=1;
for i := 1 to length(s) do begin
if ((s[i]=’B’) or (s[i]=’C’) or (s[i]=’D’)) and (count mod 3 =1 )then begin
mas[1]:=s[i]; inc(count);
end;
if ((s[i]=’B’) or (s[i]=’D’) or (s[i]=’E’)) and (count mod 3 =2) and (s[i]mas[1])then begin
mas[2]:=s[i]; inc(count);
end;
if ((s[i]=’B’) or (s[i]=’C’) or (s[i]=’E’)) and (count mod 3 = 0 ) and (s[i] mas[2])then begin
inc(count); inc(numb);
end;
mas[1]:=default(string);
mas[2]:=default(string);
end;
writeln(numb);
end.
Работа с числами (цифрами) в текстовом файле
24 задание с сайта К. Полякова, № 87:
Текстовый файл 24-1.txt состоит не более чем из 10 6 символов. Определите максимальное нечётное число, записанное в этом файле.
Ответ: 7642289
begin assign(input, '24-1.txt'); var s: string; var b:integer; read(s); // весь текст файла находится в s var max := 0; // для максимального нечётного числа var num:integer; var strnum:string; // накапливает строковое представление числа strnum:=''; for var i := 1 to length(s)-1 do begin if s[i].IsDigit() then // проверяем очередной символ - цифра ли это strnum += s[i] //добавляем очередную цифру в число else if (strnum <> '') then //если встретилась не цифра, а strnum не пустая строка begin Val(strnum, num, b); // переводим в число if (num mod 2 <> 0) and (num > max) then // условие для поиска макс четного max := num; strnum:=''; // сбрасываем на начальное значение, чтобы накапливать новое число end; end; // проверка на случай, если самое большое нечётное в самом конце строки if (s[length(s)].isdigit()) then begin Val(strnum, num, b); if (num mod 2 <> 0) and (num > max) then max:= num; end; print(max) end.
Последовательности (цепочки) символов
24 задание. Демоверсия варианта ЕГЭ по информатике 2021, ФИПИ:
Текстовый файл состоит не более чем из 106 символов X, Y и Z.
Определите максимальное количество идущих подряд символов, среди которых каждые два соседних различны.
Для выполнения этого задания следует написать программу.
Ответ: 35
✍ Решение:
var f: text; i, k, max: integer; s: string; begin assign(f, 'D:\24.txt'); reset(f); readln(f, s); max := 1; k := 1; // кол-во подряд идущих for i := 2 to length(s) do begin if s[i] <> s[i - 1] then begin inc(k); if k > max then max := k; end else k := 1; end; write(max) end.
f=open('D:/24.txt') s=f.readline() m=1 k=1 for i in range(1,len(s)): if s[i]!=s[i-1]: k+=1 m=max(k,m) else: k=1 print(m)
📹 Видеоразбор:
📹 Видеорешение на RuTube здесь
24 задание с сайта К. Полякова, № 1:
В текстовом файле k7-0.txt находится цепочка из символов латинского алфавита A, B, C.
Найдите длину самой длинной подцепочки, состоящей из символов C.
Ответ: 0
begin assign(input, 'k7-0.txt'); var s: string; var c: string; read(s); c := 'C'; while c in s do c := c + 'C'; print(length(c) - 1) end.
24 задание с сайта К. Полякова, № 21:
В текстовом файле k7a-1.txt находится цепочка из символов латинского алфавита A, B, C, D, E.
Найдите длину самой длинной подцепочки, состоящей из символов A, B или C (в произвольном порядке).
Ответ: 16
begin assign(input, 'k7a-1.txt'); var s: string; read(s); var k := 0; var maxim := 0; for var i := 1 to length(s) do if s[i] in 'ABC' then begin k += 1; if k > maxim then maxim := k end else k := 0 ; write(maxim) end.
24 задание с сайта К. Полякова, № 26:
В текстовом файле k7a-6.txt находится цепочка из символов латинского алфавита A, B, C, D, E, F.
Найдите длину самой длинной подцепочки, не содержащей гласных букв.
Ответ: 20
begin assign(input, 'k7a-6.txt'); var s: string; read(s); var k := 0; var maxim := 0; for var i := 1 to length(s) do if s[i] in 'BCDF' then begin k += 1; if k > maxim then maxim := k end else k := 0 ; write(maxim) end.
begin var s := readAllText('d:\k7a-6.txt').Trim; var (k, max) := (0, 0); foreach var c in s do if not (c in 'AE') then begin k += 1; if k > max then max := k; end else k := 0; print(max) end.
24 задание с сайта К. Полякова, № 27:
В текстовом файле k7b-1.txt находится цепочка из символов латинского алфавита A, B, C, D, E.
Найдите максимальную длину цепочки вида EABEABEABE… (состоящей из фрагментов EAB, последний фрагмент может быть неполным).
Ответ: 7
✍ Решение:
begin assign(input, 'k7b-1.txt'); var s: string; read(s); var c := 'EAB'; while c in s do begin if c[length(c)] = 'B' then c += 'E' else if c[length(c)] = 'A' then c += 'B' else if c[length(c)] = 'E' then c += 'A'; end; print(length(c) - 1) end.
f=open('k7b-1.txt') s = f.readline() m = 0 i = 0 for char in s: if (char == 'E' and i%3 == 0) or \ (char == 'A' and i%3 == 1) or \ (char == 'B'and i%3 == 2): i += 1 m = max(i,m) elif char == 'E': i = 1 else: i = 0 print(m)
24 задание с сайта К. Полякова, № 33:
В текстовом файле k7c-1.txt находится цепочка из символов латинского алфавита A, B, C, D, E.
Найдите количество цепочек длины 3, удовлетворяющих следующим условиям:
Ответ: 1280
begin assign(input, 'k7c-1.txt'); var s: string; read(s); // весь текст файла var k := 0; var c1 := 'BCD'; var c2 := 'BDE'; var c3 := 'BCE'; for var i := 1 to length(s) - 2 do begin if (s[i] in c1) and (s[i + 1] in c2) and (s[i + 2] in c3) and (s[i] <> s[i + 1]) and (s[i + 1] <> s[i + 2]) then k += 1 end; print(k) end.
24 задание с сайта К. Полякова, № 52:
Ответ: 2 3
📹 Видеоразбор:
📹 Видеорешение на RuTube здесь
24 задание с сайта К. Полякова, № 108:
Текстовый файл 24.txt содержит последовательность из строчных и заглавных букв английского алфавита и цифр, всего не более 10 6 символов. Определите длину наибольшей убывающей подпоследовательности.
Ответ: 3
for var i := 2 to length(s) do begin if s[i] < s[i - 1] then
. if k > max then max := k;
begin assign(input, 'D:/24.txt'); var s: string; read(s); // весь текст файла var k := 1; //длина текущей бывающей последовательности символов var max := 0; // макс длина for var i := 2 to length(s) do begin if s[i] < s[i - 1] then begin k += 1; // увеличиваем счетчик длины последовательности if k >max then max := k; end else k := 1; // сбрасываем счетчик для работы со след. последовательностью end; print(max) end.
Читайте также: