VPF::файлы и матрица - Форум программистов

kashmir18

Дата 18.6.2009, 19:30 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 89
Регистрация: 16.2.2008

Репутация: нет
Всего: -5

привет - нужна помощь очень..задача такова:

с файла F1 прочитать матрицу [10,12], в файл F2 записать каждую непарную строку, их среднее арифметическое и их елементи которие есть больше чем 5!

вот пример но он не роботает - больше не придумала - помогите плиз!!!!!!!!

Код



program Prg9;
var f1: file of integer;
i,j,l,k,max,sum,g1:integer;
   sum1:real;
a:array[1..10,1..12] of integer;
b:array[1..10] of integer;
begin
assign(f1, 'd:\f1.dat');
reset(f1);
for j:=1 to 10 do begin
for i:=1 to 12 do begin
read(F1, A[j,i]);
sum:=0;
K:=0;
begin
for j:=1 to 10 do
writeln(A[j+2]);
for i:=1 to 12 do begin
K:=k+1;
sum:=sum+a[j,i];
sum1:=sum/k;
writeln(A[j],sum1);
for g1:=1 to 12 do begin
if a[j,g1]>5 then begin writeln(a[j,g1]); end;
end;
writeln;end;
end;
readln;
  close(f1);
   end;
   end;
   end;
   end.

ФедосеевПавел

Дата 19.6.2009, 09:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 7.2.2009

Репутация: 2
Всего: 10

kashmir18, сотри этот файл и никому больше не показывай.
Программа должна выглядеть примерно так:

Код


PROGRAM Prg9;
CONST
  N       = 10;
  M       = 12;
  F1_Name = 'f1.dat'; {имя файла f1}
  F2_Name = 'f2.dat'; {имя файла f2}
TYPE
  TMass = array [1..N, 1..M] of Real;

{В процедуре PrepareFile организован заполнение массива случайными
 числами и сохранение его в файл.
 Т.к. сам массив здесь не обрабатывается, то можно переменную
 типа "массив" не заводить а ввести N*M чисел и сразу же их
 записать в файл.}
PROCEDURE PrepareFile;
VAR
  f    : file of Real;
  i, j : Integer;
  x    : Real;
BEGIN
  WriteLn('В файл "',F1_Name ,'" записывается массив:');
  Randomize;
  Assign(f, F1_Name);
  Rewrite(f);
  for i:=1 to N do begin
    for j:=1 to M do begin
      x:= Random*100;
      Write(f, x);
      Write(x:6:2);
    end;
    WriteLn;
  end;
  Close(f);
END;
{Процедура ReadMass считывает массив Mass из файла f1}
PROCEDURE ReadMass(VAR Mass : TMass);
VAR
  f    : file of Real;
  i, j : Integer;
  x    : Real;
BEGIN
  WriteLn('Из файла "',F1_Name ,'" считывается массив:');
  Assign(f, F1_Name);
  Reset(f);
  for i:=1 to N do begin
    for j:=1 to M do begin
      Read(f, Mass[i, j]);
      Write(Mass[i, j]:6:2);
    end;
    WriteLn;
  end;
  Close(f);
END;

VAR
  Mass : TMass;
  i, j : Integer;
  f    : file of Real; {или можно Text}
BEGIN
  PrepareFile;
  ReadMass(Mass);
  {здесь будет обработка массива - вычисление средних и т.д.}
  {.........................................................}
END.

Тебе нужно написать обработку массива.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »