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

@Vika19Nami · Регистрация: 02.12.2019

Author24 — интернет-сервис помощи студентам

Написать программу, определяющую является ли данная строка палиндромом (без учета регистра)
Все данные вводятся с клавиатуры. Запрещается использовать стандартные функции для работы со строками(за исключением функции определение длины строки)

@ZX Spectrum-128 · 03.12.2019, 09:39

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

@Vika19Nami · 03.12.2019, 10:14 **[ТС]**

Да,запрещается использовать стандартные функции для работы со строками(за исключением функции определение длины строки)
Пример: UpCase нельзя использовать

@mr-Crocodile · 03.12.2019, 16:32

Сообщение от Vika19Nami

Пример: UpCase нельзя использовать

и тут сразу же вопрос - какие символы ты вводить собираешься? Если латиницу - то нет проблем.
а вот если русские буквы - то важно какая у тебя кодировка строк в FPC включена (если ты понимаешь, о чём я).

@Vika19Nami · 03.12.2019, 18:35 **[ТС]**

Латиницу, а то потом будут проблемки с кодировкой

@ZX Spectrum-128 · 03.12.2019, 19:44

Перевод всей строки в верхний регистр.

Pascal

function MyUpperCase(s: string): string;
var
  i: integer;
begin
  for i := 1 to Length(s) do
    if s[i] in ['a'..'z'] then 
      s[i] := chr(ord(s[i]) - 32);
  MyUpperCase := s;
end;
 
var
  a: string;
  i: integer;
 
begin
  readln(a);
  a := MyUpperCase(a);
  writeln(a);
end.

@Vika19Nami · 04.12.2019, 12:27 **[ТС]**

это не то

@ZX Spectrum-128 · 04.12.2019, 13:27

Сообщение от Vika19Nami

это не то

Что не то? Совсем мозг не включается?

Нельзя UpCase использовать?
Возьмите программу по ссылке и напишите перед обработкой строки:

Pascal

1
2
3

for i := 1 to Length(s) do
    if s[i] in ['a'..'z'] then 
      s[i] := chr(ord(s[i]) - 32);

И всё. Вся строка в верхнем регистре.

@bormant · 04.12.2019, 15:37

Сообщение от ZX Spectrum-128

Pascal

3	s[i] := chr(ord(s[i]) - 32);

Можно чуть проще:

Pascal

3	Dec(s[i],32);

@mr-Crocodile · 04.12.2019, 15:55

Сообщение от bormant

Можно чуть проще:

Pascal

1	Dec(s[i],32);

@Vika19Nami 0 / 0 / 0 Регистрация: 02.12.2019 Сообщений: 9
		1
	Написать программу, определяющую является ли данная строка палиндромом (без учета регистра) 03.12.2019, 00:43. Показов 1884. Ответов 9 Метки abc, free pascal, pascal abc (Все метки) Написать программу, определяющую является ли данная строка палиндромом (без учета регистра) Все данные вводятся с клавиатуры. Запрещается использовать стандартные функции для работы со строками(за исключением функции определение длины строки) 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	03.12.2019, 09:39	2
	Написать программу, определяющую является ли данная строка палиндромом (без учета регистра) 0

@Vika19Nami 0 / 0 / 0 Регистрация: 02.12.2019 Сообщений: 9
	03.12.2019, 10:14 [ТС]	3
	Да,запрещается использовать стандартные функции для работы со строками(за исключением функции определение длины строки) Пример: UpCase нельзя использовать 0

@mr-Crocodile 3022 / 1646 / 651 Регистрация: 19.03.2019 Сообщений: 5,322
	03.12.2019, 16:32	4
	Сообщение от Vika19Nami Пример: UpCase нельзя использовать и тут сразу же вопрос - какие символы ты вводить собираешься? Если латиницу - то нет проблем. а вот если русские буквы - то важно какая у тебя кодировка строк в FPC включена (если ты понимаешь, о чём я). 0

@Vika19Nami 0 / 0 / 0 Регистрация: 02.12.2019 Сообщений: 9
	03.12.2019, 18:35 [ТС]	5
	Латиницу, а то потом будут проблемки с кодировкой 0

@Vika19Nami 0 / 0 / 0 Регистрация: 02.12.2019 Сообщений: 9
	04.12.2019, 12:27 [ТС]	7
	это не то 0

	04.12.2019, 15:55