Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Puporev
Модератор
54711 / 42119 / 29083
Регистрация: 18.05.2008
Сообщений: 99,407
16.03.2010, 07:07 0

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

16.03.2010, 07:07. Просмотров 466. Ответов 4
Метки (Все метки)

Ответ

Чтобы не писать бред, думать немного нужно.
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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.03.2010, 07:07
Готовые ответы и решения:

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

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

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

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

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

4
Другие темы раздела
Turbo Pascal Зеркально отразить массив http://www.cyberforum.ru/turbo-pascal/thread104820.html
Помогите пожалуйста. Нужно зеркально отразить двухмерный квадратный массив массив, относительно главной диагонали. Например вводим размерность массива 3 и генератор случайных чисел выдает такой...
Turbo Pascal школьные задания СТРОКИ 1)выяснить,является ли строка полиндромом? 2)поменять местами самое длинное и самое короткое слова в строке. 3)строка состоит из латинских букв и цифр,составить число из цифр в строке. http://www.cyberforum.ru/turbo-pascal/thread104802.html
В двумерном массиве В(10,10) найти совпадющие строки Turbo Pascal
В двумерном массиве В(10,10) найти совпадющие строки
Turbo Pascal Подсчитать количество букв «и» в списке
Помогите составить программу: Подсчитать количество букв «и» в списке, состоящем из пяти фамилий: Якубовский, Барханов, Ниссельсон, Терехин, Сидоров. Если таких букв чётное количество, то...
Turbo Pascal Переписать с сохранением порядка следования компоненты файла f1 — в файл f2 http://www.cyberforum.ru/turbo-pascal/thread104691.html
Здравствуйте, помогите пожалуйста , с помощу процедуры. Сформировать файлы f1 и f2. Формулу для формирования f2 взять с (А). переписать с сохранением порядка следования компоненты файла f1 - в...
Turbo Pascal нужно разобраться с кодом вот задание Запрограммировать следующие процедуры и функции: а) поиск записи, б) вывод записи, в) сортировка файла по убыванию по одному из полей, г) добавление новой записи с сохранением... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru