|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.06.2014, 15:10 | #1 |
Новичок
Джуниор
Регистрация: 05.06.2014
Сообщений: 1
|
Переписать программу с помощью процедур
Добавить в задачу процедуры , и 3 разных ввода (Случайными числами,с клавиатуры и ввод вывод из файла) с возможностью выбора пользователю. Заранее спасибо!
3. Заданную квадратную матрицу преобразовать, используя умножение строки на число и сложение строк, таким образом, чтобы все элементы первого столбца обратились в нуль, кроме элемента, расположенного на главной диагонали (см. преобразование матрицы). [PASCAL] const nmax=20; var a:array[1..nmax,1..nmax] of real; n,i,j:byte; k:real; begin randomize; repeat write('Размер матрицы до ',nmax,' n='); readln(n); until n in [1..nmax]; writeln('Исходная матрица:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=10*random; write(a[i,j]:6:2); end; writeln; end; writeln; for i:=2 to n do begin if a[i,1]=0 then begin write('Преобразование невозможно'); readln; end else begin k:=-a[1,1]/a[i,1]; for j:=1 to n do a[i,j]:=a[i,j]*k+a[1,j]; end; end; writeln('Преобразованная матрица:'); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:6:2); writeln; end; readln end. [/PASCAL] Последний раз редактировалось Navy111; 05.06.2014 в 15:59. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
С помощью процедур и функций модуля GRAPH на экране изобразить декартовую систему координат (по осям расставить цифровые значения) | Deg | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 18.05.2014 19:28 |
Переписать код с использованием процедур | Arcasha | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 3 | 10.05.2014 00:18 |
Решить задачу с помощью процедур | Валера В. | Помощь студентам | 1 | 22.12.2009 02:06 |