Ш. И. Раззоќов, М. Д. Юнусова turbo pascal алгоритмик тилида дастурлаш касб-ћунар коллеж талабалари учун ўќув ќўлланма

var
Matr : TMatr; { Бошланѓич матрица }
Finp : Text; { Бошланѓич маълумотлар файли }
i, j, p : Integer;
procedure PrintMatr;
var i,j : Integer;
begin
for i := 1 to n do
begin
for j := 1 to n do Write ( Matr[i,j]:5 ) ;
Writeln;
end;
Writeln;
end;
begin ClrScr;
{----------------------------------------------------------------------------}
{Матрица бошланѓич ќийматларини ўќиш }
Assign (Finp,'FINP.DAT');
Reset (Finp);
for i := 1 to n do
begin
for j := 1 to n do Read (Finp, Matr[i,j]);
Readln(Finp);
end;
{------------------------------------------------------------------------------}
Writeln ('Бошланѓич матрица:');
PrintMatr;
{------------------------------------------------------------------------------}
{Матрица элементларини "спирал" бўйича ёзиб олиш}
for р := 1 to (n+1) div 2 do
begin
{ Р-«ўрама» юќори сатр элементларини ёзиб олиш }
for j := р to n-p+1 do Write (Matr[p,j]:4);
{ Р-«ўрама» ўнг устун элементларини ёзиб олиш }
for i := p+1 to n-p+1 do Write (Matr[i,n-p+1]:4);
{ Р-«ўрама» ќуйи сатр элементларини ёзиб олиш }
for j := n-p downto p do Write (Matr[n-p+1,j]:4);
{ Р-«ўрама» ўнг устун элементларини ёзиб олиш }
for i := n-p downto p+1 do Write (Matr[i,p]:4);
end;
{------------------------------------------------------------------------------}
end.


9.1.6. Сатрлар
Сатрлар белгилардан иборат бир ўлчовли массивларнинг алоћида кўринишини ифодалайди. У кўп жићатлари билан белгиларнинг бир ўлчовли ARRAY [0 .. N] of char массивига ўхшаб кетади, лекин унинг массивдан фарќли томони шундаки, сатр-ўзгарувчида белгилар сони 0 дан N гача (N-сатрдаги белгиларнинг максимал сони) ўзгаради. N нинг ќиймати String [N] турни эълон ќилиш билан аниќланади ва у 225 дан катта бўлмаган ихтиёрий тартиб туридаги ўзгармас бўлиши мумкин. Турбо Паскал N ни кўрсатмасликка рухсат беради, бу ћолда сатр узунлиги 255 га тенг, деб олинади.
Сатр Турбо Паскалда белгилар занжири деб тушунтирилади. Сатрнинг ихтиёрий белгисига бир ўлчовли ARRAY [0 .. N] of CHAR массив элементига мурожаат ќилгандай мурожаат ќилиш мумкин, масалан: