|
|
Опции темы | Опции просмотра |
23.11.2009, 17:42 | #1 (permalink) |
Новичок
Регистрация: 23.11.2009
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Я в Паскале полный ноль, а завтра сдавать лабораторную. Помогите пожалуйста!
Задача... Дана действительная матрица размерами nxm, в которой не все элементы равны нулю. Получить новую матрицу путем деления всех элементов данной матрицы на её наибольший по модулю элемент.. за ранее огромное спс.. |
23.11.2009, 17:42 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Люди часто создают схожие топики, советую вам почитать созданное ранее Помогите пожалуйста решить матрицу в паскале Помогите, пожалуйста, с программой в Паскале Помогите, пожалуйста, исправить программку на Паскале Пожалуйста, помогите в написании программы на Паскале Помогите, пожалуйста, написать программку на Паскале |
23.11.2009, 17:54 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Правильность проверьте сами, нет среды под рукой.
Код:
var a: array[1..100,1..100] of real; b: array[1..100,1..100] of real; n,m,max,i,j,nn,nm:integer; begin write('Введите размерность матрицы (n,m)'); readln(n, m); {заполняем матрицу значениями} for i:=1 to m do for j:=1 to n do read(a[i,j]); {находим максимальный по модулю элемент матрицы} max:=abs(a[1,1]); nn:=1; nm:=1; for i:=1 to m do for j:=1 to n do if abs(a[i,j])>max then begin max:=abs(a[i,j]); nn:=j; nm:=i; end; {формируем новый массив} for i:=1 to m do begin for j:=1 to n do begin b[i,j]:=a[i,j]/a[nn,nm]; write(b[i,j]:4:2); end; writeln; end; readln end.
__________________
Убить всех человеков! Последний раз редактировалось AlexZir; 23.11.2009 в 17:58 Причина: error подкрался незаметно :) |
15.04.2010, 21:29 | #5 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Ну ладно. Вот программа. Считаем, что слово Х состоит только из строчных латинских букв, причем смысловой нагрузки оно не несет. Тогда, например, так: Код:
CONST Lng=20; {Word X length} VAR X:Array[1..Lng] of Char; N:Array[1..Lng] of Byte; i,j:Integer; BEGIN Randomize; For i:=1 to Lng do begin X[i]:=Chr(97+Random(26)); Write(X[i]); N[i]:=0; end; WriteLn; For i:=1 to Lng do For j:=1 to Lng do If X[i]=X[j] then Inc(N[i]); For i:=1 to Lng do Write(N[i]:3); WriteLn; For i:=1 to Lng do If N[i]<>3 then Write(X[i]); WriteLn; ReadLn; END. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|