Заполнить с клавиатуры симметричную квадратную действительную матрицу N-го порядка

Ruzana · 17.04.2012, 14:48

ПОМОГИТЕ МНЕ РЕШИТЬ НА ПАСКАЛЕ.
Заполнить с клавиатуры симметричную квадратную действительную матрицу N-го порядка(вводить только верхнюю треугольную матрицу,нижний треугольник заполнить программно, при помощи операторов присваивания).
ЗАРАНЕЕ ВСЕМ СПАСИБО.

Vladimir_S · 17.04.2012, 16:43

Цитата:

Сообщение от Ruzana

ПОМОГИТЕ МНЕ РЕШИТЬ НА ПАСКАЛЕ.
Заполнить с клавиатуры симметричную квадратную действительную матрицу N-го порядка(вводить только верхнюю треугольную матрицу,нижний треугольник заполнить программно, при помощи операторов присваивания).
ЗАРАНЕЕ ВСЕМ СПАСИБО.

Пожалуйста, помогаю:

Код:

Const
 N=5;
Var
 M:Array[1..N,1..N] of Real;
 i,j:Byte;
Begin
 For i:=1 to N do
  For j:=i to N do
   begin
    Write('M[',i,',',j,']= ');
    Readln(M[i,j]);
    If i<>j then M[j,i]:=M[i,j];
   end;
 Writeln;
 For i:=1 to N do
  begin
   For j:=1 to N do Write(M[i,j]:8:2);
   Writeln;
  end;
 Readln
End.

17.04.2012, 14:48	#1 (permalink)
Ruzana Новичок Регистрация: 17.04.2012 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Заполнить с клавиатуры симметричную квадратную действительную матрицу N-го порядка ПОМОГИТЕ МНЕ РЕШИТЬ НА ПАСКАЛЕ. Заполнить с клавиатуры симметричную квадратную действительную матрицу N-го порядка(вводить только верхнюю треугольную матрицу,нижний треугольник заполнить программно, при помощи операторов присваивания). ЗАРАНЕЕ ВСЕМ СПАСИБО.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

17.04.2012, 14:48
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Не обделяйте вниманием данные ссылки Выход в матрицу Определение порядка фильтров верхних частот Band-pass 6-го порядка из 25ГДН Задача про матрицу

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070