1. program project1;
2.  
3. {$mode objfpc}{$H+}
4.  
5. uses
6.   {$IFDEF UNIX}{$IFDEF UseCThreads}
7.   cthreads,
8.   {$ENDIF}{$ENDIF}
9.   Classes
10.   { you can add units after this };
11.  
12. type tablica = array[1..7,1..7] of char;
13. type tekstowy = TextFile;
14. var
15.   macierz : tablica;
16.   i, j, suma, litery, cyfry  : integer;
17.    u, again : char;
18.    plikTekst : tekstowy ;
19.    s: string;
20.  
21.  
22. begin
23. AssignFile(plikTekst,'plikTekst.txt');
24. Rewrite(plikTekst);
25. Randomize;
26. Repeat
27. Randomize;
28. for i:= 1 to 7  do                                                  {Inicjalizacja macierzy}
29.       for j:= 1 to 7 do
30.       begin
31.      while true do
32.         begin
33.          u:=chr(ord ('0')+Random(74));
34.           if (u>='0') and (u<='9') or (u>='A') and (u<='Z')or (u>='a') and (u<='z')  then
35.         begin
36.         macierz[i,j]:=u  ;
37.         break;
38.         end;
39.         end;
40.       end;
41.  
42.  
43. begin
44.  
45. for i:=1 to 7 do                                                    {Wyswietlanie macierzy}
46.    begin
47.       for j:=1 to 7 do
48.          write(plikTekst,macierz[i,j]:2,' ');
49.       writeln(plikTekst);
50.    end;
51. for i:=1 to 7 do
52.    begin
53.       for j:=1 to 7 do
54.          write(macierz[i,j]:2,' ');
55.       writeln;
56.    end;
57. CloseFile(plikTekst) ;
58.   writeln('Program zakonczony');
59.      end;
60.  
61.  
62. begin                                                         {Slowo na przekatnej}
63.  for i:=1 to 7 do
64.    begin
65.     writeln (macierz[i,i]);
66.     if (macierz[i,i]>='A') and (macierz[i,i]<='Z') or (macierz[i,i]>='a') and (macierz[i,i]<='z') then
67.     s:=s + (macierz[i,i]) ;
68.    end;
69.  writeln('Slowo na glownej przekatnej to ',s);
70. end;
71.  
72. begin                                                         {Suma liczb jezeli znak jest cyfra}
73.  suma := 0;
74.  writeln('Liczby w macierzy to:');
75.  for i:=1 to 7 do
76.    begin
77.       for j:=1 to 7 do
78.       if (macierz[i,j]>='0') and (macierz[i,j]<='9') then
79.       begin
80.       write(' ',macierz[i,j]);
81.       suma:= suma + ord(macierz[i,j])-48;
82.       end;
83.    end;
84.  writeln;
85.  writeln('Suma liczb macierzy wynosi Suma=',suma);
86.  
87. end;
88. begin                                                         {Ilosc liter i cyfr}
89.  litery := 0;
90.  cyfry := 0;
91.  writeln('Ilosc cyfr i liczb:');
92.  for i:=1 to 7 do
93.    begin
94.       for j:=1 to 7 do
95.       if (macierz[i,j]>='A') and (macierz[i,j]<='Z') or (macierz[i,j]>='a') and (macierz[i,j]<='z') then
96.       begin
97.       litery := litery + 1;
98.       end
99.       else  cyfry := cyfry + 1;
100.    end;
101.  writeln('Ilosc cyfr to ',cyfry);
102.  writeln('Ilosc liter to ',litery);
103.  
104. end;
105. writeln('Jesli chcesz powtorzyc program wcisnij t');
106. readln(again);
107. Until again = 'n';
108. end.
109.  
110.