Задача со строками!

[gylayko]

целое число превышающее 3 млн представление символьной строкой. Удвоить его и ответ вывести! Паскаль. Как это можно сделать?

[Zer0]

работать с числом как с массивом цифр, поищите по форуму "Длинная арифметика"

[KORT]

Набросал на скорую руку

var
  s: string;
  n: LongInt;
  kod: integer;
begin
readln('Число ',s);
val(s,n,kod);
if n > 3000000 then
  n:=n*2;
writeln('Число = ',n);
readkey;
end.

[Zer0]

KORT, я так понимаю ТС не это просил
Но все же, ему это лучше знать

[gylayko]

Мне нужно 1.сгенерировать или ввести число больше 3 млд в строке 2.перевести строку в число 3.число умножить на 2 и вывести результат
но как перевести строку в число, допустим я введу с клавиатуры число больше 3 млд, а дальше?

[IT-man]

Мне нужно

читаем внимательно

Сообщение от Zer0

работать с числом как с массивом цифр, поищите по форуму "Длинная арифметика"

[Serge_Bliznykov]

gylayko
во-первых, Вы же просили число более 3 миллионов, уже более 3-х миллиардов откудато взялось..

во-вторых, ответ Вам был дан в пост #2

в-третьих, Вы ошибаетесь, когда говорите

перевести строку в число

задача как раз в том и состоит, что нет типов данных, способных вместить целое число длиной, скажем 50 десятичных знаков.

а решить задачу ОЧЕНЬ просто. Рассматривайте строку как МАССИВ цифр.
Справа налево умножайте каждую отдельную цифру на ДВА. Учитывайте возникающий при этом перенос. Записывайте полученные цифры.
Умножение в столбик в начальной школе учились делать? Вот таким же образом и поступайте..

[IT-man]

const Max= 100000;
function DigitInChar(i:byte):char;
begin
 DigitInChar:=chr(ord('0')+i);
end;
function CharInDigit(i:char):byte;
begin
 CharInDigit:=abs(ord('0')-ord(i));
end;
var s:string;
a,res:array[0..Max] of byte;
i,n,k:integer;
buf:integer;
begin
buf:=0;
Readln(s);
n:=length(s);
for i:=1 to n do
a[i]:=CharInDigit(s[i]);
for i:=1 to n+1 do
res[i]:=0;
for i:=n downto 1 do
begin
buf:=a[i]*2;
res[i]:=res[i]+buf mod 10;
res[i-1]:=buf div 10;
end;
if res[0]<>0 then k:=0 else k:=1;
s:='';
for i:=k to n do
s:=s+DigitInChar(res[i]);
writeln(s);
readln;
end.

результат(проверено виндовым калькулятором)

1234567890123456789
2469135780246913578

P.S. Оптимизации никакой)

[Serge_Bliznykov]

и, хотя я публикую свой пост после ответа уважаемого IT-man


но пусть в теме будет два варианта (хоть они и одинаковые по сути) для решения исходной задачи...

var S : string;
 i, One, Perenos :  integer;
begin
 WriteLn('Введите число:');
 Readln(s);

   {проверим, что ввели КОРРЕКТНОЕ число}
   for i:=1 to Length(s) do
     if Not (s[i] in ['0'..'9']) then begin
       WriteLn('Должны быть только цифры!');
       Readln;
       Halt(100);
     end;

  {умножим на 2 справа налево}
  Perenos:= 0;
  for i:=Length(s) downto 1 do begin
    One := ord(s[i])-ord('0');
    One := One * 2 + Perenos;
    Perenos := One div 10;
    s[i] := chr( (One mod 10) + ord('0'));
  end;

 if Perenos>0 then
    s:= chr( Perenos + ord('0')) + s;

 WriteLn(s);
       
 Readln;
end.