Программа на паскале. на модули и структуры

@AlisTeR233 · Регистрация: 16.07.2013

Всем доброго времени суток!
Пишу задание для практики на Паскале, по такому заданию
Программа должна иметь модульную структуру

Каждое задание должно быть оформлено в виде отдельного модуля unit
Исходные данные должны вводиться из файла на диске (процедуры ввода-вывода нужно также оформить в виде отдельного модуля)
Основная программа должна обеспечивать вывод меню выбора варианта (номера задания) и вызов процедуры из соответствующего модуля.

1 Дан одномерный массив Хк. Заменить все четные элементы с нечетными значениями на предпоследний положительный элемент массива. Удалить все элементы с дробной частью.
2 Сформировать одномерный массив, состоящий из элементов матрицы у которых значение совпадает с суммой индексов элемента.
3 Все нулевые элементы матрицы X (n x n), заменить суммой элементов, лежащих на второсте-пенной диагонали.

Написал вот такой код,при компелировании на АБС ему не нравится IoResult, когда компилирую на Турбо то ошибка секторов... помогите пожалуйста разобраться!

Pascal

------------------------------
program main;
uses CRT, UNREAD, FIRST, SECOND, THIRD;
var
    num : integer;
begin
    clrscr;
 
    repeat
    Writeln('1 - Зzasacha 1 ');
    Writeln('2 - Зzadach  2');
    Writeln('3 - Зzadaca 3');
    Writeln('0 - Зvixod iz progi');
    Writeln('vvedite nomer zadachi');
    Readln(num);
 
    if num = 1 then
        begin
            solve_first();
        end;
    if num = 2 then
        begin
            solve_second();
        end;
    if num = 3 then
        begin
            solve_third();
        end;
    
    until num = 0;
    
end.
---------------------------
UNIT FIRST;
Interface
USES UNREAD,CRT;
 
var
a: array [1..10] of integer;
var pep, ep, c: integer;
 
Implementation
procedure solve_first;
begin
clrscr;
randomize;
write('array: ');
for c := 1 to 10 do begin
a[c] := random(21) - 10;
write(a[c], ' ');
end;
writeln;
pep := a[1];
ep := a[1];
for c := 1 to 10 do
if a[c] > 0 then begin
pep := ep;
ep := a[c];
end;
c := 2;
while c <= 10 do begin
if odd(a[c]) then
a[c] := pep;
inc(c, 2);
end;
write('result: ');
for c := 1 to 10 do
write(a[c], ' ');
end;
end.
------------
 
UNIT SECOND;
Interface
USES UNREAD;
Var
    v:  vec2;
    v1: vec;
    i, j: integer;
    n,m,k: integer;
    {ans: vec;}
    procedure solve_second;
 
Implementation
procedure solve_second;
begin
    k:=1;
    ReadSecond(v);
    writeln('vvedite n=');
    readln(n);
    writeln('vvedite m=');
    readln(m);
    for i:=1 to n do
    for j := 1 to m do
    if v[i,j] =i+j then
    begin
    v1[k]:=v[i,j];
    inc(k);
    end;
    end;
        begin
    end.
-------------------------
UNIT THIRD;
Interface
USES UNREAD;
Var
    v,a: vec2;
    i, j, n, s: integer;
    strange_sum, c: integer;
    ans: vec2;
    procedure solve_third;
 
Implementation
procedure solve_third;
begin
repeat
    ReadThird(v);   
