Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Файл содержит записи о дате. Указать максимальную дату для второй половины года
Помогите с решением Создать файл, содержащий записи о дате: день (1..31), месяц (1..12), год (00..99). Обработать этот файл и указать максимальную дату для второй половины года. uses crt; type data=record d,m,g:integer end; var f:file of data; n,i,k:integer; d,mx:data; begin clrscr; assign(f,'daty');
Pascal Создать программу: Одномерный массив в котором: сначало повторяющиеся элементы Помогите плиз, через пару часов сдача... Создать одномерный массив А, переделать его таким образом, чтобы с начало были записаны элементы, которые встречаются несколько раз. Очень срочно... const mmax = 50; var a:array of integer; i,j,m,tmp,k:integer; begin repeat write ('Razmer massiva: '); readln(m); until m in ; https://www.cyberforum.ru/ pascal/ thread927401.html
Pascal Сравнение record в Pascal похоже на структурі в С++? напишите сходство и различие. record в Pascal похож на struct в C, в С++ struct может выполнять роль, как классической структуры(в стиле C), так и класса. По сути, struct от class в C++ отличает только модификатор доступа по... https://www.cyberforum.ru/ pascal/ thread927390.html Pascal 2. В массив A[n] занесены натуральные числа. Найти произведение всех элементов В массив A занесены натуральные числа. Найти произведение всех элементов. uses crt; var a: array of byte; p, t: longint; n: byte; begin p := 1; https://www.cyberforum.ru/ pascal/ thread928774.html
Pascal Разработать программу поиска прямой речи в тексте https://www.cyberforum.ru/ pascal/ thread925902.html
Текст состоящий из примерно 20 строк, в котором нем нужно найти количество предложений с прямой речью. MyBrainStem, программу в студию. Если программа не считывает по символам, то лучше пусть она делает это так.
Pascal Программа на паскале. на модули и структуры https://www.cyberforum.ru/ pascal/ thread924029.html
Всем доброго времени суток! Пишу задание для практики на Паскале, по такому заданию Программа должна иметь модульную структуру Каждое задание должно быть оформлено в виде отдельного модуля... при компелировании на АБС ему не нравится IoResult Потому что в АВС нужно Procedure ReadThird(Var mas: vec2); begin if not fileexits('third.in') then begin Writeln('No input file'); ...
остатки при делении квадратов Pascal
Есть число n (оно от 1 до 20). Требуется найти, сколько различных остатков при делении на n дают квадраты натуральных чисел. Думаю так: n ^ 2 даст в остатке 0, дальше если продолжать проверять квадраты, будет период. Соответственно, нужно проверить только первые n квадратов, и подсчитать количество различных остатков:...
Программа, которая записывает в файл типа byte 100 случайных чисел от 0 до 255 Pascal
Здравствуйте уважаемые форумчане, помогите пожалуйста с задачей: Создайте программу, которая записывает в файл типа byte 100 случайных чисел от 0 до 255 и программу, которая выводит на экран... program kontra; uses crt; const n=100; var a, i , d:byte; f:file of byte; fname:string; BEGIN clrscr; randomize; assign(f,'file');
Pascal Числа, делящиеся на 41 https://www.cyberforum.ru/ pascal/ thread924490.html
Среди всех чисел от 0 до 1 000 000, делящихся на 41, нужно найти то число, у которого больше всего троек в записи. uses crt; var i,j,k,c,a,mx:longint; begin clrscr; mx:=0; i:=41; while i<=1000000 do begin j:=i; k:=0;
Pascal Определить количество знаков препинания в тексте из 20 строк
Доброго времени суток Помогите, пожалуйста, с программой. Необходимо подсчитать количество знаков препинания вне главной диагонали матрицы. Добавлено через 1 час 37 минут program Perfect; ... Const n=20; z=; Var s: Array of String; k: Integer; i,j: Byte; BEGIN k:=0; Writeln('Введите текст из ',n,' строк: ');
Pascal Найти количество пар натуральных чисел, где одно из чисел делится на другое https://www.cyberforum.ru/ pascal/ thread922984.html
Есть число n, оно от 1 до 1000. Нужно найти количество пар натуральных чисел, где одно из чисел делится на другое. Числа не превосходят n. алгоритм динамический. В цикле находишь решение сначала для 1 2 потом для 1 2 3 потом для 1 2 3 4 и.т.д. Зачем перебирать решения сначала? потому что в Nное решение входят все пары, найденные...
Pascal Реализация двоичного дерево поиска. Pascal. https://www.cyberforum.ru/ pascal/ thread929245.html
Я вот долго лазил по нету, нашел только один "корявый" код реализации красно-черного дерева. Что касается двоичного дерева поиска...где-то поставленые задачи почти эквивалентны просто тому, чтобы...
 Аватар для yutr777
8 / 8 / 3
Регистрация: 07.04.2013
Сообщений: 85
28.07.2013, 23:12 0

Задание со стеками и очередями: Содержимое файла f переписать в файл g, перенося цифры в конец строки - Pascal - Ответ 4892109

