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

Free Pascal

Войти
Регистрация
Восстановить пароль
 
Studen`
0 / 0 / 0
Регистрация: 12.01.2012
Сообщений: 3
#1

Напечатать все символы, расположенные между первой и второй запятой - Free Pascal

12.01.2012, 14:11. Просмотров 607. Ответов 1
Метки нет (Все метки)

Условие

9.88. Дано предложение. Напечатать все символы, расположенные между первой и второй запятой. Если второй запятой нет, то должны быть напечатаны все символы, расположенные после единственной имеющейся запятой.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.01.2012, 14:11
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Напечатать все символы, расположенные между первой и второй запятой (Free Pascal):

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

Удалите из второй строки все символы, которые встречаются в первой строке, и поместите их в третью строку - Free Pascal
1. Удалите из второй строки все символы, которые встречаются в первой строке, и поместите их в третью строку. Добавлено через 5 минут ...

Напечатать все символы, расположенные между первой и второй запятой - Pascal
Пожалуйста помогите решить. Дано предложение. Напечатать все символы, расположенные между первой и второй запятой. Если второй запятой...

Удалить из предложения все символы, расположенные между первой и второй запятыми - Pascal
1. Удалить из предложения все символы МЕЖДУ первой и второй запятыми. 2. Дано предложение, удалить из него все повторяющиеся символы 3....

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

определить количество слов, расположенных между первой и второй запятой - Pascal
Помогите пожалуйста определить количество слов, расположенных между первой и второй запятой на tyrdo paskal. Очень срочно надо!!! ...

1
rangerx
1935 / 1544 / 141
Регистрация: 31.05.2009
Сообщений: 2,913
16.01.2012, 23:04 #2
9.88
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
26
27
28
29
30
31
32
33
34
program prog;
 
function CharPos(const str: string; ch: char; startPos: integer): integer;
begin
  while startPos <= Length(str) do
  begin
    if str[startPos] = ch then Exit(startPos);
    Inc(startPos);
  end;
 
  CharPos:= 0;
end;
 
//--------------------
 
var
  count: integer;
  posStart: integer;
  posEnd: integer;
  s: string;
begin
  Write('Input string: ');
  ReadLn(s);
 
  posStart:= CharPos(s, ',', 0);
  if posStart <> 0 then
  begin
    posEnd:= CharPos(s, ',', posStart + 1);
    if posEnd <> 0 then count:= posEnd - posStart - 1
    else count:= Length(s) - posStart;
    WriteLn(Copy(s, posStart + 1, count));
  end;
  ReadLn;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.01.2012, 23:04
Привет! Вот еще темы с ответами:

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

Получите все символы, расположенные между первым и вторым двоеточием - Pascal
Пусть даны целое число n, символы S1, S2,..., Sn, среди которых есть двоеточие. Получите все символы, расположенные: между первым и...

Получите все символы, расположенные между первым и вторым двоеточием - Pascal
Пусть даны целое число n, символы S1, S2,..., Sn, среди которых есть двоеточие. Получите все символы, расположенные: между первым и...

Введите строку. Удвоить все символы «*», расположенные между первым и вторым двоеточием - Pascal
Введите строку. Удвоить все символы «*», расположенные между первым и вторым двоеточием.


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

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

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