Регистрация
Snzjxj
11.12.2020 05:22
Информатика
Есть ответ 👍

Заданы матрица порядка n и число k. разделить элементы k-й строки на диагональный элемент, расположенный в этой строке. исходную и полученную матрицы вывести на экран.

229
459
Посмотреть ответы 2

Ответы на вопрос:

kamilskylinep0a6rx
kamilskylinep0a6rx
4,7(62 оценок)
1. со временем и так будут учить // pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   var k: =readinteger('введите 1< k< =n: ');   if (k> n) or (k< 1) then exit;   var a: =matrrandomreal(n,n,1,20); a.println(7,2);   k-=1;   var d: =a[k,k];   writeln(n*7*'-');   for var j: =0 to n-1 do a[k,j]/=d; a.println(7,2) end. пример n= 5 введите 1< k< =n: 2   15.11    1.07    2.01    6.33    8.63   13.26  14.96  13.36    9.87  17.39   14.87  19.89  16.94  10.77  17.86   18.16  19.99  10.16    9.89    5.42     4.78  13.60    6.89  19.56    1.25   15.11    1.07    2.01    6.33    8.63     0.89    1.00    0.89    0.66    1.16   14.87  19.89  16.94  10.77  17.86   18.16  19.99  10.16    9.89    5.42     4.78  13.60    6.89  19.56    1.25 2. а пока в школах учат писать вот так. хорошо видно, насколько школа отстает от современных технологий. const   nn=20; var   a: array[1..nn,1..nn] of real;   i,j,n,k: integer;   d: real; begin   write('n= '); read(n);   write('введите 1< k< =n: ');   read(k);   if (k> n) or (k< 1) then exit;   randomize;   for i: =1 to n do begin       for j: =1 to n do begin           a[i,j]: =19*random+1;           write(a[i,j]: 7: 2)           end;       writeln       end;   d: =a[k,k];   for i: =1 to 7*n do write('-');   writeln;   for j: =1 to n do a[k,j]: =a[k,j]/d;   for i: =1 to n do begin       for j: =1 to n do write(a[i,j]: 7: 2);       writeln       end end.
megakolbina
megakolbina
4,6(55 оценок)

использовать Чертежник

алг

нач

поднять перо

сместиться на вектор (-9,0) |начальная позиция

опустить перо |0

сместиться на вектор (1,0)

сместиться на вектор (0,2)

сместиться на вектор (-1,0)

сместиться на вектор (0,-2)

поднять перо

сместиться на вектор (2,0)

сместиться на вектор (0,1) |1

опустить перо

сместиться на вектор (1,1)

сместиться на вектор (0,-2)

поднять перо

сместиться на вектор (1,0)

сместиться на вектор (0,2) |2

опустить перо

сместиться на вектор (1,0)

сместиться на вектор (0,-1)

сместиться на вектор (-1,0)

сместиться на вектор (0,-1)

сместиться на вектор (1,0)

поднять перо

сместиться на вектор (1,0)

опустить перо |3

сместиться на вектор (1,0)

сместиться на вектор (0,1)

сместиться на вектор (-1,0)

сместиться на вектор (1,0)

сместиться на вектор (0,1)

сместиться на вектор (-1,0)

поднять перо

сместиться на вектор (2,-2)

сместиться на вектор (0,2) |4

опустить перо

сместиться на вектор (0,-1)

сместиться на вектор (1,0)

сместиться на вектор (0,1)

сместиться на вектор (0,-2)

поднять перо

сместиться на вектор (1,0)

опустить перо |5

сместиться на вектор (1,0)

сместиться на вектор (0,1)

сместиться на вектор (-1,0)

сместиться на вектор (0,1)

сместиться на вектор (1,0)

поднять перо

сместиться на вектор (1,-2)

опустить перо |6

сместиться на вектор (1,0)

сместиться на вектор (0,1)

сместиться на вектор (-1,0)

сместиться на вектор (0,-1)

сместиться на вектор (0,2)

сместиться на вектор (1,0)

поднять перо

сместиться на вектор (1,-2)

сместиться на вектор (0,2) |7

опустить перо

сместиться на вектор (1,0)

сместиться на вектор (0,-2)

поднять перо

сместиться на вектор (1,0)

опустить перо |8

сместиться на вектор (0,2)

сместиться на вектор (1,0)

сместиться на вектор (0,-1)

сместиться на вектор (-1,0)

сместиться на вектор (1,0)

сместиться на вектор (0,-1)

сместиться на вектор (-1,0)

поднять перо

сместиться на вектор (2,0)

опустить перо |9

сместиться на вектор (1,0)

сместиться на вектор (0,2)

сместиться на вектор (-1,0)

сместиться на вектор (0,-1)

сместиться на вектор (1,0)

поднять перо

сместиться на вектор (1,-1)

кон

Популярно: Информатика