53 (284)

| Obliczenie wyznacznika

Napisz program, który do tablicy dwuwymiarowej o wielkości 3x3 wczyta wartości i policzy wyznacznik macierzy, którą tablica reprezentuje.

Gwoli przypomnienia: wyznacznik macierzy T o wymiarach 3X3, gdzie T[i, j ] oznacza element w i-tym wierszu i j-tej kolumnie liczy się według wzoru:

|T| = T[1,1]*T[2,2]*T[3,3] + T[1,2]*T[2,3]*T[3,1] + T[1,3]*T[2,1]*T[3,2] --T[1,1]*T[2,3]*T[3,2] - T[1,2]*T[2,1]*T[3,3] - T[1,3]*T[2,2]*T[3,1]

Jak widać, tablica dwuwymiarowa znakomicie się nadaje do rozwiązania tego zadania. Oczywiście można sobie również wyobrazić rozwiązanie oparte na dziewięciu niepowiązanych ze sobą zmiennych, ale tablica, jako doskonała implementacja macierzy, jest w tym zadaniu na pewno lepszą strukturą danych.

program cw4_04;

{ Program wczytuje liczby do macierzy 3x3 }

{ i oblicza jej wyznacznik.    }

{ Katalog r4_01 : 4_04.pas    }

var

Macierz : array [1..3, 1..3] of Integer;

I, 3 : Byte;

Ilosc : Byte;

Zamiana : Boolean;

Wyznacznik : Longint;

begin

for I 1 to 3 do for 3    1 to 3 do

begin

Write ('Podaj współczynnik T[', I, ',    3, ']: ');

Readln (Macierz[I, 3]); end;

Wyznacznik MacierzCl,l]*MacierzC2,2]*MacierzC3,3] +

Macierze 1,2]*Macierz[2,3]*Macierz[3,1] +

MacierzCl,3]*MacierzC2,l]*MacierzC3,2] -MacierzCl,l]*MacierzC2,3]*MacierzC3,2] -MacierzCl,2]*MacierzC2,l]*MacierzC3,3] -MacierzCl,3]*MacierzC2,2]*MacierzC3,1];

Writeln ('Wyznacznik wpisanej macierzy to ', Wyznacznik);

Readln; end.

W tablicy można przechowywać zmienne różnych typów, nie tylko liczbowych.

UCZENIE

Kolejność napisów

Napisz program, który zapetni tablicę 5 nazwiskami i wypisze te, które zaczynają się od liter późniejszych w alfabecie niż K, a następnie wszystkie dtuższe, niż 5-znakowe.