Рекурсивное и итеративное определение, является ли строка палиндромом

@Vatalik · Регистрация: 26.11.2012

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

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

@Puporev · 22.04.2015, 12:41

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//с рекурсией
function Pal_1(s:string):boolean;
begin
If length(s)<=1 then Pal_1:=True
else Pal_1:=(s[1]=s[length(s)]) and Pal_1(copy(s,2,length(s)-2));
End;
//без рекурсии
function Pal_2(s:string):boolean;
var i:integer;
begin
result:=true;
i:=1;
while (i<=length(s) div 2)and result do
if s[i]<>s[length(s)-i+1] then result:=false
else inc(i);
end;

@Vatalik · 22.04.2015, 21:08 **[ТС]**

а что на форму вставлять?

@Puporev · 22.04.2015, 21:50

Edit для ввода строки и Button для выполнения.

@Vatalik · 22.04.2015, 22:35 **[ТС]**

спасибо

@Vatalik · 14.05.2015, 16:47 **[ТС]**

можете скинуть файлом?

@Puporev · 14.05.2015, 16:51

Нет, Делфи нет сейчас.

@Vatalik · 15.05.2015, 17:14 **[ТС]**

[quote="Puporev;7514476"] выдает ошибку begin expected but end found

Добавлено через 41 секунду
Puporev, выдает ошибку begin expected but end found

@Puporev · 15.05.2015, 17:27

Так нужно нормальный проект делать, а не только функции...

Добавлено через 28 секунд
Вот покажи весь твой код.

@Vatalik · 15.05.2015, 17:33 **[ТС]**

Puporev,

Delphi
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    rb1: TRadioButton;
    rb2: TRadioButton;
    btn1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
        function Pal_1(s:string):boolean; 
    function Pal_2(s:string):boolean;   
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
function TForm1.Pal_1(s:string):boolean;
begin
If length(s)<=1 then Pal_1:=True
else Pal_1:=(s[1]=s[length(s)]) and Pal_1(copy(s,2,length(s)-2));
End;
//áåç ðåêóðñèè
 
function TForm1.Pal_2(s:string):boolean;
var i:integer;
begin
result:=true;
i:=1;
while (i<=length(s) div 2)and result do
if s[i]<>s[length(s)-i+1] then result:=false
else inc(i);
end;
end.
 
procedure TForm1.btn1Click(Sender: TObject);
var
Check:integer;
begin
if RadioButton1.Checked then
  if Pal_1(ÒÂÎÅ ÑÒÐÎÊÀ) then
     showmessage("ÐÅØÀÅÒÑß ÐÅÊÓÐÑÈÅÉ")
else
      showmessage("ÍÅ ÐÅØÀÅÒÑß ÐÅÊÓÐÑÈÅÉ"); 
if RadioButton2.Checked then
  if Pal_2(ÒÂÎÅ ÑÒÐÎÊÀ) then 
     showmessage("ÐÅØÀÅÒÑß ÁÅÇ ÐÅÊÓÐÑÈÅÉ")
else
      showmessage("ÍÅ ÐÅØÀÅÒÑß ÁÅÇ ÐÅÊÓÐÑÈÅÉ");
end;
 
end.

ошибка function needs result type

@Puporev · 15.05.2015, 18:05

Попробуй так, извини, но каракули переводить не умею.
Чтобы был нормальный русский текст, нужно при копировании кода переключать клаву в русскую раскладку.

Delphi
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    rb1: TRadioButton;
    rb2: TRadioButton;
    btn1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
 
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function TForm1.Pal_1(s:string):boolean;
begin
If length(s)<=1 then Pal_1:=True
else Pal_1:=(s[1]=s[length(s)]) and Pal_1(copy(s,2,length(s)-2));
End;
 
function TForm1.Pal_2(s:string):boolean;
var i:integer;
begin
result:=true;
i:=1;
while (i<=length(s) div 2)and result do
if s[i]<>s[length(s)-i+1] then result:=false
else inc(i);
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
if RadioButton1.Checked then
  if Pal_1(Г’Г‚ГЋГ… Г‘Г’ГђГЋГЉГЂ) then
     showmessage("ГђГ…Г&#152;ГЂГ…Г’Г‘Гџ ГђГ…ГЉГ“ГђГ‘Г€Г…Г‰")
