Facebook
From Kamil, 8 Months ago, written in Plain Text.
This paste is a reply to Ostatnie zadanie from Kamil - view diff
Embed
Download Paste or View Raw
Hits: 250
  1. begin
  2. para:=0;
  3. s:=' ';
  4. writeln('W macierzy wystepuja nastepujace pary liter: ');
  5. for i:=1 to 7 do
  6.     begin
  7.  
  8.     for j:=1 to 7 do
  9.       begin
  10.  
  11.  
  12.       if (macierz[i,j]>='A') and (macierz[i,j]<='Z') or (macierz[i,j]>='a') and (macierz[i,j]<='z') then
  13.          begin
  14.              flag:=false;
  15.               for k:=1 to 7 do
  16.               begin
  17.                       if(flag=true) then break;
  18.  
  19.                         for l:=1 to 7 do
  20.                         begin;
  21.  
  22.  
  23.  
  24.                             if ((macierz[i,j]>='A') and (macierz[i,j]<='Z')) and ((ord(macierz[k,l])=ord(macierz[i,j])+32)) then
  25.                             begin;
  26.                              Writeln(' Porownywane litery   ',macierz[i,j], ' : ' , macierz[k,l]);
  27.                             para:=para+1;
  28.                             s:=' '+macierz[i,j]+' '+macierz[k,l]+' Para nr. : ' ;
  29.                             writeln(s,' ',para);
  30.  
  31.                             flag:=true;
  32.                             macierz[k,l]:='0';
  33.                             end;
  34.                             s:=' ';
  35.                             if(flag=true) then break;
  36.  
  37.                         end;
  38.               end;
  39.       end;
  40.    end;
  41. end;
  42.  
  43. writeln('Ilosc par wynosi');
  44. writeln(para);
  45. end;