Строки

[Doublefaced]

Дана строка, значение которой является число в экспоненциальной форме представления (2,3Е+3). Необходимо получить строку, значением которой будет представлено в нормальной форме (2300). При решении не использовать преобразования строкового типа в числовой.

Как можно решить без числового типа? Разве это возможно?

[DomiNick]

Это в Делфи нужно делать? А можно результат в ту же строку помещать?

[Doublefaced]

Да в в консоле Делфи. Результат в строку, да.

[ОДИНОЧЕСТВО В СЕТИ]

Как можно решить без числового типа?

решать надо без преобразования строки в число а не без числового типа то есть без использования функции

StrToInt('строка')

[Doublefaced]

Напишите в общем виде. Я не совсем понял, что куда.

[DomiNick]

Хм... Вообще интересное задание...



Ну допустим разделили строку на две части - до "E+" и после...
А дальше надо думать.....

[Doublefaced]

Пока не придумал, кто знает напишите код пож-та!

[Serge_Bliznykov]

для того, чтобы решить данную задачу нужно научиться переводить один символ из символьного представления в числовое.
Вы даже не представляете, сколько различных вариантов есть для этого..
пусть в S - у нас цифры. задача - перевести каждую символ-цифру в число.
вот, навскидку, три варианта:

const Chislo : array['0'..'9'] of integer = (0,1,2,3,4,5,6,7,8,9);
const Numbers = '0123456789';
var
  s : string;
  i,k : integer;
begin
  WriteLn;
  s:='98057';
  WriteLn('Исходная строка: ',s);
  WriteLn('Вариант 1:');
  for i:=1 to length(s) do
  begin
    k := ord(s[i])-ord('0');
    WriteLn(k)
  end;
  WriteLn('----------------');
  WriteLn('Вариант 2:');
  for i:=1 to length(s) do
  begin
    k := Chislo[s[i]];
    WriteLn(k)
  end;
  WriteLn('----------------');
  WriteLn('Вариант 3:');
  for i:=1 to length(s) do
  begin
    if Pos(s[i],Numbers)>0 then
       k := Pos(s[i],Numbers)-1;
    WriteLn(k)
  end;
  WriteLn('----------------');
end.

NB. мне кажется вариант 1 самый удобный в данном случае. я бы рекомендовал взять его за основу

что же касается целиком задачи перевода строки из экспоненциальной формы,
то вот, полностью программа.
Нужные проверки добавите сами.
И разобраться я предлагаю Вам самостоятельно.

function MyStrToFloat(s : string):double;
const
  {разделитель целой и дробной части мантиссы}
  DecimalSeparator = '.'; 
var
  MyResult,Base : double;
  IntPart,FractPart : string;
  i : integer;
begin
  MyResult := 0.0;

  FractPart := '';
  if Pos(DecimalSeparator,s)>0 then begin
    IntPart := Copy(s,1, Pos(DecimalSeparator,s)-1);
    FractPart := Copy(s,Pos(DecimalSeparator,s)+1,
                      Length(s)-Pos(DecimalSeparator,s)+1);
  end
  else IntPart := s;

  {перевод целой части мантиссы}
  Base := 1;
  for i:=Length(IntPart) downto 1 do
  begin
    MyResult := MyResult + (ord(IntPart[i])-ord('0'))* Base;
    Base := Base * 10;
  end;

  {перевод дробной части мантиссы}
  Base := 0.1;
  for i:=1 to Length(FractPart) do
  begin
    MyResult := MyResult + (ord(FractPart[i])-ord('0'))* Base;
    Base := Base / 10;
  end;

  MyStrToFloat := MyResult;
end;

var
  s, sMantissa, sPokazatel : string;
  i, iPokazatel  : integer;
  znakPokazatel : boolean;
  Res : double;
begin
  WriteLn('Введите число в экспоненциальной форме (разделитель - точка):');
  Readln(s);
  for i:=1 to Length(s) do s[i] := UpCase(s[i]);

  if (Pos('E',s)<2) or (Pos(',',s)>0) then begin
    Writeln('Введённая строка не является числом в экспоненциальной форме!');
    Halt(100);
  end;

  sMantissa := Copy(s, 1, Pos('E',s)-1);
  sPokazatel := Copy(s, Pos('E',s)+1, Length(s)-Pos('E',s)+1);

  if (sPokazatel[1]<>'+') and (sPokazatel[1]<>'-')
        or (Length(sPokazatel)<2) then begin
    Writeln('Введённая строка не является числом в экспоненциальной форме!');
    Halt(101);
  end;
  znakPokazatel := (sPokazatel[1]='+');
  sPokazatel := Copy(sPokazatel, 2, Length(sPokazatel)-1);

  Res := MyStrToFloat(sMantissa);
  iPokazatel := Trunc(MyStrToFloat(sPokazatel));

  for i:=1 to iPokazatel do
  begin
    if znakPokazatel
      then Res := Res * 10
      else Res := Res / 10;
  end;

  WriteLn('Число ',S,' = ',Res:20:8);

end.

[DomiNick]

Эх... Не успел...

вот, навскидку, три варианта:

Здорово... Мой вариант на фоне тех смотрится больно громоздким и неуклюжим...

d:=0;
While c<>'' Do
      Begin
      Case c[1] Of
            '0':
                  d:=d*10;
            '1':
                  d:=d*10+1;
            '2':
                  d:=d*10+2;
            '3':
                  d:=d*10+3;
            '4':
                  d:=d*10+4;
            '5':
                  d:=d*10+5;
            '6':
                  d:=d*10+6;
            '7':
                  d:=d*10+7;
            '8':
                  d:=d*10+8;
            '9':
                  d:=d*10+9;
            End;
      c:=Copy(c, 2, Length(c)-1);
      End;
// теперь в переменной d такое же число как в строке c...

Да и остальной код тоже... Многое не учтено, по сравнению с вариантом Serge_Bliznykov'а...

Но пусть он будет храниться здесь... Для истории...

Var A, b, c: String; L, S, d: Integer;
...
WriteLn('Введите число (разделитель - точка)');
ReadLn(A);
L:=Length(A);
S:=Pos('E+', A);
If S<>0 Then
      Begin
      b:=Copy(A, 1, S-1);
      c:=Copy(A, S+2, L-S);
      End;
// теперь в строке "b" часть строки "A" до "E+"
// а в строке "c" часть строки "A" после "E+"
If (Length(c)<>0) And (c[1]<>'0') Then // если после "E+" не пусто и не ноль
      Begin
      S:=Pos('.', b);
      L:=Length(b);
      If S=0 Then // если в строке "b" нет точки
            Begin
            d:=0;
            While c<>'' Do
                  Begin
                  Case c[1] Of
                        '0':
                              d:=d*10;
                        '1':
                              d:=d*10+1;
                        '2':
                              d:=d*10+2;
                        '3':
                              d:=d*10+3;
                        '4':
                              d:=d*10+4;
                        '5':
                              d:=d*10+5;
                        '6':
                              d:=d*10+6;
                        '7':
                              d:=d*10+7;
                        '8':
                              d:=d*10+8;
                        '9':
                              d:=d*10+9;
                        End;
                  c:=Copy(c, 2, Length(c)-1);
                  End;
            A:=b;
            While d<>0 Do
                  Begin
                  A:=A+'0';
                  d:=d-1;
                  End;
            End
      Else  // если в строке "b" есть точка
            Begin
            d:=0;
            While c<>'' Do
                  Begin
                  Case c[1] Of
                        '0':
                              d:=d*10;
                        '1':
                              d:=d*10+1;
                        '2':
                              d:=d*10+2;
                        '3':
                              d:=d*10+3;
                        '4':
                              d:=d*10+4;
                        '5':
                              d:=d*10+5;
                        '6':
                              d:=d*10+6;
                        '7':
                              d:=d*10+7;
                        '8':
                              d:=d*10+8;
                        '9':
                              d:=d*10+9;
                        End;
                  c:=Copy(c, 2, Length(c)-1);
                  End;
            d:=d-L+S;
            A:=Copy(b, 1, S-1)+Copy(b, S+1, L-S);
            While d<>0 Do
                  Begin
                  A:=A+'0';
                  d:=d-1;
                  End;
            End;
      WriteLn(A);
      End
Else
      WriteLn('Error');

[Stilet]

Предлагаю свой вариант:

   var e,s:string;f,cm:byte;ex:char;
begin
 s:='2,85E+5';
 f:=1;while s[f]<>'E' do begin
  if s[f] in ['0'..'9'] then  e:=e+s[f];
  if s[f] in ['.'..','] then cm:=f;
  inc(f);
 end;
 ex:=s[length(s)];
 f:=length(e)-cm;
 while chr(f+ord('0'))<=ex do begin inc(f); e:=e+'0';end;
 write(e);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

При решении не использовать преобразования строкового типа в числовой.

Думаю что соблюл это условие на 98%