Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.74/19: Рейтинг темы: голосов - 19, средняя оценка - 4.74
-7 / 0 / 3
Регистрация: 12.09.2012
Сообщений: 29
1

Ввести строку. После каждой буквы «А» вставить слог «МА»

30.09.2012, 11:48. Показов 3672. Ответов 4
Метки нет (Все метки)

1. Ввести строку. После каждой буквы «А» вставить слог «МА».
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.09.2012, 11:48
Ответы с готовыми решениями:

Ввести строку. После каждой буквы "А" вставить слог "МА"
Ввести строку. После каждой буквы "А" вставить слог "МА"

После каждой буквы предпоследнего слова вставить символ «*»
После каждой буквы предпоследнего слова вставить символ «*».

Во втором слове после каждой буквы вставить пробел, исправьте
program slf; var a, o, i:integer; s:string; begin writeln('введие строку:'); readln(s); for...

Случайным образом после каждой буквы вставить любую букву алфавита
2)случайным образом после каждой буквы вставить любую букву алфавита. например я изучаю- яэ...

4
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,262
Записей в блоге: 1
30.09.2012, 12:11 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Const sl='МА';
Var s:string;
    i:byte;
Begin
    write('Введите строку: ');readln(s);
    While i<Length(s) do
     Begin
      inc(i);
      if s[i]='А' then 
       Begin
        Insert(sl,s,i+1);
        inc(i,2);
       End;
     End;
    writeln('Полученная строка: ',s);
End.
1
296 / 274 / 194
Регистрация: 03.05.2012
Сообщений: 567
30.09.2012, 12:30 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var s:string;
    i:byte;
 
begin
  writeln('Введите строку');
  readln(s);
  i:=0;
  while i<length(s) do Begin
    inc(i);
    if s[i]='А' then begin
      insert('МА',s,i+1);
      i:=i+2;
    end;
  end;
  writeln(s);
  readln
end.
Добавлено через 44 секунды
Не успел...
1
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,262
Записей в блоге: 1
30.09.2012, 12:31 4
Paster Fob, после do скорее всего предпологалось Begin End;
0
296 / 274 / 194
Регистрация: 03.05.2012
Сообщений: 567
30.09.2012, 12:33 5
Я исправил
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.09.2012, 12:33

Вставить после каждой нечетной строки первую строку!
Нашел на форуме код, только с немного другим заданием(вставить первую после четной строки), но он...

Вставить в строку после каждой цифры заданную последовательность символов
Введите строку. преобразуйте строку таким образом, что после каждой цифры стояли &quot;!!!&quot;. вывести...

Ввести строку из 6 или больше слов, после 4 слова вставить какую либо цифру
Ввести строку из 6 или больше слов, после 4 слова вставить какую либо цифру.

Напечатать строку, предварительно после каждой буквы q добавить букву u
type stroka = packed array of char; var s:stroka; Известно, что в начале строки s...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru