файлы, посмотрите пожалуста Опции

[Anton12]

Процедура удвоение цифр..., А надо сделать чтоб удваивались ЧИСЛА, т.е. 45 у меня будет 810 а надо что было 90....помогите ...

[Anton12]

чувак... ты где ерунду увидел ...

uses crt;
var f1,f2:text;
    st,b,a:string;
    mn:set of char;
    i,j,x,y,kol:byte;
    cod:integer;
procedure vivod(var t:text);
     begin
     reset(t);
     while not eof(t) do
     begin
     readln(t,a);
     writeln(a);
     end;
     close(t);
     end;
procedure double(var t : byte);
begin
    mn:=['0'..'9'];
    reset(F1);
    rewrite(F2);
    while not eof (F1) do
    begin
    readln(F1,a);
    i:=1;
    repeat
    if a[i] in mn then
    begin
    b:=a[i];
    val(b,j,cod);
    j:=j*2;
    str(j,b);
    delete(a,i,1);
    insert(b,a,i);
    if j>=10 then i:=i+1;
    end;
    inc(i);
    until i>length(a);
    writeln(F2,a);
    end;
    close(F2);
  end;
begin
    clrscr;
    assign(F1);
    vivod(F1);
    writeln;
    y:=2;
    assign(F2);
    reset(F1);
    kol:=0;
    while not eof (F1) do
      begin
      readln(F1,st);
      inc(kol);
      j:=kol;
      end;
    writeln;
    vivod(F2);
    double(y );
    vivod(F2);
    readln;
    end.

Добавлено через 5 мин.
а в твоем случае ничего не работает...

Сообщение отредактировано: Anton12 - 18.05.2009 2:56