Напишите прогу

Тема в разделе "Delphi - Базы данных", создана пользователем Dimapokal, 28 мар 2009.

  1. Dimapokal

    Dimapokal Гость

    Нужна прога которая из текстового файла input.txt зчитывает количество чисел(не цифр, а именно чисел) и ответ записывает в файл output.txt!!!

    эта прога решает- буду ли я дальше учится в универе!!! помогите кто чем может!!! плиз.......
     
  2. BurcevD

    BurcevD Гость

    Вот держи
    Код (Text):
    Var F:TextFile;
    S:String;
    Total:Integer;

    Function CalcNumbers(S:String):Integer;
    Var R:Integer;
    W:string;
    StartX, EndX, x:Integer;

    function Check(S:string):Boolean;
    Var i:Integer;
    R:Boolean;
    Begin
    r:=true;
    For i:=1 to Length(S) do
    if (s[i]<'0')or(s[i]>'9') then r:=false;
    Result:=r;
    End;

    Begin
    r:=0;
    S:=' '+S+' ';
    for x:=2 to Length(S)-1 do
    begin
    if (s[x-1]=' ')and(s[x]<>' ') then Startx:=x;
    If (s[x]<>' ')and(s[x+1]=' ') then
    begin
    EndX:=x;
    If check(Copy(s,StartX, EndX-StartX+1)) then Inc(R);
    end;
    end;
    Result:=r;
    End;

    Begin
    Assign(F,'Input.txt');
    Reset(F);
    Total:=0;
    While not EOF(F) do begin
    Readln(f,s);
    Total:=Total+CalcNumbers(S);
    end;
    Close(F);
    ASsign(F,'Output.txt');
    Rewrite(F);
    Writeln(f,Total);
    Close(f);
    End.
     
  3. etc

    etc Гость

    Однозначно в армию!
     
  4. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    Афтар, читай подпись своего помощника! ты ему дважды должен! :(

    BurcevD, а ты молодец! Мало кто вот так ринется помогать...
     
Загрузка...
Похожие Темы - Напишите прогу
  1. Луиза
    Ответов:
    0
    Просмотров:
    296
  2. Davidka
    Ответов:
    0
    Просмотров:
    1.210
  3. bazleiter
    Ответов:
    1
    Просмотров:
    2.976
  4. Клюковка
    Ответов:
    1
    Просмотров:
    1.282
  5. vital
    Ответов:
    0
    Просмотров:
    2.483

Поделиться этой страницей