Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
N. White
0 / 0 / 0
Регистрация: 06.07.2012
Сообщений: 26
#1

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

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

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

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

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

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

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

В заданном тексте определить количество слов, которые заканчиваются на букву А - Turbo Pascal
Помогите перевести программу из АВС в Турбо Паскаль заранее спасибо.:declare: var s : string; i, k : integer; begin k :=...

Считать из файла количество слов, определить те, которые больши К и вывести их в файл - Pascal
Считать из файла количество слов, определить те, которые больши К и вывести их в файл! срочно помогите пожалуйста!!!

1
КонецСвета
Почетный модератор
7924 / 3894 / 940
Регистрация: 30.10.2011
Сообщений: 5,379
08.07.2012, 17:48 #2
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
Привет! Вот еще темы с ответами:

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

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

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

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


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

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

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