Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/18: Рейтинг темы: голосов - 18, средняя оценка - 4.83
akwalang
1 / 1 / 1
Регистрация: 06.01.2010
Сообщений: 14
1

Определить в тексте слова, которые можно читать слева направо и справа налево (Анна, шалаш и т.д.).

07.01.2010, 14:53. Просмотров 3312. Ответов 2
Метки нет (Все метки)

Помогите пожалуста решить.

Задача: Определить в тексте слова, которые можно читать слева направо и справа налево (Анна, шалаш и т.д.).
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.01.2010, 14:53
Ответы с готовыми решениями:

Определить является ли заданный текст симметричным (читается одинаково слева направо и справа налево)
Дан текст из 20 символов. Определить является ли он симметричным (читается одинаково слева направо...

Написать программу, которая будет составлять число, которое читается одинаково как слева направо, так и справа налево
Текст задачи: "На вход программе подается набор символов, заканчивающийся символом 0 (в программе...

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

Проверить, будет ли число читаться одинаково справа налево и слева направо
Символьная строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и...

В матрице D выбрать элементы, стоящие по диагонали слева направо и справа налево
1. Дана матрица D(6×6), состоящая из положительных и отрицательных целых чисел, расположенных в...

2
DeLuxe
156 / 158 / 93
Регистрация: 01.01.2010
Сообщений: 399
07.01.2010, 18:30 2
Лучший ответ Сообщение было отмечено akwalang как решение

Решение

Цитата Сообщение от akwalang Посмотреть сообщение
Определить в тексте слова
В строке? Или в тексте из файла?

Вот для строки что то пытаюсь, но программа не работает как надо..
Может кто отыщет ошибку?

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
program tmp;
uses crt;
var
   st,str,str1:string;
   i:integer;
   flag,flag1:boolean;
 
function Palindrom(st:string):boolean;
var
   i:integer;
   st1:string;
begin
Palindrom:=false;
for i:=length(st) downto 1 do
st1:=st1+st[i];
if st=st1 then Palindrom:=true;
end;
 
begin
clrscr;
 
write('vvedite stroku: '); readln(st);
str:='';
flag:=true;
flag1:=true;
for i:=1 to length(st) do
if st[i]=' ' then flag1:=false;
if flag1 then begin
            for i:=1 to length(st) do
            str:=str+st[i];
            if Palindrom(str) then begin
                                   writeln(str);
                                   flag:=false;
                                   end;
            end
       else begin
            str1:='';
            for i:=1 to length(st) do
            if st[i]<> ' ' then str1:=str1+st[i]
                           else begin
                                if Palindrom(str1) then begin
                                                        writeln(str1);
                                                        flag:=false;
                                                        end;
                                str1:='';
                                end;
            end;
if flag then writeln('v zadannom tekste net slov-palindromov');
readkey;
end.
0
akwalang
1 / 1 / 1
Регистрация: 06.01.2010
Сообщений: 14
07.01.2010, 19:06  [ТС] 3
я вот чото накорябал тут
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
31
32
33
34
35
36
37
38
uses crt;
var t1,t2,t3,t4:string;
k,i,j:integer;
mn:set of char;
 
function position(t:string) : integer;
var
i:integer;
begin
i:=0;
repeat
inc(i);
until t[i] in mn;
position:=i;
end;
 
begin clrscr;
writeln('vvedi text');
readln(t1);
if t1[length(t1)] <> ' ' then
t1:=t1+' ';
mn:=[' ',',','.','!','?',':',';'];
 
t2:='';
t3:='';
t4:='';
while t1<>'' do
begin
k:=position(t1);
t2:=copy(t1,1,k-1);
t3:='';
for i:=length(t2) downto 1 do t3:=t3+t2[i];
if t2=t3 then writeln('clovo ',t2 ,'- polindrom');
delete(t1,1,k);
end;
 
readkey;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.01.2010, 19:06

Проверить будет ли читаться введенное предложение одинаково справа налево и слева направо
проверить будет ли читаться введеное предложение одинаково справа налево и слева направо.

Установить, что данное четырехзначное число читается одинаково слева направо и справа налево
Проверить истинность высказывания: &quot;Данное четырехзначное число читается одинаково слева направо и...

Строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и слева направо (т.е. является ли оно палиндромом)
Строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и слева...


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

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

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