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

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Live
0 / 0 / 0
Регистрация: 01.03.2009
Сообщений: 69
#1

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

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

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

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

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

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

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

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

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

4
schdub
2974 / 1319 / 244
Регистрация: 19.01.2009
Сообщений: 3,471
Завершенные тесты: 1
03.03.2009, 14:16 #2
Может выложите исходник, посмотрим, что у Вас не так
0
Live
0 / 0 / 0
Регистрация: 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
2974 / 1319 / 244
Регистрация: 19.01.2009
Сообщений: 3,471
Завершенные тесты: 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 / 21
Регистрация: 18.11.2008
Сообщений: 2,144
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
Привет! Вот еще темы с ответами:

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

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

Выводить строку, сокращая каждый раз на 1 символ, пока в строке не останется 1 символ - Pascal
Составьте программу для обработки строки текста, введенной с клавиатуры. Выполнить вывод строки текста, последовательно сокращая ее...

Выводить строку, сокращая каждый раз на 1 символ, пока в строке не останется 1 символ - Pascal
Необходимо написать программу, которая вводит строку и выводит её, сокращая каждый раз на 1 символ до тех пор, пока в строке не останется 1...


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

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

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