Facebook
From Kamil, 6 Months ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 220
  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.   macierzPar: tablica;
  16.   i, j, suma, litery, cyfry, maxim, kolumna, para, k, l  : integer;
  17.    u, again : char;
  18.    plikMacierz : file of char ;
  19.    s: string;
  20.    flag: boolean;
  21. begin
  22.  
  23.  
  24.  begin
  25.  
  26. AssignFile(plikMacierz,'plikMacierz.bin');                                {Odczyt z pliku }
  27. Reset(plikMacierz);
  28. while not EoF(plikMacierz) do
  29. begin;
  30. for i:=1 to 7 do
  31.     begin
  32.       for j:=1 to 7 do
  33.          read(plikMacierz,macierz[i,j]);
  34.     end;
  35. end;
  36.  CloseFile(plikMacierz) ;
  37.  end;
  38.   begin
  39.     for i:=1 to 7 do
  40.    begin
  41.     s:=' ';
  42.       for j:=1 to 7 do
  43.           s:=s + macierz[i,j]+ ' ';
  44.           writeln(s);
  45.    end;
  46. end;
  47. begin
  48. para:=0;
  49. s:=' ';
  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.                             macierz[k,l]:='0';
  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.                

Replies to WTF? rss

Title Name Language When
Re: WTF? Kamil text 6 Months ago.