Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
1 / 1 / 0
Регистрация: 07.09.2014
Сообщений: 40
1

Подпрограмма, отображающая заданное слово зеркально

03.06.2015, 15:28. Показов 1102. Ответов 1
Метки нет (Все метки)

Подскажите пожалуйста, как написать подпрограмму, которая отображает каждое N-е слово в предложении зеркально?
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.06.2015, 15:28
Ответы с готовыми решениями:

Функция, зеркально отображающая битовое представление числа
Необходимо написать программу которая зеркально переворачивает битовое представление целого числа,...

Обработка текстовой информации. - Дан текст. Заменить в тексте ЗАДАННОЕ(1) слово на ЗАДАННОЕ(2) слово
Задание: Дан текст. Заменить в тексте ЗАДАННОЕ(1) слово на ЗАДАННОЕ(2) слово. В ниже...

Дан текст. Заменить в тексте ЗАДАННОЕ(1) слово на ЗАДАННОЕ(2) слово
Дан текст. Заменить в тексте ЗАДАННОЕ(1) слово на ЗАДАННОЕ(2) слово.

Заменить в тексте ЗАДАННОЕ(1) слово на ЗАДАННОЕ(2) слово
Дан текст. Заменить в тексте ЗАДАННОЕ(1) слово на ЗАДАННОЕ(2) слово. Помогите пожалуйста с...

1
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
03.06.2015, 18:10 2
Лучший ответ Сообщение было отмечено nobody_hears как решение

Решение

Цитата Сообщение от nobody_hears Посмотреть сообщение
отображает каждое N-е слово в предложении зеркально
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
const rz=[' ',',','.','?','!',';',':'];//разделители слов, можно добавить
function zerkalo(s:string;n:integer):string;
var i,j,len,k:integer;
    s1:string;
begin
s:=','+s;
len:=length(s);
i:=2;
k:=0;
while i<=len do
if not(s[i]in rz)and(s[i-1] in rz)then
 begin
  k:=k+1;
  s1:='';
  j:=i;
  while(j<=len)and not(s[j]in rz)do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if k mod n=0 then
   begin
    delete(s,i,length(s1));
    insert(reversestring(s1),s,i);
   end;
  i:=i+length(s1);
 end
else i:=i+1;
delete(s,1,1);
result:=s
end;
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    n:integer;
begin
s:=Edit1.Text;
n:=strtoint(Edit2.Text);
Edit3.Text:=zerkalo(s,n);
end;
Добавлено через 1 минуту
В uses добавить StrUtils;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.06.2015, 18:10

Распечатать строку, которая содержит заданное слово заданное количество раз
Доброго времени суток! Помогите написать код по заданию! Само задание: Даны несколько строк,...

Распечатать строку, которая содержит заданное слово заданное колличество раз
Доброго времени суток. Суть проблемы такова: в написанной программе, вместо строки распечатывается...

Вывести заданное слово заданное количество раз разными цветами.
Программа запрашивает слово, количество повторов и выводит это слово указанное количество раз....

Заданное слово повторить в строке заданное количество раз
задали по ассемблеру написать лабу.в командной строке задаются 2 параметра.1-слово,2-кол-во...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru