Паскаль!Прога на файлы!

[vlad1991]

Вот еще одна задачка!Вроде работает, но сам процесс не выполняется!
в текстовом файле храниться матрица 7*8.Записать в другой файл количество полож., отриц.б и нулевых эл-ов исходной матрицы, ее среднее арифмитическое значение, максимум и минимум (с позициями).
Пробовал записывать в файл только количество положительных.

вот решение:

Program main;
var
a:array[1..7,1..8] of integer;
co,mas:text;
i,j,min,max,imax,imin,jmin,jmax,S,p ,l,k:integer;
n:real;
begin
assign(mas,'mas.txt');
assign(co,'co.txt');
reset(mas);
rewrite(co);
for i:=1 to 7 do
begin
for j:=1 to 8 do begin
read(mas,a[i,j]);
write(a[i,j]);
end;

min:=1;max:=1;imax:=1;jmax:=1;imin: =1;jmin:=1;
S:=0;p:=0;l:=0;k:=0;
for i:=1 to 7 do
begin
for j:=1 to 8 do
begin
if a[i,j]>0 then k:=k+1;
if a[i,j]<0 then p:=p+1 else l:=l+1;
S:=a[i,j]+S;
if a[i,j]>max then
begin
max:=a[i,j];
imax:=i;
jmax:=j;
end;
if a[i,j]<min then
begin
min:=a[i,j];
imin:=i;
jmin:=j;
end;
end;
N:=s/2;
end;
writeln(co,k);
close(co);
close(mas);
readln
end.

[puporev]

for i:=1 to 7 do begin
for j:=1 to 8 do
read(a[i,j]);

Если не секрет, откуда читаем?

[vlad1991]

Сообщение от puporev

Если не секрет, откуда читаем?

Вообще как бы из файла=)))
забыл написать!

[vlad1991]

Исправил!С файла все читает, но не выполняет действий=(

[puporev]

min:=1;max:=1

А если все числа меньше 1, или все больше 1, так у тебя все время или макс=1, или мин=1.

N:=s/2;

В каком классе учишся, если не секрет, если так среднее арифметическое считаешь?

writeln(co,k);

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

[vlad1991]

В каком классе учишся, если не секрет, если так среднее арифметическое считаешь?

Учюсь в универе=)

А что так скромно, а остальное кто записывать будет?

я просто делал для проверки

[vlad1991]

Все прога работает=)

[vlad1991]

]Срочно нужна помощь!!!!Вот задачку сделал на типизированный файл, вроде работает, но не записывает во второй файл!


Компоненты типизированного файла-целочисленные массивы,состоящие из 4 элементов.Создать новый типизированный файл, компонентами которго будут количество едениц в массивах их исходного файла.

Вот решение!

Program main;
uses crt;
type
pro=file of integer;
mas=array[1..4] of integer;
fil=file of mas;
var
f:fil;
t:ro;
m,n:integer;
procedure great(var f:fil;n,m:integer);
var
i,j:integer;g:mas;
    begin
        rewrite(f);
        for i:=1 to m do
        for j:=1 to n do
           begin
               writeln('vvedite chislo massiva');
               read(g[j]);
               write(f,g);
           end;
        close(f);
   end;
procedure view (var f:fil;n,m:integer);
var
i,j:integer;g:mas;
begin
    reset(f);
    writeln('massivi');
    for i:=1 to m do
       begin
         writeln('massivi:');
         for j:=1 to n do
              begin
                    read(f,g);
                    write(g[j]:5);
              end;
          writeln
       end;
   close(f);
end;
procedure viem(var t:ro);
var
i,x:integer;
begin
    reset(t);
    for i:=1 to filesize(t) do
    write(t,x);
    close(t);
end;
procedure rech(var t:ro;var f:fil;n,m:integer);
var
i,j,k,x:integer;
g:mas;
begin
      reset(f);
      rewrite(t);
      k:=0;
      for i:=1 to m do
      for j:=1 to n do
          begin
                read(f,g);
                if g[j]=1 then k:=k+1;
                write(t,k);
          end;
end;
begin
   assign(f,'ishod.pas');
   assign(t,'f3.pas');
   writeln('vvedite kol-vo masivov');
   readln(m);
   writeln('vvedite razmernost masivov'); 
   readln(n);
   great(f,n,m);
   view(f,n,m);
   rech(t,f,n,m);
   close(f);
   viem(t);
   readln
end.

Посмотрите пожалуйста!Мозг уже не пашет=(

[puporev]

Вот у тебя уже 68 сообщений, а мозг все-равно не работает. Когда научишся правильно оформлять код? Я лично больше такое читать не собираюсь.

[vlad1991]

Я только что сделал нормально, сохранил, а она не сохранилась!!=((((((
Что же делать???Весь вечер просидел=(