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

  1. Здравствуйте! Знаком с паскалем не очень давно. Столкнулся вот с какой проблемой: не могу объявить процедуру.


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.


Похожие ответы
  1. Добрый вечер. Помогите пожалуйста с задачей Вычислить (2*5! + 3*8!)/(6! + 4!), используя процедуру без параметров. Добавлено через 8 минут P.S. Переделать данную программу. Вместо функции, сделать процедуру без параметров.

  1. Здравствуйте. Подскажите что не правильно делаю, и возможно ли вообще - вызвать процедуру\функцию из другого объекта\класса, в турбо паскале? Хочу сделать из одного класса\объекта два.. Но чё-т как-то не получается. Исходный код не влез, прикрепил тхт файлом. И переделанное тоже прикрепил. Вот во что пытался переделать:

  1. помогите с задачей! Составить процедуру для нахождения индексов максимального элемента квадратной матрицы. Применить данную процедуру для двух заданных матриц C(n,n) и P(m,m).

  1. Составить процедуру и функцию,которая по заданному номеру месяца печатает название времени года

  1. составить процедуру ,меняющую местами столбцы с номерами n1 и n2 в матрице размерностью 6*5

  1. Составить процедуру для заполнение массива из N элементов значениями в интервале от - 40 до 35.

  1. составить процедуру вычисления суммы четных по значению элементов в одномерном массиве

  1. Описать процедуру Transp(A, M), выполняющую транспонирование (то есть зеркальное отражение относительно главной диагонали) квадратной вещественной матрицы A порядка M. Матрица A является входным и выходным параметром. Используя эту процедуру, транспонировать данную матрицу A порядка M.

  1. Напишите процедуру для вычисления значения y. у = 2x^2, если x ≤ 1, y = x+1/3, если 1 ≤ x≤8, y = √sin^2 x, если x ≥ 8.