Facebook
From Kamil SzerlÄ…g, 5 Months ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 148
  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.  
  14. var
  15.   macierz : tablica;
  16.   i, j, suma, litery, cyfry  : integer;
  17.    u, again : char;
  18.    plikTekst : file of char ;
  19.    s: string;
  20.  
  21.  
  22. begin
  23. AssignFile(plikTekst,'plikTekst.bin');
  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]);
  49.  
  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.