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

[Anton12]

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

[Anton12]

ну сиго товарищи, никто не поможет?...

[amega]

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

while not eof(f1) do 
  begin
     read(f1,a);
     a:=2*a;
     write(f2,a);
  end;

и все...

Сообщение отредактировано: amega - 18.05.2009 0:50

[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

[Lapp]

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

Да везде. Начать с того - а чего ты хочешь? Ты можешь нормально условие поставить? Что у тебя в файле?
Короче, вроде как твоя процедура должна типа удваивать все встреченные цифры, что она делает, правда, странным и смешным образом (особенно мне понравился параметр t, который нигде не не используется).

Еще короче - если тебе надо что-то сделать, то и спрашивай про то, что тебе надо сделать. А разбирать идиотские программы, которые где-то там нашел, чтобы только понять, а чего же твоей душеньке угодно - на фига оно сдалось?

Напиши нормально условие. Тогда будет разговор по делу.

[Anton12]

Задание: Описать процедуру:double ( t ), удваивающую в строке t каждую цифру;
Новое задание: Описать процедуру:double ( t ), удваивающую в строке t числа;

[Lapp]

Описать процедуру:double ( t ), удваивающую в строке t числа;

Вот как-то так попробуй:

  i:=0;
  l:=0;
  repeat
    Inc(i);
    if (i<=Length(t)) and (t[i] in ['0'..'9']) then begin
      if l=0 then j:=i;
      Inc(l)
    end
    else if l>0 then begin
      Val(Copy(t,j,l),n,e);
      Str(2*n,s);
      Delete(t,j,l);
      Insert(s,t,j);
      l:=0;
      i:=j+Length(s)
    end
  until i>Length(t);

[amega]

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

послушай если ты неотличаеш текстовый файл от типизированого то эт твои проблемы...