Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Live
0 / 0 / 1
Регистрация: 01.03.2009
Сообщений: 69
1

Найти символ * в строке и заключить в квадратные скобки

03.03.2009, 13:33. Просмотров 979. Ответов 4
Метки нет (Все метки)

Программа следующия..
С клаввы вводится строчка.. пофиг какая
если в ней есть символ * то его заключаем в [] Например:
23vewrg3$#rtf*feds
23vewrg3$#rtf[*]feds
У меня получается только [*....
вторую не могу...
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.03.2009, 13:33
Ответы с готовыми решениями:

Заключить каждое слово строки в скобки
Ввести символьную строку (string). Определить её длину. Создать вторую строку динамически которая...

Ввести символьную строку создать вторую динамически на основе первой но заключить в скобки слова не содержащие цифр
Ввести символьную строку создать вторую динамически на основе первой но заключить в скобки слова...

Найти символ по номеру позиции в строке
Есть строка . Нужно вывести в переменную значение за позицией в строке. Например , строка 'Привет'в...

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

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

4
schdub
Эксперт С++
3037 / 1379 / 421
Регистрация: 19.01.2009
Сообщений: 3,680
Завершенные тесты: 1
03.03.2009, 14:16 2
Может выложите исходник, посмотрим, что у Вас не так
0
Live
0 / 0 / 1
Регистрация: 01.03.2009
Сообщений: 69
03.03.2009, 14:58  [ТС] 3
Код на учебном пк... там буду токо в след понедельник, когда и над сдавать..
Там считываю с клавы.. сохраняю в масив, потом ищу в нем "*" находит весь хвост +1 на расположение
у мя была идея сделать чтот типо
Pascal
1
2
3
4
5
write(a[i,j]:4); строка
for k:=1 to c do begin {length(c);}
if a[i,j]:="*" then
gotoxy(k-1,y);
write("[");
...
Но так не прокатит чую
получалось чтот типо
dshfb^&*fdsa
d s h f b ^ & [* f d s a
0
schdub
Эксперт С++
3037 / 1379 / 421
Регистрация: 19.01.2009
Сообщений: 3,680
Завершенные тесты: 1
03.03.2009, 15:15 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
var s, t   : string;
    len, i : integer;
 
begin
  WriteLn('Введите строку');
  ReadLn(s);
  
  len := length(s);
  
  i:=1;
  while i<=len do
    if s[i]='*' then
    begin
      {мы нашли данный символ}
      s[i] :='[';
      Insert('*]',s, i+1);
      i:=i+3;
    end
    else
      Inc(i);
    
  WriteLn('Получилась такая строка');
  WriteLn(s);  
  
  ReadLn;
end.
0
GalaX
698 / 570 / 59
Регистрация: 18.11.2008
Сообщений: 2,147
03.03.2009, 15:16 5
попробуй так:
Pascal
1
2
3
4
5
6
for i:=1 to length(s) do begin
    if s[i]="*" then
        write("[", s[i], "]")
    else
        write(s[i])
end;
0
03.03.2009, 15:16
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.03.2009, 15:16

Найти символ, встречающийся в строке максимальное количество раз
Дана строка S. Найти символ, встречающийся в этой строке максимальное количество раз.

Найти символ, встречающийся в этой строке максимальное количество раз.
Дана строка S. Найти символ, встречающийся в этой строке максимальное количество раз.

Заменить каждый символ «точка» в строке на символ «вопросительный знак»
Общая инструкция. В программе необходимо определить динамическую длину строки и вывести это...


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

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

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