Паскал: Стълбове и Редове до безкрайност ? Как ?

[xzone]

Имам предвид да направя, така че деклараторът сам да определя броя на стълбовете и редовете на масива. На теория, знам че става чрез въвеждане на променлива F например и write(' Vuvedete broq na redovete i stulbovete na masiva');
readln(F);

Да обаче не става защото не ми разпознава интервала на матрицата без константата в него. Ето как изглежда програмата ми досега:

Код:

PROGRAM Kursova_rabota_No1; 
CONST 
    N=3; 
    M=(N*(N-1)) DIV 2; 
VAR 
  A:ARRAY [1..N,1..N] OF REAL; 
  C:ARRAY [1..M] OF REAL; 
  X:REAL; 
  I,J,K:INTEGER; 

BEGIN 
     writeln ('***********************************************************'); 
  writeln ('This program was made by Grigor Ivanov, N: 051208059 . '); 
  writeln (' TU - Sofia , Departament of Thermalengineering '); 
  writeln ('*************************************************************'); 
  writeln ('         ---===<<<  Kursova Zadacha N:1  >>>===---'); 
  writeln ('___________________________________________________________'); 
  writeln (' Da se sustavi programa za obrabotka na masiva A[N,N] kudeto'); 
  writeln (' dannite sa realni chisla v intervala [-1000; 1000], da izvurshvat slednite deistviq:'); 
  writeln (' * otpe4atvane na uslovieto na zada4ata'); 
  writeln (' * otpe4atvane avtora na programata'); 
  writeln (' * vuvejdane na vhodnite danni'); 
  writeln (' * otpe4atvane na vhodnite danni'); 
  writeln (' * a) da se obrazuva ednomeren masiv C, elementite na koito sa elementite na masiva A'); 
  writeln (' * namira6ti se pod glavniq, diagonal, b) polu4eniqt masiv da se sortira po golemina'); 
  writeln (' * otpe4atvane na polu4enite rezultati i sled obrabotka a) i sled obrabotka b)'); 
  writeln ('_____________________________________________________________'); 
  writeln; 

 { VYVEJDAME DANNITE } 

 FOR I:=1 TO N DO 
  BEGIN 
   WRITELN(I,':'); 
   FOR J:=1 TO N DO 
    BEGIN 
     REPEAT 
      WRITE(' ',J,'.'); 
      READLN(X); 
     UNTIL (X>=-1000) AND (X<=1000); 
     A[I,J]:=X; 
    END 
  END; 

 { IZVEJDAME MATRICATA } 

 WRITELN('Matrica:'); 
 FOR I:=1 TO N DO 
  BEGIN 
   FOR J:=1 TO N DO 
    WRITE(A[I,J]:2:2,' '); 
   WRITELN; 
  END; 

 { POPYLVAME MASIVA "C" S ELEMENTITE POD GLAVNIQ DIAGONAL } 

 K:=1; 
 FOR I:=2 TO N DO 
  FOR J:=1 TO I-1 DO 
   BEGIN 
    C[K]:=A[I,J]; 
    K:=K+1; 
   END; 

 { SORTIRAME MASIVA "C" } 

 FOR I:=2 TO M DO 
  BEGIN 
   X:=C[I];J:=I-1; 
   WHILE (X<C[J]) AND (J>0) DO 
    BEGIN 
     C[J+1]:=C[J]; 
     J:=J-1; 
    END; 
   C[J+1]:=X; 
  END; 

 { IZVEJDAME SORTIRANIQ MASIV } 

 WRITELN; 
 WRITELN('Sortirani elementi pod glavniq diagonal:'); 
 FOR I:=1 TO M DO 
  WRITE(C[I]:2:2,' '); 
  readln 
 END.

Какво може да се сложи вместо това N=3 като константа за да разпознае променливата

[Black Adder]

Ааа, значи можело
Пробвай да ползваш процедури за въвеждането и сортирането на данните. В тях (процедурите) спокойно можеш да използваш вече въведената чрез READLN(F) стойност.

[xzone]

Задачката съвсем се у*ра. Когато сружа допълнителна променлива константата М губи смисъл. Тъй като тя работи със стойностите на N. Оф как да направя цялата фасмантагория, че вече ми писна.

[dmanov]

Не съм много убеден, че на Pascal можеш да дефинираш масив с размерност, зададена като променлива. Може би, както @Black Adder каза, ако е във функиця и е зададена като параметър.
Но от гледна точка на алгоритъм за решаване на задачата това не би трябвало да е проблем. Коректно зададената задача следва да определи N като някакъв максимум и с него да дефинираш масива, а реално да се използва размерност, въведена от програмата.

Тогава би трябвало да се добави само някъде в началото:

VAR M: INTEGER;
REPEAT 
  WRITE('Razmernost '); 
  READLN(M); 
UNTIL (M>=2) AND (M<=N);

и после да се използва M вместо N

И по-голям успех със следващите задачи!