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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
fescar
8 / 7 / 5
Регистрация: 17.10.2009
Сообщений: 105
#1

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

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

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

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

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

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

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

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

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

4
Puporev
Модератор
54000 / 41633 / 14717
Регистрация: 18.05.2008
Сообщений: 97,854
15.03.2010, 18:13 #2
Pascal
1
2
delete(s,1pos('.',s));
write(copy(s,1,pos('.',s)-1));
1
fescar
8 / 7 / 5
Регистрация: 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
3288 / 1350 / 47
Регистрация: 28.04.2009
Сообщений: 4,823
16.03.2010, 06:35 #4
Вам же написали как делать,а вы отсебятину пишите.
0
Puporev
Модератор
54000 / 41633 / 14717
Регистрация: 18.05.2008
Сообщений: 97,854
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
Привет! Вот еще темы с ответами:

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

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

Строки. Вывести выражение, заключенное между первой открывающей и первой закрывающей скобками - Pascal
здравствуйте! помогите составить программу которая выводила бы выражение заключенное между первой открывающей и первой закрывающей скобками...

Даны 2 строки с числами первая строка больше второй, вычесть из первой строки вторую - Turbo Pascal
???


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

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

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