Facebook
From Kamil, 6 Years ago, written in Plain Text.
This paste is a reply to Ostatnie zadanie from Kamil - go back
Embed
Viewing differences between Ostatnie zadanie and Re: Ostatnie zadanie
begin
para:=0;
s:=' ';
writeln('W macierzy wystepuja nastepujace pary liter: ');
for i:=1 to 7 do
    begin

    for j:=1 to 7 do
      begin


      if (macierz[i,j]>='A') and (macierz[i,j]<='Z') or (macierz[i,j]>='a') and (macierz[i,j]<='z') then
         begin
             flag:=false;
              for k:=1 to 7 do
              begin
                      if(flag=true) then break;

                        for l:=1 to 7 do
                        begin;



                            if ((macierz[i,j]>='A') and (macierz[i,j]<='Z')) and ((ord(macierz[k,l])=ord(macierz[i,j])+32)) then
                            begin;
                             Writeln(' Porownywane litery   ',macierz[i,j], ' : ' , macierz[k,l]);
                            para:=para+1;
                            s:=' '+macierz[i,j]+' '+macierz[k,l]+' Para nr. : ' ;
                            writeln(s,' ',para);

                            flag:=true;
                            macierz[k,l]:='0';
                            end;
                            s:=' ';
                            if(flag=true) then break;

                        end;
              end;
      end;
   end;
end;

writeln('Ilosc par wynosi');
writeln(para);
end;