3582324409

ZADANIE 1.

Poniższy program ma za zadanie wypełnić macierz kwadratową o wymiarze n = 8 liczbami losowymi (random(10}/2) oraz zapisanie jej do pliku (wiersz po wierszu. Macierz ta zostanie zapisana na dysku „C" w pliku tekstowym „macierz.txt". W kolejnym etapie program odczytuje macierz z pliku oraz drukuje ją na ekranie monitora. Następnie następuje dopisanie komentarza o wymiarze macierzy na końcu pliku writeln(f,' powyższa macierz jest wymiarów ',n,' x ’,n);. Po czym następuje ponowne odczytanie macierzy wraz z komentarzem z pliku „macierz.txt".

program Project2;

{$APPTYPE CONSOLE} uses

SysUtiis;

type macierz=array [1..100, 1..100] of real;

var A: macierz; i,j,n:integer; p ath, ko m e n ta rz: str i ng; f:text;

begin

n:=8; //wymiar macierzy kwadratowej path: = 'c:/macierz.txt'; //zmienna przechowywujaca sciezke do pliku

assign(f,path); //skojarzenie zmiennej plikowej f z fizycznym zbiorem rewrite(f); //otwracie pliku do zapisu for i:=l to n do begin

for j:=l to n do begin

a[i,j]:=random(10)/2; // wypełnia macierz elementami losowymi write(f,a[i,j]:7:2); // zapisuje do pliku macierz wiersz po wierszu end;

writeln(f);

end;

closefile(f); //zamkniecie pliku

assign(f,path); //skojarzenie zmiennej plikowej f z fizycznym zbiorem reset(f); //otwracie pliku do odczytu for i:=l to n do begin

for j:=l to n do begin

read(f,a[i,j]}; // odczyt z pliku write(a[i₍j]:7:2}; //wypisanie na ekranie end;

readln(f); // pzrejscie do następnego wiersza w pliku writeln; // przejście do następnego wiersza na ekranie end;

closefile(f); //zamkniecie pliku

assign(f,path); //skojarzenie zmiennej plikowej f z fizycznym zbiorem append(f); //otwracie pliku do dopisania