Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal построить и напечатать множество, элементами которого являются встречающиеся в последовательности: цифры от '0' до '9' http://www.cyberforum.ru/pascal/thread901573.html
Дана непустая последовательность символов. Требуется построить и напе- чатать множество, элементами которого являются встречающиеся в после- довательности: цифры от '0' до '9';
Pascal Объяснение условия программы
Приветствую. Помогите пожалуйста объяснить код программы, начиная с 20-й строки. До этого момента все понятно, но вот после идут не очень понятные циклы... Program otchet; Uses crt; Type zapis =...
Даны действительное а и натуральное n. Вычислить: 1/a^2+1/a^4+... 1/a^2n Pascal
Помогите написать на паскале прогу, для решения этого : Даны действительное а и натуральное n. Вычислить: 1/a^2+1/a^4+... 1/a^2n
Pascal Составить файл h, состоящий из элементов файлов f и g, упорядоченных по возрастанию Помогите, пожалуйста. Даны 2 вещественных файла f и g. Составить файл h, состоящий из элементов файлов f и g, упорядоченных по возрастанию. Добавлено через 3 часа 31 минуту program Project1;... http://www.cyberforum.ru/pascal/thread901218.html
Pascal В массиве A(n,n) заменить элементы над главной диагональю на минимальное число массива http://www.cyberforum.ru/pascal/thread901188.html
В массиве A(n,n) заменить элементы над главной диагональю на минимальное число массива.
Pascal Создать программу решения уравнений f(x) = 0 и g(x) = 0 , используя процедуру построения графика функции
Даны две функции f(x) и g(x) (таблица 1). Уравнение f(x) = 0 имеет на указанном в таблице 1 отрезке единственный корень. Вычислить приближенное значение корня уравнения на отрезке с задан- ной...
Pascal Перевод числа из одной меры весов в другую
Здравствуйте! Помогите пожалуйста, нужно срочно создать приложение в lazarus, для перевода числа из одной меры весов в другую Форма ниже Заранее спасибо)
Pascal Определить, в течении какого количества первых дней месяца непрерывно, начиная с первого мая,осадков не было Известные сведения о количестве осадков,выпавших за каждый день мая.Первого мая осадков не было.Определить в течении какого количества первых дней месяца непрерывно,начиная с первого мая,осадков не... http://www.cyberforum.ru/pascal/thread900942.html
Pascal Найти квадратную подматрицу с максимальной суммой элементов http://www.cyberforum.ru/pascal/thread900899.html
Найти квадратную подматрицу с максимальной суммой элементов
Pascal Удалить из массива действительных чисел нулевые элементы Удалить из массива действительных чисел нулевые элементы. с++ http://www.cyberforum.ru/pascal/thread900596.html
CodeR
Фрилансер
3386 / 2787 / 3000
Регистрация: 08.02.2012
Сообщений: 7,041
Записей в блоге: 1
16.06.2013, 11:16 0

Найти в файле f все слова, слева направо и наоборот читаются одинаково и составить из них новый файл q

16.06.2013, 11:16. Просмотров 904. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Var f,g:text;
    s,s1,st:string;
    i:byte;
Begin
    Assign(f,'in.txt');Reset(f);
    Assign(g,'out.txt');Rewrite(g);
    While not Eof(f) do
    Begin
      readln(f,s);
      s:=s+' ';
      While Pos(' ',s)>0 do
      Begin
        s1:=Copy(s,1,Pos(' ',s)-1);
        Delete(s,1,Pos(' ',s));
        st:='';
        if s1='' then continue;
        For i:=1 to Length(s1) do
         st:=s1[i]+st;
        if s1=st then writeln(g,s1);
      End;
    End;
    writeln('Результат в файле "out.txt"');
    Close(f);Close(g);
    readln;
End.


Вернуться к обсуждению:
Найти в файле f все слова, слева направо и наоборот читаются одинаково и составить из них новый файл q
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2013, 11:16
Готовые ответы и решения:

Составить из имеющихся четных цифр максимальное число, читающееся одинаково слева направо и наоборот
На вход подается набор символов, оканчивающийся точкой. Количество символов не превышает 200....

Записать в выходной файл те слова, которые читаются с обеих сторон одинаково
Помогите пожалуйста написать программу. Дан исходный файл, в каждой строке записано 1 слово,...

Дано слово р и файл f. Найти в файле f все слова, которые можно составить из букв слова р
Дано слово р и файл f. Найти в файле f все слова, которые можно составить из букв слова р.

Найти в файле F все слова, которые содержат подстроку P, и составить из них файл G
Найти в файле F все слова, которые имеют под словом p и составить из них файл G.

Слова, одинаково читающиеся справа налево и слева направо
Дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). Составить программу...

1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru