Как объявить процедуру - Turbo Pascal

Формулировка задачи:

Здравствуйте! Знаком с паскалем не очень давно. Столкнулся вот с какой проблемой: не могу объявить процедуру.
PROCEDURE ADD(out_file); 
//файл заранее объявлен, ERROR 86: ":" expected
PROCEDURE ADD(out_file:file of symbols); 
//Тип symbols объявлен выше, Files must be var parameters
PROCEDURE ADD(var f:file of symbols); 
//Error 89: ")" expected (указатель стоит после file)
Помогите разобраться

Код к задаче: «Как объявить процедуру - Turbo Pascal»

textual
PROGRAM XPrint(INPUT, OUTPUT);
USES crt;
TYPE
    Symbol = array[0..25] of char;
 
type myfile = file of Symbol;
VAR
   out_file : myfile;
   i,j : integer;
   string1, name_file : string;
   Symb : Symbol;
 
PROCEDURE ADD(var out_file : myfile);
    VAR
    a,b,c,d:integer;
    st1:string;
    S:Symbol;
  BEGIN
    WRITE('Input name: ');
    READLN(S[0]);
    WRITE('Input matrix: ');
    FOR a:=1 to 25 DO
      BEGIN
            READ(S[a]);
        WRITE(' ');
      END;
    WRITE(out_file,S);
    WRITE('Add new ? (1/0): ');
    READLN(b);
    IF b = 1
    THEN
        ADD(???);
 
BEGIN
     CLRSCR;
     WRITE('name file: ');
     READLN(name_file);
     ASSIGN(out_file, name_file);
     REWRITE(out_file);
     WRITE('Add symbol ? (1/0): ');
     READLN(i);
         IF i = 1
     THEN
            ADD();
     CLOSE(out_file);
     READLN
END.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

7   голосов, оценка 3.857 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы