Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/15: Рейтинг темы: голосов - 15, средняя оценка - 4.53
0 / 0 / 0
Регистрация: 23.09.2014
Сообщений: 13
1

Дан массив слов Вывести на печать слова, начинающиеся на букву "а", заменив в них букву "р" на "*"

12.10.2014, 16:30. Показов 2930. Ответов 1
Метки нет (Все метки)

День добрый, друзья, помогите пожалуйста.
1)Дан массив слов. Вывести на печать слова, начинающиеся на букву "а", заменив в них букву "р" на "*", и заключив каждое слово в кавычки.
Написать все программы нужно через строковой тип данных. Заранее спасибо за помощь!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.10.2014, 16:30
Ответы с готовыми решениями:

Имеются ли в тексте слова, начинающиеся на букву "к" и оканчивающиеся на букву "а"
Люди добрые, пожалуйста помогите с 3-мя задачами по информатике. очень нужно. надеюсь на вашу...

Замена букв в слове X все буквы "a" на сочетание "ку", а букву "к" на букву "б"
Составить программу, которая меняет в слове X все буквы "a" на сочетание "ку", а букву "к" на букву...

Записать в другой файл слова, начинающиеся на букву "о" или "а"
Имеется файл, элементами которого являются отдельные слова. Записать в другой файл слова,...

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

1
3024 / 1910 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
12.10.2014, 23:15 2
Лучший ответ Сообщение было отмечено Laider как решение

Решение

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
const
  size = 5;
 
var
  x: array [1..size] of string;
  i: integer;
 
begin
  WriteLn('Введите элементы массива: ');
  for i := 1 to size do
  begin
    Write('[', i, '] = ');
    ReadLn(x[i])
  end;
  WriteLn('Полученный массив:');
  for i := 1 to size do
  begin
    if x[i][1] = 'a' then
      while Pos('p', x[i]) > 0 do
        x[i][Pos('p', x[i])] := '*';
    x[i] := '''' + x[i] + '''';
    WriteLn(x[i])
  end;
  ReadLn
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.10.2014, 23:15

Преобразовать строку, заменив в ней все буквы "а" на букву "о"
Дана строка русских букв. Преобразовать строку, заменив в ней все буквы а на букву о.

Есть ли в слове "x" буква "б". Если есть, заменить последнюю из них на букву "а"
составьте программу, проверяющую есть ли в слове "x" буква "б". Если есть замените последнюю из них...

Составить фразу "текстовый редактор" из слов "тесто", "редакция", "мотор", "который"
1) Составить фразу "текстовый редактор" из слов "тесто", "редакция", "мотор", "который".

Составить фразу "письменный стол" из слов "тесненный", "полка", "речь", "миф".
1) Составить фразу "письменный стол" из слов "тесненный", "полка", "речь", "миф". 2) Вывести...


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

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

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