writeln;
write('Введите размер матрицы n (от 1 до 10): ');
readln(n);
    until n in [1..10];
  writeln('Введите элементы массива:');
  for i:=1 to n do
    for j:=1 to n do
    begin
      write('a[',i,',',j,'] = ');
      readln(a[i,j]);
    end;
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    s:=s+a[i,n-i+1];
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
  writeln('Сумма элементов второстепенной диагонали = ',s);
  writeln('Полученная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if a[i,j]=0 then a[i,j]:=s;
      write(a[i,j]:4);
    end;
     writeln;
  end;
  readln;
  end;
end.
--------
UNIT UNREAD;
Interface
    Type
        vec = array [1..1000] of real;
        vec2 = array [1..100, 1..100] of integer;
    Var
        mas: vec;
        mas2: vec2;
        mas3: vec2;
        i,j, n, m: integer;
        fin, fout: text;
        Procedure ReadFirst(Var mas: vec);
        Procedure WriteFirst(mas: vec);
        Procedure ReadSecond(Var mas: vec2);
        Procedure WriteSecond(mas: vec);
        Procedure ReadThird(Var mas: vec2);
        Procedure WriteThird(mas: vec2);
Implementation
    Procedure ReadFirst(Var mas: vec);
     var I: integer;
        begin
            {$I-} assign(fin, 'first.in'); {$I+}
    
            {if IoResult <> 0 then
                begin
                    Writeln('No input file');
                    halt;
                end;
}
            assign(fout, 'first.out');
            Reset(fin);
            Rewrite(fout);
 
            readln(fin, n);
            for i:=1 to n do
             read(fin, mas[i]);
 
            close(fin);
        end;
 
    Procedure WriteFirst(mas: vec);
    var I: integer;
        begin
            for i:=1 to n - 3 do
                write(fout, mas[i], ' ');
 
            close(fout);
        end;
 
    Procedure ReadSecond(Var mas: vec2);
        begin
            {$I-} assign(fin, 'second.in'); {$I+}
    
            if IoResult <> 0 then
                begin
                    Writeln('No input file');
                    halt;
                end;
 
            assign(fout, 'second.out');
            Reset(fin);
            Rewrite(fout);
            
            read(fin, n);
            read(fin, m);
 
            for i:=1 to n do
                begin
                for j:=1 to m do
                    begin
                        read(fin, mas[i, j]);
                    end;
                end;
 
            close(fin);
        end;
 
    Procedure WriteSecond(mas: vec);
        begin
            for i:=1 to 3 do
                write(fout, mas[i], ' ');
 
            close(fout);
        end;
 
    Procedure ReadThird(Var mas: vec2);
        begin
            {$I-} assign(fin, 'third.in'); {$I+}
    
            if IoResult <> 0 then
                begin
                    Writeln('No input file');
                    halt;
                end;
 
            assign(fout, 'third.out');
            Reset(fin);
            Rewrite(fout);
            
            readln(fin, n);
            for i:=1 to n do
                begin
                for j:=1 to n do
                    begin
                        read(fin, mas[i, j]);
                    end;
                end;
 
            close(fin);
        end;
 
    Procedure WriteThird(mas: vec2);
        begin
            for i:=1 to n do
                begin
                for j:=1 to n do
                    begin
                        write(fout, mas[i, j], ' ');
                    end;
                writeln(fout);
                end;
 
            close(fout);
        end;
 
Begin
End.
------------------

@Puporev · 16.07.2013, 14:48

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

при компелировании на АБС ему не нравится IoResult

Потому что в АВС нужно

Pascal

Procedure ReadThird(Var mas: vec2);
 begin
 if not fileexits('third.in') then
  begin
    Writeln('No input file');
    halt;
   end
 else reset(fin);
 assign(fout, 'third.out');

@AlisTeR233 · 16.07.2013, 14:59 **[ТС]**

изменил, теперь просто ругается на IoResult, говорит компилятор незнаком с таким именем

@Puporev · 16.07.2013, 15:02

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

теперь просто ругается на IoResult,

Так нафига его оставил? То что я написал это вместо

Pascal

{$I-} assign(fin, 'first.in'); {$I+}
    
            {if IoResult <> 0 then
                begin
                    Writeln('No input file');
                    halt;
                end;
}

@AlisTeR233 · 16.07.2013, 15:12 **[ТС]**

я сразу заменил, просто я забыл обьявит IOResult

Появился сразу новый косяк....

Pascal

    Procedure ReadSecond(Var mas: vec2);
        begin
            {$I-} assign(fin, 'second.in'); {$I+}
    
            if IoResult <> 0 then
                begin
                    Writeln('No input file');
                    halt;
                end;
 
            assign(fout, 'second.out');
            Reset(fin);
            Rewrite(fout);
            
            read(fin, n);
            read(fin, m);
 
            for i:=1 to n do------ вот тут
                begin
                for j:=1 to m do
                    begin
                        read(fin, mas[i, j]);
                    end;
                end;
 
            close(fin);
        end;
    Procedure ReadSecond(Var mas: vec2);
        begin
            {$I-} assign(fin, 'second.in'); {$I+}
    
            if IoResult <> 0 then
                begin
                    Writeln('No input file');
                    halt;
                end;
 
            assign(fout, 'second.out');
            Reset(fin);
            Rewrite(fout);
            
            read(fin, n);
            read(fin, m);
 
            for i:=1 to n do
                begin
                for j:=1 to m do
                    begin
                        read(fin, mas[i, j]);
                    end;
                end;
 
            close(fin);
        end;

Переменная цикла For должна описываться в том же блоке...

@Puporev · 16.07.2013, 15:15

Ну и правильно, не пользуйся глобальными переменными там где не нужно.

Pascal

1
2
3

Procedure ReadSecond(Var mas: vec2);
var i,j:integer;
 begin

@AlisTeR233 · 16.07.2013, 15:29 **[ТС]**

я обьявил i,j в каждой функции отдельно, А как глобально можно это сделать?

и вот

@Puporev · 16.07.2013, 15:30

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

А как глобально можно это сделать?

А счетчики циклов и не нужно в глобальные.

@AlisTeR233 · 16.07.2013, 16:16 **[ТС]**

Pascal

UNIT UNREAD;
Interface
    Type
        vec = array [1..1000] of real;
        vec2 = array [1..100, 1..100] of integer;
    Var
        mas: vec;
        mas2: vec2;
        mas3: vec2;
        i,j, n, m: integer;
        fin, fout: text;
        Procedure ReadFirst(Var mas: vec);
        Procedure WriteFirst(mas: vec);
        Procedure ReadSecond(Var mas: vec2);
        Procedure WriteSecond(mas: vec);
        Procedure ReadThird(Var mas: vec2);
        Procedure WriteThird(mas: vec2);
Implementation
   Function IOResult : Integer;
    Procedure ReadFirst(Var mas: vec);
     var I: integer;
        begin
            {$I-} assign(fin, 'first.in'); {$I+}
    
            {if IoResult <> 0 then
                begin
                    Writeln('No input file');
                    halt;
                end;
}
            assign(fout, 'first.out');
            Reset(fin);
            Rewrite(fout);
 
            readln(fin, n);
            for i:=1 to n do
             read(fin, mas[i]);
 
            close(fin);
        end;
 
    Procedure WriteFirst(mas: vec);
    var I: integer;
        begin
            for i:=1 to n - 3 do
                write(fout, mas[i], ' ');
 
            close(fout);
        end;
 
    Procedure ReadSecond(Var mas: vec2);
        begin
        var i,j:integer;
            {$I-} assign(fin, 'second.in'); {$I+}
    
            if IoResult <> 0 then
                begin
                    Writeln('No input file');
                    halt;
                end;
 
            assign(fout, 'second.out');
            Reset(fin);
            Rewrite(fout);
            
            read(fin, n);
            read(fin, m);
 
            for i:=1 to n do
                begin
                for j:=1 to m do
                    begin
                        read(fin, mas[i, j]);
                    end;
                end;
 
            close(fin);
        end;
 
    Procedure WriteSecond(mas: vec);
        begin
        var i,j : integer;
            for i:=1 to 3 do
                write(fout, mas[i], ' ');
 
            close(fout);
        end;
 
            Procedure ReadThird(Var mas: vec2);
 begin
 if not fileexits('third.in') then ----неизвестное имя файля... обьявить его где? и какой тип данных лучше присвоить?
  begin
    Writeln('No input file');
    halt;
   end
 else reset(fin);
 assign(fout, 'third.out');
 
            assign(fout, 'third.out');
            Reset(fin);
            Rewrite(fout);
            
            readln(fin, n);
            for i:=1 to n do
                begin
                for j:=1 to n do
                    begin
                        read(fin, mas[i, j]);
                    end;
                end;
 
            close(fin);
        end;
 
    Procedure WriteThird(mas: vec2);
        begin
            for i:=1 to n do
                begin
                for j:=1 to n do
                    begin
                        write(fout, mas[i, j], ' ');
                    end;
                writeln(fout);
                end;
 
            close(fout);
        end;
 
Begin
end;
End.

Добавлено через 45 минут
Покурил, подумал... осознал глупость вопроса, заменил If then на While do,
стало работать, в 96 строчки косяк "ожидался оператор"

@AlisTeR233 0 / 0 / 0 Регистрация: 16.07.2013 Сообщений: 8
	16.07.2013, 14:59 [ТС]	3
	изменил, теперь просто ругается на IoResult, говорит компилятор незнаком с таким именем 0

@AlisTeR233 0 / 0 / 0 Регистрация: 16.07.2013 Сообщений: 8
	16.07.2013, 15:29 [ТС]	7
	я обьявил i,j в каждой функции отдельно, А как глобально можно это сделать? и вот 0

@Puporev Модератор 62830 / 46889 / 32315 Регистрация: 18.05.2008 Сообщений: 113,614
	16.07.2013, 15:30	8
	Сообщение от AlisTeR233 А как глобально можно это сделать? А счетчики циклов и не нужно в глобальные. 1

Опции темы