Turbo Pascal для начинающих




Задача 170


{ вычисление определителя матрицы второго порядка } var
a: array[1..2,1..2] of real; det: real; { определитель (детерминант) } i,j: integer; { индексы массива } begin
writeln('Введите матрицу второго порядка.'); writeln('После ввода элементов строки нажимайте <Enter>'); for i:=l to 2 do begin
write('->'); read(a[i,1]) ; readln(a[i,2]) ; end; det:=a[l,l]*a[2,2] - a[l,2]*a[2,1];
writeln('Определитель матрицы '); for i:=l to 2 do begin
for j:=1 to 2 do
write(a[i,j]:6:2) ; writeln; end;
writeln('равен ',det:6:2); readln; end.









Начало    Назад    Вперед




Книжный магазин