Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
ksusha_kse
0 / 0 / 0
Регистрация: 02.12.2012
Сообщений: 9
#1

Строки. Если в конце строки точка отсутствует, то найти слово, заканчивающееся точкой и перенести его в конец строки.

02.12.2012, 12:27. Просмотров 952. Ответов 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
Program 7;
Function perenos(Const St:String ; Var b,c:byte):String;
Var res:String; i:byte;
begin
for i:=1 to length(st) do
read(St);
res:='';
for i:=length(St) downto 1 do
b:=i;
for i:=b downto 1 do
if st[i] = ' ' then
c:=i;
for i:=1 to c-1 do
res:=res+st[i];
for i:=b+1 to length(st) do
res:=res+st[i];
for i:=b+1 to c do
res:=res+St[i];
end;
 
begin
perenos(st):=res;
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2012, 12:27
Ответы с готовыми решениями:

Ввести строку символов. Если символ в данной строке встречается один раз, в конце строки добавлять ещё раз его
Ввести строку символов. Если символ в данной строке встречается один раз, в...

Вырезать два первых символа символьной строки и поместить их в конец строки
Помоги те пожалуйста, решите сколько сможете. Задачи на строки. 2. Вырежьте...

Первую подходящую цифру исходной строки добавить в конец же строки
помогите пожалуйста со вторым методом!!! Объект 1: поле - строка; методы:...

Вывести строку, у которой в конце точка. Если точки нет, или перед точкой не буква, а пробел - то не выводить
Я написал код и он работает т.е выводит текст если в конце точка, если точки...

Написать программу, которая считывает исходный текст программы и записывает длину строки в виде комментария в конец каждой строки
Помогите пожалуйста. Написать программу, которая считывает исходный текст...

1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,657
Записей в блоге: 1
02.12.2012, 13:08 #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
Program a7;
Var st:string;
Function perenos(St:String):String;
Var res:String; i:byte;
begin
res:='';
if st[Length(st)]='.' then perenos:=st
 else
 Begin
   i:=Pos('.',st);
   Insert(' ',st,I+1);
   While (st[i]<>' ')and(i<>1) do
    dec(i);
   res:=Copy(st,i+1,Pos('.',st)-i+1);
   Delete(st,i+1,Pos('.',st)-i+1);
   perenos:=St+' '+res;
 End;
 
end;
 
begin
write('Введите строку: ');readln(st);
writeln('Полученная строка: ',Perenos(st));
readln;
End.
Тестируй.Предполагается что точка есть и она одна
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2012, 13:08

Ввести строку и слово. Удалить слово из строки, если она в ней содержится.
Ввести строку и слово. Удалить слово из строки, если она в ней содержится. вот...

Обмен между строками самого длинного слова первой строки на самое короткое слово второй строки
помогите чем сможете. Беда совсем. оформить в виде модуля подпрограммы,...

Даны две строки: S1 и S2. Удалить из строки S1 последнюю подстроку, совпадающую с S2. Если таких подстрок нет, то вывести S1 без изменений
Вот условие: Даны две строки: S1 и S2. Удалить из строки S1 последнюю...


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

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

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