DUzun's Web
Programare, proiecte personale, divertisment

Program P119_37;

{--------------------------------------------------------------

    Se da un fisier text in care fiecare rand reprezinta 

    2 numere naturale separate printr-un spatiu.

    Sa se creeze alt fisier, ce insereaza intre cele 2 numere 

    ale fiecarui rand media aritmetica a acestor numere. 

 --------------------------------------------------------------}

uses crt;

var fin, fout: text;

    a, b: Word;

    m: real;

    sin, sout: string;

begin

  clrscr;

  sin  := 'listnum.txt'; {Fisierul de intrare}

  sout := 'mednum.txt';  {Fisierul de iesire}

​

  {Deschiderea fisierelor}

  assign(fin, sin);

  assign(fout, sout);

  reset(fin);

  rewrite(fout);

​

  while not eof(fin) do {Cat timp nu se ajunge la sfarsitul fisierului}

  begin

     readln(fin, a, b);

     m := (a+b) / 2;                 {Media aritmetica}

     writeln(a:7, m:9:1, b:7);       {Afisarea la consola}

     writeln(fout, a:7, m:9:1, b:7); {Scrierea in fisier}

  end;

​

  {Inchiderea fisierelor}

  close(fin);

  close(fout);

  readkey;

end.

​

​