Facebook
From Kamil, 6 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 232
  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. type tablica = array[1..7,1..7] of char;
  12.  
  13. var
  14.   macierz : tablica;
  15.   i, j, suma, litery, cyfry, maxim, kolumna, para, k, l  : integer;
  16.    u, again : char;
  17.    plikMacierz : file of char ;
  18.    s: string;
  19.    flag: boolean;
  20. begin
  21.  
  22.  
  23.  begin
  24.  
  25. AssignFile(plikMacierz,'plikMacierz.bin');                                {Odczyt z pliku }
  26. Reset(plikMacierz);
  27. while not EoF(plikMacierz) do
  28. begin;
  29. for i:=1 to 7 do
  30.     begin
  31.       for j:=1 to 7 do
  32.          read(plikMacierz,macierz[i,j]);
  33.     end;
  34. end;
  35.  CloseFile(plikMacierz) ;
  36.  end;
  37.   begin
  38.     for i:=1 to 7 do
  39.    begin
  40.     s:=' ';
  41.       for j:=1 to 7 do
  42.           s:=s + macierz[i,j]+ ' ';
  43.           writeln(s);
  44.    end;
  45. end;
  46. begin
  47. para:=0;
  48. s:=' ';
  49.  
  50. writeln('W macierzy wystepuja nastepujace pary liter: ');
  51. for i:=1 to 7 do
  52.     begin
  53.  
  54.     for j:=1 to 7 do
  55.       begin
  56.  
  57.  
  58.       if (macierz[i,j]>='A') and (macierz[i,j]<='Z') or (macierz[i,j]>='a') and (macierz[i,j]<='z') then
  59.          begin
  60.              flag:=false;
  61.               for k:=1 to 7 do
  62.               begin
  63.                       if(flag=true) then break;
  64.  
  65.                         for l:=1 to 7 do
  66.                         begin;
  67.  
  68.  
  69.  
  70.                             if ((macierz[i,j]>='A') and (macierz[i,j]<='Z')) and ((ord(macierz[k,l])=ord(macierz[i,j])+32)) then
  71.                             begin;
  72.                              Writeln(' Porownywane litery   ',macierz[i,j], ' : ' , macierz[k,l]);
  73.                             para:=para+1;
  74.                             s:=' '+macierz[i,j]+' '+macierz[k,l]+' Para nr. : ' ;
  75.                             writeln(s,' ',para);
  76.  
  77.                             flag:=true;
  78.  
  79.                             end;
  80.                             s:=' ';
  81.                             if(flag=true) then break;
  82.  
  83.                         end;
  84.               end;
  85.       end;
  86.    end;
  87. end;
  88.  
  89. writeln('Ilosc par wynosi');
  90. writeln(para);
  91. end;
  92. readln;
  93. end.