ANTICHAT - Показать сообщение отдельно - Студентам с лабораторными сюда

Цитата:

Сообщение от P.A.U.L

[PASCAL] Помогите доделать лабу или исправьте что не так...

Вот текст задачи: Дайн файл f, компоненты которого являются действительными числами. Число компонентов файла кратно 4-м.
Получить в файле g среднее геометрические значения по каждым 4-м компонентам файла f.

Код:

program textfile;
uses crt;
var f:text;
    s:string;
    k,code,i,s1:integer;
    m:array [1..20] of integer;
begin
clrscr;
assign(f,'H:\f.txt');
reset(f);
 while not eof(f) do begin
  readln(f,s);
  writeln('Stroka deistvitelnix chisel');
  writeln(s); end;
  Val(s,k,code);
   writeln(k);

(тут что то надо дописать)

  close(f);
  readln;
end.

Код:

PROGRAM PTextFiles;
uses
    crt;
var
   f, g:      text;
   TmpArray:  array [1..4] of real;
   counter:   byte;


function GetAG: real;
var
   tmp:       real;
   i:         byte;
begin
     tmp := 1;
     for i := 1 to 4 do
         tmp := tmp * TmpArray[i];
     tmp := exp(0.25*ln(tmp));

     GetAG := tmp;
end;


var
   tmp:       real;
begin
     clrscr;
     counter := 0;
     assign(f, 'C:\1.txt');
     reset(f);
     assign(g, 'C:\2.txt');
     rewrite(g);

     while not(eof(f)) do
           begin
                inc(counter);
                Readln(f, TmpArray[counter]);
                if (counter = 4) then
                   begin
                        tmp := GetAG;
                        writeln(g, tmp);
                        writeln(tmp);
                        counter := 0;
                   end;
           end;

  close(f);
  close(g);
  readln;

end.

Функция GetAG считает среднее геометрическое последних 4х считанных файлов.

Последовательность средних геометрических выводится на экран и записывается в файл C:\2.txt

Хотя не совсем понял фразу "Получить в файле g среднее геометрические значения по каждым 4-м компонентам файла f." Считал среднее геометрическое от частей исходной последовательности чисел, идущих друг за другом и не пересекающихся между собой.