Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Из двумерного массива рандомных чисел вывести попадающих на эти линии. Из двумерного массива рандомных чисел вывести попадающих на эти линии. Не знаю как поподробней объяснить но выводить должен как бы так 7 0 3 2 7 1 4 0 7 3 7 4 5 6 5 5 8 9 1 6 6 2 2 6 6 6 0... Что-то никакой связи между первым и вторым массивами не вижу. Что известно о массиве, размеры, четность-нечетность... https://www.cyberforum.ru/ pascalabc/ thread528600.html Pascal ABC Решение системы через Procedure Нужно решить систему, желательно через Procedure (Система ниже) Заранее спасибо. И что там означают М2, Р1 и т.д.. https://www.cyberforum.ru/ pascalabc/ thread528696.html
Pascal ABC Составить свою визитную карточку. https://www.cyberforum.ru/ pascalabc/ thread528727.html
************************************ * Иванов Сергей * * Пролетарская 74 кв.55 * * Телефон 45-56-67 * ************************************ uses crt; var i:integer; begin gotoXY(20,10); for i:=1 to 40 do write('*'); gotoXY(20,11);write('*'); gotoXY(33,11);write('Иванов Сергей'); gotoXY(59,11);write('*');...
Pascal ABC написать программу по составлению БД логотипов компаний https://www.cyberforum.ru/ pascalabc/ thread528673.html
написать программу по составлению БД логотипов компаний. к каждому логотипу должно соотв по 3 атрибута. Проработать поиск логотипа по 1 или нес. атрибутам (формат, размер итп) Помогите пожалуйста,...
Pascal ABC Составить программу вычисления суммы (или произведения) элементов бесконечного числового ряда
ЗАДАЧА 2. Составить программу вычисления и выдачи на печать суммы(или произведения) N элементов бесконечного числового ряда. y=(-128)64(-32)16… ЗАДАЧА 5. Выполнить действия над массивами. В...
Pascal ABC Файловые переменные https://www.cyberforum.ru/ pascalabc/ thread528583.html
Последовательность x1, x2… образована по закону: , где k = 1, 2, … . Дано действительное > 0. Записать в файл h члены последовательности x1, x2, … остановившись после первого члена, для которого...
Pascal ABC исправление ошибок
Помогите исправить ошибки program lab2; uses crt; const lo=15; ls=10; type st15=string; ms=array of st15; var is,io,nm:integer; a:st15; st,och:ms; procedure inp_a(var s:st15);
Определить процедуру p(x,y), которая для данного массива x, создает массив Pascal ABC
Определить процедуру p(x,y), которая для данного массива x, создает массив у такой, что y равно наименьшему (отличному от 1) делителю числа x (для всех i).Помогите!!!
Pascal ABC Вычислить: (А-В)*Е https://www.cyberforum.ru/ pascalabc/ thread528732.html
Даны: квадратные матрицы А и В порядка m, Е – единичная матрица порядка m, векторы С и D с m элементами.Вычислить: (А-В)*Е векторы С и D с m элементами И куда их засунуть?
Pascal ABC Написать функцию, которая сравнивает два целых числа Написать функцию, которая сравнивает два целых числа и возвращает результат сравнения в виде одного из знаков:>,< или =.Помогите!!1 var n,m: integer; function srav(n,m: integer):char; var ch: char; begin if n>m then ch:='>' else if n<m then ch:='<' else ch:='='; srav:=ch; https://www.cyberforum.ru/ pascalabc/ thread528506.html
Pascal ABC Определение порядкового номера есть файл с каким то кол-вом чисел, программа должна считать и записать числа с определенными порядковыми номерами в новый файл. например числа с четными номерами или только 5ое и 7 число. помогите... Файл текстовый или типизированный? А то подход разный. https://www.cyberforum.ru/ pascalabc/ thread528548.html Pascal ABC Количество различных значений в массиве Дан массив из положительных числе, значение которых не превышают числа 8. Найти, сколько различ. значений встречается в массиве (число элементов в массиве не больше 8) Program n1; Const n=8; Var m:set of byte; k,i:integer; a:array of byte; Begin m:=; randomize; writeln('Masiv: '); for i:=1 to n do https://www.cyberforum.ru/ pascalabc/ thread528511.html
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
27.03.2012, 18:55 0

Текстовые файлы. Переписать в новый текстовый файл все слова наименьшей длины - Pascal ABC - Ответ 2842823

27.03.2012, 18:55. Показов 4393. Ответов 4
Метки (Все метки)

Ответ

Цитата Сообщение от TECHNIK007 Посмотреть сообщение
const p: set of char=[' ','.',','];
константой задаю множество (set) разделителей (в нашем случае - пробел, запятая, точка)
1) Изначально минимальной длиной слова считаю 255, тк это максимальная длина строки, длиннее слово уже быть не может
2) считываю строку из файла и начинаю разивать ее на слова
3) перебираю каждый символ строки, если этот символ - не знак препинания, не входит в множество разделителей, значит, это буква
4) "цепляю" найденную букву к формируемому слову (sl:=sl+s[i])
5) если длина получившегося слова меньше ранее найденной минимальной длины, меняю значение минимальной длины на новое, меньшее...
6) так до конца файла
7) после этого перебираю строки файла снова, снова разбираю их на слова
8) сравниваю длину найденных слов с ранее найденной минимальной длиной
9) если совпадают, вывожу слово в новый файл

Вернуться к обсуждению:
Текстовые файлы. Переписать в новый текстовый файл все слова наименьшей длины Pascal ABC
1
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
27.03.2012, 18:55
Готовые ответы и решения:

Файлы. Строки. строка. Найти и вывести в текстовый файл все слова минимальной длины
Помогите решить две задачи срочно плиз!!!! 2) С клавиатуры вводится строка. Найти и вывести в текстовый файл все слова минимальной...

Файлы: все слова, в которых есть указанная буква, переписать в новый файл
дан файл, содержащий текст. Все слова в которых есть указанная буква переписать в новый файл

Найти и вывести в текстовый файл все слова минимальной длины
1) Написать программу, создающую 2 файла целых чисел разной длины. Файлы заполнить случайными числами. Пользователь вводит 2 целых числа P...

4
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
27.03.2012, 18:55
Помогаю со студенческими работами здесь

Найти и вывести в текстовый файл все слова минимальной длины
1.С клавиатуры вводится строка.Найти и вывести в текстовый файл все слова минимальной длины.Словами считать любую последовательность...

Найти и вывести в текстовый файл все слова минимальной длины
1.С клавиатуры вводится строка.Найти и вывести в текстовый файл все слова минимальной длины.Словами считать любую последовательность...

Переписать в новый файл все слова кроме максимального элемента
дан файл, содержащий текст. Переписать в новый файл все слова кроме максимального элемента

Дан текстовый файл g. Создать новый файл f и записать в него все слова файла g с количеством символов больше 4 и меньш 6
Дан текстовый файл g. Создать новый файл f и записать в него все слова файла g с количеством символов &gt;4 и &lt;6, в которых нет...

Переписать в новый файл все слова, которые содержат только буквы латинского алфавита.
Переписать в новый файл все слова, которые содержат только буквы латинского алфавита. program k; var t:text; t2:text; st,i:set...

0
Новые блоги и статьи
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
Создаем REST API в Laravel с аутентификацией через Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru