Сам себе *****
31 / 31 / 7
Регистрация: 18.10.2009
Сообщений: 236
1

Заменить в исходной строке символов все единицы нулями и все нули единицами

15.11.2009, 01:13. Показов 2181. Ответов 1
Метки нет (Все метки)

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

Напишите пожалуйста саму процедуру
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.11.2009, 01:13
Ответы с готовыми решениями:

Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й строке их квадратами
переведите на паскаль Дан массив R (M, N). Заменить в третьем столбце все отрицательные элементы...

Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й строке их квадратами
Дан массив R (M, N). Заменить в третьем столбце все отрицательные элементы нулями, все...

Массив. Переставить элементы массива так, чтобы сначала располагались все нули, затем все единицы
Тема Одномерные массивы В массиве X(1:n) каждый элемент равен 0, 1 или 5. Переставить элементы...

Заменить все элементы нулями, кроме эл-ов, находящихся в строке и столбце
Добрый день! Задача такая: В матрице размером N x N найти наибольший элемент главной диагонали и...

1
Retired
7726 / 2558 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
15.11.2009, 01:31 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Inside, вот решение:
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
27
var
  s:string;
  i,po:integer;
{îñíîâíàÿ ïðîãðàììà}
begin
  writeln('Ââåäèòå ñòðîêó:');
  readln(s);
  repeat
    writeln('C êàêîé ïîçèöèè íà÷àòü:');
    readln(po);
    if po=0 then
      exit;
    if (po>length(s)) or (po<0) then
      writeln('Íåâåðíî çàäàíà ïîçèöèÿ! Ïîïðîáóéòå åùå ðàç èëè ââåäèòå 0 äëÿ âûõîäà!')
  until
    (po<=length(s)) and (po>=1);
  for i:=po to length(s) do
  begin
    if s[i]='1' then
      s[i]:='0'
    else
      if s[i]='0' then
        s[i]:='1'
  end;
  writeln('Ïîëó÷åííàÿ ñòðîêà:');
  writeln(s)
end.
Добавлено через 3 минуты
а вот с процедурой
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
27
28
29
30
31
32
33
34
var
  s:string;
  i,po:integer;
{ïðîöåäóðà çàìåíû}
procedure Pr(var s:string; const po:integer);
var
  i:integer;
begin
  for i:=po to length(s) do
  begin
    if s[i]='1' then
      s[i]:='0'
    else
      if s[i]='0' then
        s[i]:='1'
  end
end;
{îñíîâíàÿ ïðîãðàììà}
begin
  writeln('Ââåäèòå ñòðîêó:');
  readln(s);
  repeat
    writeln('C êàêîé ïîçèöèè íà÷àòü:');
    readln(po);
    if po=0 then
      exit;
    if (po>length(s)) or (po<0) then
      writeln('Íåâåðíî çàäàíà ïîçèöèÿ! Ïîïðîáóéòå åùå ðàç èëè ââåäèòå 0 äëÿ âûõîäà!')
  until
    (po<=length(s)) and (po>=1);
  Pr(s,po);
  writeln('Ïîëó÷åííàÿ ñòðîêà:');
  writeln(s)
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.11.2009, 01:31
Помогаю со студенческими работами здесь

Заменить все буквы a на q в строке из 25 символов
Срочно нужна помощь, не допускают до сессии!!! Нужно написать программу: 1. Заменить все буквы...

Заменить в заданной строке символов все цифры на их словесные обозначения
Заменить в заданной строке символов все цифры на их словесные обозначения(0 на ноль, 1 на один, 2...

Заменить в заданной строке символов все цифры на их словесные обозначения
Заменить в заданной строке символов все цифры на их словесные обозначения(0 на ноль, 1 на один, 2...

Заменить в строке символов все восклицательные знаки точками до первого пробела
Дана строка символов. Замените в ней все восклицательные знаки точками до первого пробела.


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

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

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