Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Aleksandr25
0 / 0 / 0
Регистрация: 04.03.2014
Сообщений: 2
1

Описать процедуру Replace(S), заменяющую в строке S символы нижнего подчеркивания на пробелы. Используя эту процедуру, преобразовать пять данных строк

04.03.2014, 10:59. Просмотров 841. Ответов 4
Метки нет (Все метки)

Описать процедуру Replace(S), заменяющую в строке S символы нижнего подчеркивания на пробелы. Используя эту процедуру, преобразовать пять данных строк.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.03.2014, 10:59
Ответы с готовыми решениями:

описать процедуру, меняющую в строке точки на запятые
используя процедуру (sub)

Описать процедуру рисования любого узора. Используя эту процедуру "замостить" узором холст
Разработать программу, в которой описана процедура рисования любого...

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

Описать процедуру, удаляющую в строке начальные пробелы
Описать процедуру TrimL(S)1, удаляющую в строке S начальные пробелы. Используя...

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

4
Taatshi
Администратор
11727 / 5080 / 257
Регистрация: 05.04.2011
Сообщений: 13,854
Записей в блоге: 2
04.03.2014, 11:33 2
Aleksandr25, язык программирования какой?
0
Cyborg Drone
Модератор
5747 / 3361 / 2509
Регистрация: 17.08.2012
Сообщений: 10,794
04.03.2014, 16:53 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function replace(var x: string): string;
begin
  while pos('_', x) > 0 do x[pos('_', x)] := ' '
end;
var i: integer;
    s: array [1..5] of string;
begin
  writeln('Введите пять строк:');
  for i := 1 to 5 do
    begin
      write(i, ': ');
      readln(s[i]);
      replace(s[i])
    end;
  writeln('Результат:');
  for i := 1 to 5 do writeln(i, ': ', s[i]);
  readln
end.
1
Kodzaev
3009 / 1898 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
04.03.2014, 19:48 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure Replace(var x: string);
begin
  while Pos('_', x) > 0 do
    x[Pos('_', x)] := ' '
end;
 
var
  s: string;
  i: byte;
 
begin
  WriteLn('Введите пять строк:');
  for i := 1 to 5 do
  begin
    ReadLn(s);
    Replace(s);
    WriteLn(s);
  end;
  ReadLn
end.
1
KOPOJI
04.03.2014, 22:57     Описать процедуру Replace(S), заменяющую в строке S символы нижнего подчеркивания на пробелы. Используя эту процедуру, преобразовать пять данных строк
  #5
 Комментарий модератора 
Создавайте темы в соответствующем разделе.
Правильно выберете раздел - быстрее вероятность получения ответа на нужном языке.
0
04.03.2014, 22:57
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.03.2014, 22:57
Привет! Вот еще темы с ответами:

Описать процедуру TrimL(S), удаляющую в строке S лишние пробелы
Помогите пожалуйста человеку который нифига не разбирается в Паскали.......

Описать процедуру Trim(S), удаляющую в строке S начальные и конечные пробелы
нужно решить задачу до завтра, помагите пожалуйста! Задача: Описать...

Описать процедуру, удаляющую в строке конечные символы
Param35. Описать процедуру TrimRightC(S, C), удаляющую в строке S конеч-ные...


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

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

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