Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
kuks2010
0 / 0 / 0
Регистрация: 07.01.2010
Сообщений: 51
1

Напечатать все символы между первой и второй точками.

21.01.2010, 22:51. Просмотров 1008. Ответов 2
Метки нет (Все метки)

Даны натуральное число n и символы S1..Sn, среди которых есть точки. Напечатать все символы между первой и второй точками. Если второй точки нет, то получить все символы, расположенные после единственной точки.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2010, 22:51
Ответы с готовыми решениями:

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

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

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

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

Вывести на экран все символы, расположенные между двумя точками.
Друзья, помогите мне, пожалуйста решить задачу в ПАСКАЛЕ. Дана строка...

2
кот Бегемот
Платежеспособный зверь
8491 / 3928 / 1532
Регистрация: 28.10.2009
Сообщений: 10,197
21.01.2010, 23:06 2
Лучший ответ Сообщение было отмечено kuks2010 как решение

Решение

Цитата Сообщение от kuks2010 Посмотреть сообщение
Даны натуральное число n и символы S1..Sn, среди которых есть точки. Напечатать все символы между первой и второй точками. Если второй точки нет, то получить все символы, расположенные после единственной точки.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
s:string;
n,i,k:integer;
begin
writeln('vvediye kol-vo simvolov n');
readln(n);
writeln('vvediye stroku');
readln(s);
for i:=1 to n do
begin
if s[i]='.'then inc(k);
if (s[i]<>'.')and(k=1)then write(s[i]);
end;
readln;
end.
1
Inadequate
Retired
7710 / 2543 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
21.01.2010, 23:11 3
Pascal
1
2
3
4
5
6
7
8
var
  S:string;
  N:integer;
begin
  ReadLn(S);
  N:=Pos('.',S);
  WriteLn(Copy(S,N+1,Pos('.',Copy(S,N+1,Length(S)))-1))
end.
при желании конечно можно и N выкинуть
Pascal
1
2
3
4
5
6
var
  S:string;
begin
  ReadLn(S);
  WriteLn(Copy(S,Pos('.',S)+1,Pos('.',Copy(S,Pos('.',S)+1,Length(S)))-1))
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.01.2010, 23:11

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

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

Дано предложение. Напечатать все его символы, предшествующие первой запятой
Обработка строк с использованием операторов цикла с условием 1. Дано...


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

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

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