Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Waisler
0 / 0 / 0
Регистрация: 08.10.2013
Сообщений: 21
#1

Сравнение строк по буквам

24.10.2013, 19:17. Просмотров 962. Ответов 4
Метки нет (Все метки)

Здравствуйте, помогите, пожалуйста, с кодом.
Пользователь задает строку, происходит инверсия(это я сделал).
Подскажите, как сравнить строки не по кол-ву символов, а по буквам в них, причем сравнение должно быть без пробелов.
Заранее спасибо.

Добавлено через 43 минуты
Вот исходник:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Var
  s: String;
  dl:integer;
  i: Byte;
begin
Writeln('Ââåäèòå ñòðîêó:');
Readln(s);
dl:=Length(s);
For i:=dl downto 1 do
Write(s[i]);
readln;
END.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.10.2013, 19:17
Ответы с готовыми решениями:

Сравнение строк
Оч мало времени, по этому прошу помощи. Есть задача: Программа должна...

Сравнение строк
Подскажите процедуру, которая будет искать сколько букв различаются в 2х словах...

Сравнение двух строк
Даны две строки Str1 и Str2. Выясните, можно ли строку Str2 получить из строки...

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

Посимвольное сравнение строк. Тест по-английскому
У меня есть 2 файла, в них записаны слова по одному в строке. Первый файл с...

4
gund
18 / 18 / 4
Регистрация: 05.05.2013
Сообщений: 88
24.10.2013, 19:17 #2
Если длина строк одинакова, то в цикле сравниваете побуквенно, предварительно проверив или это не пробел.
1
Waisler
0 / 0 / 0
Регистрация: 08.10.2013
Сообщений: 21
24.10.2013, 19:20  [ТС] #3
Просто прописать, чтобы сравнивалась каждая буква т.е. s[i] первой строки со второй строкой?
0
gund
18 / 18 / 4
Регистрация: 05.05.2013
Сообщений: 88
24.10.2013, 19:28 #4
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
30
Var
  s, s1, s2: String;
  dl:integer;
  i: integer;{некорректно хранить в Byte}
  isSame: boolean;
begin
Writeln('Введите строку:');
Readln(s);
dl:=Length(s);
s1 := "";
s2 := "";
For i:=dl downto 1 do
begin
if (s[i] <> " ") then
begin
s1 := s[i]+s1; {Тут будет исходная строка но без пробелов}
s2 := s2+s[i]; {а тут инвертированная строка тоже без пробелов}
end;
end;
isSame := true;
For i:=0 to dl do
begin
if (s1[i] <> s2[i]) then
begin
isSame := false;
break;
end;
end;
readln;
END.
1
Waisler
0 / 0 / 0
Регистрация: 08.10.2013
Сообщений: 21
24.10.2013, 19:40  [ТС] #5
Благодарю
0
24.10.2013, 19:40
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.10.2013, 19:40

Построчное сравнение строк массива с остальными строками
Здравствуйте, уважаемые участники форума. Напишите, пожалуйста, программу....

Сравнение строк одной БД с другой либо как избавится от ненужных строк
Доброе время суток! Проблема состоит в следующем. Есть корпоративная БД (то...

Сравнение строк в нескольких файлах excel, копирование несовпадающих строк и их вывод в сводный файл
Добрый день, только только начал разбираться с VBA в excel, поэтому прошу...


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

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

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