Facebook
From Kamil SzerlÄ…g, 8 Months ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 221
  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. type tekstowy = TextFile;
  13. var
  14.   macierz : tablica;
  15.   i, j, suma, litery, cyfry  : integer;
  16.    u, again : char;
  17.    plikTekst : file of char ;
  18.    s: string;
  19.  
  20. begin
  21. AssignFile(plikTekst,'plikTekst.bin');
  22. Reset(plikTekst);
  23. while not EoF(plikTekst) do
  24. begin;
  25. for i:=1 to 7 do                                                    {Wyswietlanie macierzy}
  26.     begin
  27.       for j:=1 to 7 do
  28.          read(plikTekst,macierz[i,j]);
  29.     end;
  30. end;
  31.  CloseFile(plikTekst) ;
  32. for i:=1 to 7 do
  33.    begin
  34.       for j:=1 to 7 do
  35.          write(macierz[i,j]:2,' ');
  36.       writeln;
  37.    end;
  38.  
  39. readln;
  40. end.
  41.