Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 03.12.2009
Сообщений: 20

Выбрать строки, которые после удаления всех пробелов из них являются палиндромами.

22.12.2009, 18:43. Показов 534. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите исправить программу.
Задание было такое: Дан текстовый файл f . Выбрать строки, которые после удаления всех пробелов из них являются палиндромами. Преобразованные строки переписать в файл g.

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
26
27
28
29
program L9v2;
uses crt;
var
f,g:text;
i,s,n:integer;
a,b:string;
begin
assign(f,'input.txt');
assign(g,'output.txt');
reset (f);
rewrite(g);
while not eof(f) do
begin
readln(f,a);
b:=a;
n:=pos(' ',a);
while n>0 do
begin
delete(a,n,1);
n:=pos(' ',a);
end; 
s:=0;
for i:=1 to length(a) div 2 do
if a[i]<>a[length(a)-i+1]then s:=1;
if s=0 then writeln(g,b);
end;
close(f);
close(g);
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
22.12.2009, 18:43
Ответы с готовыми решениями:

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

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

Сколько есть подстрок четной длины у строки S, которые являются палиндромами
помогите с данной задачкой... У Азизхана есть строка S. Его интересует сколько есть подстрок...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
22.12.2009, 18:43
Помогаю со студенческими работами здесь

Проверить, является ли строка палиндромом после удаления из нее всех пробелов
Вводятся произвольная строка.Проверить является ли она перевертышем(палиндромом) после удаления из...

Строки. Найти все такие группы цифр, которые являются палиндромами
рассматривается непустая строка содержащая не более 80 символов. каждый символ строки может быть...

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

Дано три целых трехзначных числа. Вывести те из них, которые являются палиндромами в порядке их следования
Дано три целых трехзначных числа. Вывести те из них, которые являются палиндромами в порядке их...

Удалить из строки все слова,которые являются палиндромами
Задача. Удалить из строки все слова,которые являются палиндромами


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru