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

@Piatak · Регистрация: 28.04.2010

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

@GDin · 28.04.2010, 12:53

Может это поможет:

Pascal

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.

@Arustarh Dark · 28.04.2010, 12:57

Я понял вот так:

Delphi

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 - лишняя переменная имхо.

@Puporev · 28.04.2010, 12:58

Хотя вообще не понятно зачем нам n - лишняя переменная имхо.

А потому что задача не на строки, а на последовательности символов.

@Piatak · 28.04.2010, 14:02 **[ТС]**

Ребята спасибо за помощь.)))) Очень благодарен)

@Piatak 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

@Puporev Модератор 62248 / 46533 / 32081 Регистрация: 18.05.2008 Сообщений: 112,495
	28.04.2010, 12:58	4
	Хотя вообще не понятно зачем нам n - лишняя переменная имхо. А потому что задача не на строки, а на последовательности символов. 0

@Piatak 0 / 0 / 0 Регистрация: 28.04.2010 Сообщений: 5
	28.04.2010, 14:02 [ТС]	5
	Ребята спасибо за помощь.)))) Очень благодарен) 0

Опции темы