28.07.2013, 23:12. Показов 1716. Ответов 3
Метки (Все метки)

Ответ

syber2013, next - ссылка на следующий элемент в очереди.
data - ключ, т.е. строка, которая находится в очереди.
Тип queue - наша структура(очередь).
s1,s2 - строки преобразованные.

Вернуться к обсуждению:
Задание со стеками и очередями: Содержимое файла f переписать в файл g, перенося цифры в конец строки Pascal
3
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
28.07.2013, 23:12
Готовые ответы и решения:

Очереди: Содержимое текстового файла переписать в новый файл, перенося цифры в конец строки
Здравствуйте! Используя очередь, решить следующую задачу. Содержимое текстового файла f, разделенное на строки, переписать в...

Переписать содержимое файла А в файл В, перенося при этом в конец каждой строки все входящие в нее знаки препинания
Дан текстовый файл А. Переписать его содержимое в файл В, перенося при этом в конец каждой строки все входящие в нее знаки препинания. ...

Составное текстового файла f, разделенное на строки, переписать в текстовый файл g, перенося при этом в конец каждой строки все цифры, входящие в него
Составное текстового файла f, разделенное на строки, переписать в текстовый файл g, перенося при этом в конец каждой строки все цифры,...

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

Очередь: переписать содержимое одного файла в другой, перенося знаки препинания в конец строки
1. Пусть дан текстовый файл А. Перепишите его содержимое в файл В, перенося при этом в конец каждой строки все входящие в нее знаки...

Переписать все из файла А в файл В, перенося в конец каждой строки все входящие в нее знаки препинания
Переписать все из файла А в файл В, перенося при этом в конец каждой строки все входящие в нее знаки препинания. С третьей кнопкой явно...

Переписать все цифры каждой строки файла в конец строки
Содержимое текстового файла INPUT.TXT, разделенного на строки, переписать за один проход по файлу в текстовый файл OUTPUT.TXT, перенося при...

Переписать в текстовый файл Т2 содержимое текстового файла Т1 без строк, содержащих цифры
Help. Чистый си Разработать программу, переписывающую в текстовый файл Т2 содержимое текстового файла Т1, но без строк, содержащих...

Переписать в новый файл все строки файла, вставив в конец каждой строки ее номер
Дан текстовый файл. Переписать в новый файл все его строки, вставив в конец каждой строки ее номер Ребята, помогите, пожалуйста с...

0
Новые блоги и статьи
Создаем SPA Router на чистом JavaScript
bytestream 17.02.2025
В современной веб-разработке одностраничные приложения (SPA) стали стандартом для создания динамичных и отзывчивых пользовательских интерфейсов. Ключевым компонентом любого SPA является роутер -. . .
Машинное обучение на TypeScript и TensorFlow
bytestream 17.02.2025
Машинное обучение становится все более востребованным направлением в современной разработке программного обеспечения. Интеграция искусственного интеллекта в веб-приложения открывает новые возможности. . .
Манипуляция данными EXIF и JPEG в JavaScript
bytestream 17.02.2025
В современном мире цифровой фотографии метаданные изображений играют важнейшую роль в организации и управлении медиаконтентом. Формат EXIF (Exchangeable Image File Format) - это стандарт,. . .
Как создать GUID/UUID в JavaScript
bytestream 17.02.2025
GUID (Globally Unique Identifier) и UUID (Universally Unique Identifier) - это специальные форматы 128-битных идентификаторов, которые практически гарантируют уникальность значения во времени и. . .
Что такое мышление в упрощенном смысле (моё субъективное видение, для создания модели).
Hrethgir 17.02.2025
Разумеется упрощать смысл есть. Дело в том, что я пришёл к тому выводу, что даже если я создам свой процессор (конвейер), то первое для чего смогу его использовать в качестве демонстративного. . .
Как Node.js устроен изнутри
Wired 17.02.2025
Node. js коренным образом изменил подход к веб-разработке, позволив использовать JavaScript не только в браузере, но и на стороне сервера. Созданный в 2009 году Райаном Далем, Node. js представляет. . .
Как обновить Node.js в Windows
Wired 17.02.2025
Думаю, многие разработчики сталкивались с ситуацией, когда устаревшая версия Node. js становилась источником проблем - от несовместимости с новыми пакетами до уязвимостей в безопасности. Особенно это. . .
Как обновить Node.js в MacOS
Wired 17.02.2025
В Node. js существует несколько подходов к обновлению, каждый из которых имеет свои преимущества и особенности применения. Выбор конкретного метода зависит от ваших потребностей - будь то. . .
Как обновить Node.js в Linux
Wired 17.02.2025
Обновление Node. js может показаться сложной задачей, особенно если у вас несколько проектов с разными зависимостями. Однако существует несколько надежных способов обновления, подходящих для разных. . .
[golang] 134. Gas Station
alhaos 17.02.2025
Тут нам даны два целочисленных слайса gas и cost, индексы массива представляют собой заправочные станции. а элементы gas это количество топлива на такой станции, cost это количество топлива. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru