Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Pieliedie
0 / 0 / 0
Регистрация: 11.12.2014
Сообщений: 18
1

Определить симметричность произвольного текста любой длины

12.05.2015, 21:35. Просмотров 316. Ответов 1
Метки нет (Все метки)

{Определить симметричность произвольного текста любой длины. Текст должен оканчиваться
точкой. Задачу решить с помощью двух стеков.}

Я пытался сделать, но моих знаний не хватает, подскажите, что дальше делать,пожалуйста.
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
type
PStack=^TStack;
TStack=record
Data:char;
Next:PStack;
end;
var
i:integer;
s:string;
stack,stackw,stack1,stack2:PStack;
begin
writeln('Введите текст:');
readln(s);
for i := 1 to Length(s)-1 div 2 do
begin
new(stack1);
stack1^.Data:=s[i];
stack1^.Next:=Stack;
Stack:=stack1;
end;
for i := Length(s)-1 downto Length(s)-1 div 2 do
begin
new(stack2);
stack2^.Data:=s[i];
stack2^.Next:=Stackw;
Stackw:=stack2;
end;
writeln(stack);
writeln(stackw);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2015, 21:35
Ответы с готовыми решениями:

Определить симметричность произвольного текста любой длины
Определить симметричность произвольного текста любой длины. Текст должен оканчиваться точкой....

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

Из произвольного текста, содержащего не более 10 строк удалить слова заданной длины
Из произвольного текста, содержащего не более 10 строк, в каждой строке не более 80 символов,...

Для произвольного текста определить частоту встречаемости цифр
Для произвольного текста сформировать массив i=1,10, элементы которого равны частоте встречаемости...

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

1
Joy
13.05.2015, 05:48     Определить симметричность произвольного текста любой длины
  #2

Не по теме:

без стека так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  st1:string;
  ans:array[boolean] of string[19]=('тест не симметричен','текст симметричен');
begin
  repeat
    write('Введите текст:');
    readln(st1);
    if pos('.',st1)=0 then writeln('Текст должен оканчиваться точкой');
    st1:=copy(st1,1,pos('.',st1)-1);
  until st1<>'';
  writeln(ans[st1=st1.Inverse()]);
end.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.05.2015, 05:48
Привет! Вот еще темы с ответами:

Вывести последнее слово текста наименьшей длины
Дан текстовый файл. Вывести последнее слово текста наименьшей длины. Словом считать набор символов,...

Определить контрольный бит при передаче произвольного двоичного сообщения с использованием битов четности
Привет народ. Совершенно не шарю в Pascal. Есть такая задача. Составить математическую модель,...

Определить для произвольного вещественного десятичного числа типа double его представление в памяти компьютера
Составить математическую модель, блок-схему и записать на языке Pascal программу с использованием...


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

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

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