Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 28.04.2010
Сообщений: 5
1

Преобразовать последовательность S1,....Sn удалив из нее все запятые

28.04.2010, 11:57. Просмотров 1043. Ответов 4
Метки нет (Все метки)

1) Даны натур. числа n,символы S1,....Sn среди которых есть хотя бы одна точка. Преобразовать последовательность S1,....Sn удалив из нее все запятые, предшествующие первой точке, и заменив знаком + все цифры 3, встречающиеся после первой точки.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.04.2010, 11:57
Ответы с готовыми решениями:

Преобразовать последовательность, удалив из неё символы, не являющиеся буквами
Здравствуйте! Помогите пожалуйста решить задачу. То есть вводим текст с цифрами, знаками...

Преобразовать строку, удалив из нее все запятые, предшествующие первой точке
Дана строка, среди символов которой есть хотя бы одна точка. Преобразовать ее, удалив из нее все...

Преобразовать строку, удалив из неё все запятые, предшествующие первой точке
Дана строка символов,среди которых есть хотя бы одна точка.Преобразовать строку,удалив из неё все...

Преобразовать строку, удалив из нее все запятые, предшествующие первой точке, и заменив знаком "+" все цифры "5"
Дана строка символов, среди которых есть хотябы одна точка. Преобразовать строку, удалив из нее все...

4
4 / 4 / 2
Регистрация: 25.04.2010
Сообщений: 18
28.04.2010, 12:53 2
Может это поможет:
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
program stroka;
uses crt;
var
 k,i:integer;
  s,n:string;
 
 begin
  clrscr;
 writeln('Vvedite stroku',s);
 readln(s);
  for i:=1 to length(s) do
  begin
   while (s[i-1]=',') and (s[i]='.') do
    delete (s,i-1,1);
  end;
 
  n:='+';
      for i:=1 to length(s) do
     begin
      while  (pos('.',s)=i) and (pos('3',s)=i+1) do
         begin
         delete(s,i+1,1);
        s:=s+n;
                 end;
 
     writeln(s);
  readkey;
  end;
 
  end.
0
59 / 60 / 12
Регистрация: 08.06.2008
Сообщений: 243
28.04.2010, 12:57 3
Я понял вот так:
Delphi
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
35
36
37
38
39
40
41
program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  beforedot:boolean;
  i,n:integer;
  s:string;
begin
  beforedot:=true;
  WriteLn('Input n');
  ReadLn(n);
  WriteLn('Input S');
  ReadLn(s);
  if Length(s)>n then
    s:=copy(s,1,n);  //это чтобы обрезать стрроку до нужной длины
  i:=1;
  repeat
    begin
    if (s[i]='.') and beforedot then
        beforedot := false;
      if beforedot then
        begin
          if s[i]=',' then
            delete(s,i,1)
          else
            inc(i);
        end
      else
        begin
          if s[i]='3' then
            begin
              s[i]:='+';
            end;
          inc(i);
        end;
    end;
   until i=length(s);
  WriteLn(s);
  ReadLn;
end.
Хотя вообще не понятно зачем нам n - лишняя переменная имхо.
0
Модератор
62248 / 46533 / 32081
Регистрация: 18.05.2008
Сообщений: 112,495
28.04.2010, 12:58 4
Хотя вообще не понятно зачем нам n - лишняя переменная имхо.
А потому что задача не на строки, а на последовательности символов.
0
0 / 0 / 0
Регистрация: 28.04.2010
Сообщений: 5
28.04.2010, 14:02  [ТС] 5
Ребята спасибо за помощь.)))) Очень благодарен)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.04.2010, 14:02

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Распечатать последовательность, удалив из нее все цифры
Дана последовательность символов. Распечатать эту последовательность вытерев с нее все цифры.

Преобразовать последовательность S1,.Sn удалив из нее все запятые
Даны натуральное число n, символы S1,...,Sn, среди которых есть хотя бы одна точка. Преобразовать...

Преобразовать последовательность S1,....Sn удалив из нее все запятые
1) Даны натур. числа n,символы S1,....Sn среди которых есть хотя бы одна точка. Преобразовать...

Преобразовать строку символов, удалив из нее все запятые, предшествующие первой точке
Известно, что в исходной строке есть хотя бы одна точка. Преобразовать строку символов, удалив из...


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

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

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