Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Вычислить: (А-В)*Е Даны: квадратные матрицы А и В порядка m, Е – единичная матрица порядка m, векторы С и D с m элементами.Вычислить: (А-В)*Е https://www.cyberforum.ru/ pascalabc/ thread528732.html Составить свою визитную карточку. Pascal ABC
************************************ * Иванов Сергей * * Пролетарская 74 кв.55 * * Телефон 45-56-67 * ************************************
Pascal ABC Решение системы через Procedure Нужно решить систему, желательно через Procedure (Система ниже) Заранее спасибо. https://www.cyberforum.ru/ pascalabc/ thread528696.html Pascal ABC написать программу по составлению БД логотипов компаний https://www.cyberforum.ru/ pascalabc/ thread528673.html
написать программу по составлению БД логотипов компаний. к каждому логотипу должно соотв по 3 атрибута. Проработать поиск логотипа по 1 или нес. атрибутам (формат, размер итп) Помогите пожалуйста, очень нужно!!!
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 5 6 7 5 8 4 3 5 3 3 2 1 4 1 1 5 2 1 6 2 0 3 9 9 8 9 0 4 9 8 3 3 0 4 2 5 9 0 3 1 6 0 3 9 5 3 5 2 1 9
Pascal ABC Файловые переменные https://www.cyberforum.ru/ pascalabc/ thread528583.html
Последовательность x1, x2… образована по закону: , где k = 1, 2, … . Дано действительное > 0. Записать в файл h члены последовательности x1, x2, … остановившись после первого члена, для которого выполнено . Задано число n. Компоненты файла f получаются по формуле ai = 1,5i, i = 1, 2, … n. Переписать с сохранением порядка следования файл f в файл h, а файл h в файл f. Создать файл g,...
Pascal ABC Составить программу вычисления суммы (или произведения) элементов бесконечного числового ряда ЗАДАЧА 2. Составить программу вычисления и выдачи на печать суммы(или произведения) N элементов бесконечного числового ряда. y=(-128)64(-32)16… ЗАДАЧА 5. Выполнить действия над массивами. В таблице при формулировании задания для разъяснения его сути справа отображены примеры исходных Х и результирующих Y массивов с конкретными числами. Программа, естественно, должна обрабатывать любые числа... https://www.cyberforum.ru/ pascalabc/ thread528554.html 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);
Pascal ABC Определение порядкового номера есть файл с каким то кол-вом чисел, программа должна считать и записать числа с определенными порядковыми номерами в новый файл. например числа с четными номерами или только 5ое и 7 число. помогите решить на паскаль абс, и поподробнее опишите действия с порядковым номером, очень непонятная для меня ф-ия. https://www.cyberforum.ru/ pascalabc/ thread528548.html Pascal ABC Количество различных значений в массиве https://www.cyberforum.ru/ pascalabc/ thread528511.html
Дан массив из положительных числе, значение которых не превышают числа 8. Найти, сколько различ. значений встречается в массиве (число элементов в массиве не больше 8)
Pascal ABC Написать функцию, которая сравнивает два целых числа
Написать функцию, которая сравнивает два целых числа и возвращает результат сравнения в виде одного из знаков:>,< или =.Помогите!!1
Pascal ABC Определить процедуру p(x,y), которая для данного массива x, создает массив https://www.cyberforum.ru/ pascalabc/ thread528505.html
Определить процедуру p(x,y), которая для данного массива x, создает массив у такой, что y равно наименьшему (отличному от 1) делителю числа x (для всех i).Помогите!!!
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
27.03.2012, 18:55 0

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

27.03.2012, 18:55. Показов 4358. Ответов 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
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.03.2012, 18:55
Готовые ответы и решения:

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

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

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

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

4
27.03.2012, 18:55
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.03.2012, 18:55
Помогаю со студенческими работами здесь

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

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

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

Переписать в новый файл все слова, которые содержат только буквы латинского алфавита.
Переписать в новый файл все слова, которые содержат только буквы латинского алфавита. program k;...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru