Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
fescar
8 / 7 / 9
Регистрация: 17.10.2009
Сообщений: 105
1

Выделить из строки предложение между первой и второй точками

15.03.2010, 14:55. Просмотров 466. Ответов 4
Метки нет (Все метки)

Задана строка символов, состоящая из нескольких предложений. Выделить предложение между первой и второй точками.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.03.2010, 14:55
Ответы с готовыми решениями:

Вывести подстроку, расположенную между первой и второй точками исходной строки
Дана строка. Вывести подстроку, расположенную между первой и второй точками исходной строки. Если в...

Вывести подстроку, расположенную между первой и второй (последней) точками исходной строки
Дана строка. Вывести подстроку, расположенную между первой и второй (последней) точками исходной...

Напечатать все символы между первой и второй точками.
Даны натуральное число n и символы S1..Sn, среди которых есть точки. Напечатать все символы...

Дана строка. вывести подстроку, распол. между первой и второй точками исходной строки
Дана строка. вывести подстроку, распол. между первой и второй точками исходной строки. если в...

Напечатать все символы между первой и второй точками
А как такое сделать? Даны натуральное число n и символы S1..Sn, среди которых есть точки....

4
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
15.03.2010, 18:13 2
Pascal
1
2
delete(s,1pos('.',s));
write(copy(s,1,pos('.',s)-1));
1
fescar
8 / 7 / 9
Регистрация: 17.10.2009
Сообщений: 105
16.03.2010, 05:33  [ТС] 3
это бредовый код, который я написал помогите исправить пожалуйста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program  Laba_11;
uses crt;
type mas = array [1..100] of string;
var s1,s2:mas;
 
i,j:byte;
begin
s2[j]:=('.');  i:=1;
 writeln('vvedite text ->');
 readln(s1[i]);
 if s1[i]=s2[j] then
 begin
 s1[i]:=s1[i+1];
  repeat
  textcolor(9);
  s1[i]:=s1[i+1];
  until s1[i]=s2[j];
  writeln(s1[i]);
 end
 else writeln('text vveden ne korectno');
  readln;
  end.
Добавлено через 7 часов 20 минут
кто-нибудь подскажет как исправить?
0
WolfCF
3290 / 1352 / 108
Регистрация: 28.04.2009
Сообщений: 4,823
16.03.2010, 06:35 4
Вам же написали как делать,а вы отсебятину пишите.
0
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
16.03.2010, 07:07 5
Чтобы не писать бред, думать немного нужно.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var s:string;
    k,i:byte;
begin
clrscr;
repeat
writeln('Введите не менее 3х  предложений, разделенных точкой:');
readln(s);
k:=0;
for i:=1 to length(s) do
if (s[i]='.')and(s[i-1]<>'.') then k:=k+1;//проверяем сколько точек после не точек
if k<2 then writeln('Текст введен неверно, повторите ввод!');
until k>=2;//если есть хоть 2, нормально
delete(s,1,pos('.',s));//удаляем все до первой точки включительно
writeln('Текст между первой и второй точками:');
write(copy(s,1,pos('.',s)-1));//выводим текст после первой точки до второй без нее
readln
end.
1
16.03.2010, 07:07
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.03.2010, 07:07

Выделить подстроку между первой и второй точкой
Дана строка символов, содержащая среди прочих два символа ‘.’. Написать программу, которая выделяет...

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

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


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

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

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