Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
N. White
0 / 0 / 1
Регистрация: 06.07.2012
Сообщений: 26
#1

Функция: Необходимо определить количество слов, которые являются «перевертышами» (например: казак, шалаш) - Turbo Pascal

08.07.2012, 17:29. Просмотров 713. Ответов 1
Метки нет (Все метки)

Функция: Пусть дан текст в виде символьной строки, оканчивающий точкой. Необходимо определить количество слов, которые являются «перевертышами» (например: казак, шалаш). То есть читаются одинаково с начала и с конца слова. Слова в предложении определяются одним или несколькими пробелами. Для определения слова используйте функцию.
http://www.cyberforum.ru/pascal/thread2116597.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.07.2012, 17:29
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Функция: Необходимо определить количество слов, которые являются «перевертышами» (например: казак, шалаш) (Turbo Pascal):

По заданному натуральному числу N необходимо вычислить количество натуральных чисел, которые являются делителями N!
По заданному натуральному числу N необходимо вычислить количество натуральных...

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

Определить количество членов последовательности, которые являются нечетными числами
!!!

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

В заданном тексте определить количество слов, которые заканчиваются на букву А
Помогите перевести программу из АВС в Турбо Паскаль заранее спасибо.:declare: ...

1
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
08.07.2012, 17:48 #2
Лучший ответ Сообщение было отмечено N. White как решение

Решение

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
uses crt;
var s,sl: string;
    i,k: byte;
    
function IsPalindrom (str: string): boolean;
var sk,sp: string;
    j: byte;
begin
sk:=''; sp:='';
for j:=1 to length(str) do
    begin
    sp:=upcase(str[j])+sp;
    sk:=sk+upcase(str[j]);
    end;
IsPalindrom:=sp=sk;
end;
 
begin
write('s='); readln(s); sl:='';
if (s[length(s)]<>' ') and (s[length(s)]<>'.') then s:=s+' ';
for i:=1 to length(s) do
    if (s[i]<>' ') and (s[i]<>'.') then sl:=sl+s[i] else
       if length(sl)>0 then
          begin
          if IsPalindrom(sl) then inc(k);
          sl:='';
          end;
writeln('Палиндромов: ',k);
readkey
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.07.2012, 17:48
Привет! Вот еще темы с решениями:

Считать из файла количество слов, определить те, которые больши К и вывести их в файл
Считать из файла количество слов, определить те, которые больши К и вывести их...

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

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

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


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

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

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