Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Перевод числа из 8 сс в 10 сс Здравствуйте нашел код перевода из 10 в 8 возможно ли сделать его обратным ? Если нет ,то помогите сделать\найти такой же компактный код. uses crt; const zn:string='01234567'; function... https://www.cyberforum.ru/ pascal/ thread1448870.html Найти длину самой длинной последовательности подряд идущих элементов массива Pascal
Помогите написать программу:Задан целочисленный массив A(N). Найти длину самой длинной последовательности подряд идущих элементов массива, равных нулю.
Pascal Определить принадлежность точки заданной области Определите, принадлежит ли точка А, заданной координатами (х, y), части плоскости, ограниченной отрезком оси абсцисс от 0 до П и синусоидой y=|sin(2x)| https://www.cyberforum.ru/ pascal/ thread1448556.html Pascal Написать программу нахождения минимальной суммы N, при которой в пятницу друзьям будет что употребить https://www.cyberforum.ru/ pascal/ thread1448387.html
помогите составить программу в паскале!пожалуйста! и если, можно, то и в С++ Всю неделю бутылка «Пепси » стоила K рублей, а пустая бутылка – L рублей. Компания друзей, собравшаяся в понедельник,...
Создать типизированный файл записей, содержащий данные об абитуриентах ВУЗа Pascal
Помогите! Создать типизированный файл записей, содержащий данные об абитуриентах вузу.Поля записы- регистрационный номер, номер паспорта, фамилия, имя, отчество, дата рождения, год окончания...
Pascal Односвязные списки. Вместо вывода сделать занесение в список https://www.cyberforum.ru/ pascal/ thread1448347.html
Пусть дан список А, содержащий целые числа. Занесите в список В порядковые номера максимальных элементов списка А. Program xyz; type ss=^sp; sp=record inf:integer; link:ss; end; const...
Pascal Сохранить созданный календарь в файл и прочитать из него Помогите, пожалуйста. Нужны 2 подпрограммы сохранения созданного календаря в файл и считывания календаря с файла. Введенный год сохранять получается, данные расчета получается, а сам календарь... https://www.cyberforum.ru/ pascal/ thread1448318.html Вывод результата в файл, при переводе чисел по выбору пользователя Pascal
У меня задача заключалась в том, чтобы осуществить считывание десятичных чисел, записанных через запятую в файле и сделать перевод в двоичную, троичную и инверсию по выбору пользователя из заданного...
Pascal Вычислить значения 30 элементов одномерного массива в заданном интервале https://www.cyberforum.ru/ pascal/ thread1448173.html
1. Вычислить значения 30 элементов одномерного целочисленного массива H в интервале (-10, 10) с использованием генератора случайных чисел 2. Вычислить сумму положительных элементов третьей...
Pascal Вычитание, умножение и деление для чисел в 4 сс https://www.cyberforum.ru/ pascal/ thread1448071.html
Пишу калькулятор для четверичной системы счисления. У меня вещественные числа и со сложением справилась. Помогите с вычитанием, умножением и делением, сроки поджимают, а идей нет. Нужно именно...
Pascal Организовать работу с файлом: запись, сортировка, удаление данных
Прошу помощи в составлении программы на языке Паскаль. Условие задачи следующее: Разработать алгоритм и программу. Компонентами текстового файла являются символы, образующие наборы строк....
Pascal Определить и вывести слова, начинающиеся и заканчивающиеся одной и той же буквой https://www.cyberforum.ru/ pascal/ thread1448065.html
Прошу помощи в составлении программы на языке паскаль. Вот условия задачи: Разработать алгоритм и программу. Вводится тест из заглавных и строчных латинских букв, пробелов. Количество символов в...
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
17.05.2015, 14:46 0

Имеется текстовый файл. Напечатать все строки, содержащие в качестве фрагмента заданный текст - Pascal - Ответ 7627065

17.05.2015, 14:46. Показов 1889. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
    f: Text;
    fi, s: String;
begin
    Write('s: '); ReadLn(s);
    Assign(f, 'f.txt'); Reset(f);
    while (Not EoF(f)) do
    begin
        ReadLn(f, fi);
        if (Pos(s, fi) <> 0)
        then
            WriteLn(fi);
    end;
    Close(f);
end.


Вернуться к обсуждению:
Имеется текстовый файл. Напечатать все строки, содержащие в качестве фрагмента заданный текст Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2015, 14:46
Готовые ответы и решения:

Напечатать: все строки файла, содержащие в качестве фрагмента заданный текст
Имеется текстовый файл. Удалить из него третью строку; результат записать в другой файл....

Напечатать все строки файла, содержащие в качестве фрагмента заданный текст
Имеется текстовый файл. напечатать все его строки, содержащие в качестве фрагмента заданный текст.

Даны текстовый файл и строка s. Получите все строки файла f, содержащие в качестве фрагмента заданную строку s
Очень надо помогите! Даны текстовый файл и строка s. Получите все строки файла f, содержащие в...

Дан текстовый файл. Напечатать все его строки, содержащие в качестве фрагмента заданный текст
Дан текстовый файл. Напечатать все его строки, содержащие в качестве фрагмента заданный текст

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

Напечатать все строки файла, содержащие в качестве фрагмента заданный текст
#include &lt;stdio.h&gt; #include &lt;stdlib.h&gt; #include &lt;locale.h&gt; #include &lt;string.h&gt; #include...

Напечатать все строки файла, содержащие в качестве фрагмента заданный текст
Имеется текстовый файл. Напечатать все его строки, содержащие к качестве фрагмента заданный текст.

Даны текстовый файл и строка s. Получите все строки файла f, содержащие в качестве фрагмента заданную строку s
Даны текстовый файл и строка s. Получите все строки файла f, содержащие в качестве фрагмента...

Дан входной текстовый файл, строка S (вводится с клавиатуры). Записать в выходной файл все строки входного файла, содержащие в качестве фрагмента стро
Дан входной текстовый файл, строка S (вводится с клавиатуры). Записать в выходной файл все строки...

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