Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
91Kensei91
0 / 0 / 0
Регистрация: 05.04.2009
Сообщений: 8
1

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

05.04.2009, 19:05. Просмотров 1095. Ответов 5
Метки нет (Все метки)

Помогите пожалуйста написать программу. Дан исходный файл, в каждой строке записано 1 слово, записать в выходной файл те слова, которые читаются с обоих сторон одинаково.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.04.2009, 19:05
Ответы с готовыми решениями:

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

Задача: Слoва, которые читаются одинаково с начала и с конца
Пытался найти похожую программу, все попытки неудачны. Требования для программы: Написать...

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

Записать в выходной файл слова в порядке возрастания длины слов
Дан текст на русском языке. Записать в выходной файл слова в порядке возрастания длины слов.

Перевод из С++ в Паскаль.Записать в выходной файл построчно все ключевые слова, встречающиеся в этой программе
Дана программа написанная на языке Pascal. Записать в выходной файл построчно все ключевые слова,...

5
Puporev
Модератор
56587 / 43280 / 29921
Регистрация: 18.05.2008
Сообщений: 102,942
05.04.2009, 19:12 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
while not eof(f) do
  begin
   readln(f1,s);
   s1:='';
   for i:=length(s) downto 1 do
   s1:=s1+s[i];
   if s1=s then writeln(f2,s1);
  end;
0
91Kensei91
0 / 0 / 0
Регистрация: 05.04.2009
Сообщений: 8
05.04.2009, 19:22  [ТС] 3
Спасибо, а downto что делает?
0
Puporev
Модератор
56587 / 43280 / 29921
Регистрация: 18.05.2008
Сообщений: 102,942
05.04.2009, 19:24 4
downto это тоже что и to, только назад.

Добавлено через 1 минуту 35 секунд
for i:=1 to значит i:=i+1, а for i:=n downto это n:=n-1
0
91Kensei91
0 / 0 / 0
Регистрация: 05.04.2009
Сообщений: 8
05.04.2009, 19:25  [ТС] 5
А, ясно, спасибо)
0
yanyk1n
4334 / 1466 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
05.04.2009, 19:49 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Можно и по-другому:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
while not eof(f) do
  begin
   readln(f1,s);
   f:=true;
   for i:=1 to length(s) div 2 do
   if s[i]<>s[length(s)-i+1] then
   begin
    f:=false;
    break;
   end;
   if f then writeln(f2,s1);
  end;
0
05.04.2009, 19:49
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.04.2009, 19:49

Записать в выходной файл слова в порядке возрастания длины слов
Дан текст на русском языке. Записать в выходной файл слова в порядке возрастания длины слов.

Переписать текст в файл, удалив из него слова, окруженные с обеих сторон одинаковыми знаками препинания
Помогите пожалуйста решить задачу Файл input.dat содержит несколько строк текста. Слова в тексте...

Вычислить сумму кодов всех символов, которые в цикле читаются из файла. Результат записать в выходной файл
как сделать цикл? с getc и putc. не знаю как правильно написать. FILE *one,*two; char n;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

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