Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Studen`
0 / 0 / 0
Регистрация: 12.01.2012
Сообщений: 3
#1

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

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

Условие

9.88. Дано предложение. Напечатать все символы, расположенные между первой и второй запятой. Если второй запятой нет, то должны быть напечатаны все символы, расположенные после единственной имеющейся запятой.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

Удалите из второй строки все символы, которые встречаются в первой строке, и поместите их в третью строку
1. Удалите из второй строки все символы, которые встречаются в первой строке, и...

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

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

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

1
rangerx
1941 / 1550 / 478
Регистрация: 31.05.2009
Сообщений: 2,913
16.01.2012, 23:04 #2
Лучший ответ Сообщение было отмечено Studen` как решение

Решение

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

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

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

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


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

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

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