else
      showmessage("ГЌГ… ГђГ…Г&#152;ГЂГ…Г’Г‘Гџ ГђГ…ГЉГ“ГђГ‘Г€Г…Г‰");
if RadioButton2.Checked then
  if Pal_2(Г’Г‚ГЋГ… Г‘Г’ГђГЋГЉГЂ) then
     showmessage("ГђГ…Г&#152;ГЂГ…Г’Г‘Гџ ГЃГ…Г‡ ГђГ…ГЉГ“ГђГ‘Г€Г…Г‰")
else
      showmessage("ГЌГ… ГђГ…Г&#152;ГЂГ…Г’Г‘Гџ ГЃГ…Г‡ ГђГ…ГЉГ“ГђГ‘Г€Г…Г‰");
end;
 
end.

@Vatalik · 15.05.2015, 18:20 **[ТС]**

Puporev, необъявленный индификатор pal_1
в 28 строке

@Puporev · 15.05.2015, 18:22

Убери из названия функций TForm1.

@Vatalik · 15.05.2015, 18:31 **[ТС]**

Puporev, тогда в 14 и 15 строках выскакивает ошибка
unsatisfied forward or external declaration

@Puporev · 15.05.2015, 18:47

У меня строки 14 и 15

Delphi
1
2
procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);

там ничего не может выскакивать.
Вот такое начало

Delphi
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
31
32
33
34
type
  TForm1 = class(TForm)
    rb1: TRadioButton;
    rb2: TRadioButton;
    btn1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
 
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function Pal_1(s:string):boolean;
begin
If length(s)<=1 then Pal_1:=True
else Pal_1:=(s[1]=s[length(s)]) and Pal_1(copy(s,2,length(s)-2));
End;
 
function Pal_2(s:string):boolean;
var i:integer;
begin
result:=true;
i:=1;
while (i<=length(s) div 2)and result do
if s[i]<>s[length(s)-i+1] then result:=false
else inc(i);
end;

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Vatalik 1 / 1 / 0 Регистрация: 26.11.2012 Сообщений: 93

	Рекурсивное и итеративное определение, является ли строка палиндромом 22.04.2015, 11:55. Показов 1253. Ответов 14 Метки нет (Все метки) Помогите Разработать программу, определяющую является ли строка палиндромом или нет. Решить задачу как с использованием, так и без использования рекурсии. 0

@Vatalik 1 / 1 / 0 Регистрация: 26.11.2012 Сообщений: 93
	22.04.2015, 21:08 [ТС]
	а что на форму вставлять? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	22.04.2015, 21:50
	Edit для ввода строки и Button для выполнения. 1

@Vatalik 1 / 1 / 0 Регистрация: 26.11.2012 Сообщений: 93
	22.04.2015, 22:35 [ТС]
	спасибо 0

@Vatalik 1 / 1 / 0 Регистрация: 26.11.2012 Сообщений: 93
	14.05.2015, 16:47 [ТС]
	можете скинуть файлом? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	14.05.2015, 16:51
	Нет, Делфи нет сейчас. 0

@Vatalik 1 / 1 / 0 Регистрация: 26.11.2012 Сообщений: 93
	15.05.2015, 17:14 [ТС]
	[quote="Puporev;7514476"] выдает ошибку begin expected but end found Добавлено через 41 секунду Puporev, выдает ошибку begin expected but end found 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	15.05.2015, 17:27
	Так нужно нормальный проект делать, а не только функции... Добавлено через 28 секунд Вот покажи весь твой код. 0

@Vatalik 1 / 1 / 0 Регистрация: 26.11.2012 Сообщений: 93
	15.05.2015, 18:20 [ТС]
	Puporev, необъявленный индификатор pal_1 в 28 строке 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	15.05.2015, 18:22
	Убери из названия функций TForm1. 0

Опции темы

@Vatalik 1 / 1 / 0 Регистрация: 26.11.2012 Сообщений: 93
	15.05.2015, 18:31 [ТС]
	Puporev, тогда в 14 и 15 строках выскакивает ошибка unsatisfied forward or external declaration 0

Рекурсивное и итеративное определение, является ли строка палиндромом

Решение