![]() |
|
Другие темы раздела | |
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 - Ответ 284282327.03.2012, 18:55. Показов 4393. Ответов 4
Метки (Все метки)
Ответ
константой задаю множество (set) разделителей (в нашем случае - пробел, запятая, точка)
1) Изначально минимальной длиной слова считаю 255, тк это максимальная длина строки, длиннее слово уже быть не может 2) считываю строку из файла и начинаю разивать ее на слова 3) перебираю каждый символ строки, если этот символ - не знак препинания, не входит в множество разделителей, значит, это буква 4) "цепляю" найденную букву к формируемому слову (sl:=sl+s[i]) 5) если длина получившегося слова меньше ранее найденной минимальной длины, меняю значение минимальной длины на новое, меньшее... 6) так до конца файла 7) после этого перебираю строки файла снова, снова разбираю их на слова 8) сравниваю длину найденных слов с ранее найденной минимальной длиной 9) если совпадают, вывожу слово в новый файл Вернуться к обсуждению: Текстовые файлы. Переписать в новый текстовый файл все слова наименьшей длины Pascal ABC
1
|
27.03.2012, 18:55 | |
Готовые ответы и решения:
4
Файлы. Строки. строка. Найти и вывести в текстовый файл все слова минимальной длины
|
27.03.2012, 18:55 | |
Помогаю со студенческими работами здесь
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-фреймворков, предоставляет. . .
|