Нужна прога в паскале.

Тема в разделе "Pascal and Delphi", создана пользователем -, 23 июн 2010.

  1. Гость

    Ввести массив R из 5 элементов.Сформировать матрицу А 5х5 по формуле
    1+sin(1.5i+j) если i>j
    1-sin(1.5i+j) иначе
    Выделить в вектор Р элементы главной диагонали матрицы А и,используя подпрограммы ,упорядочить Р. Вычислить S=RxP и матрицу B=SxA.
    используя подпрограмму вычислить D>A+B.
    Тип S упорядочить вектор А из N элементов по возрастанию методом "пузырька".
    2)Сложение матриц.
    :) :please:
     
  2. Гость

    Вот что у меня имеется дальше не знаю что делать,помогите.Желательно расписать а то я не очень в программировании))) :)

    Код (Text):
    Program avsfdvg;
    uses crt;
    var
    r,p:array[1..5]of real;
    a:array[1..5,1..5]of real;
    i,j:integer;
    begin
    writeln('vvedite elementi massiva:');
    for i:=1 to 5 do
    read(r[i]);
    for i:=1 to 5 do
    for j:=1 to 5 do
    if i>j then
    a[i][j]:=1+sin(1.5*i+j) else
    a[i][j]:=1-sin(1.5*i+j);
    for i:=1 to 5 do
    p[i]:=a[i][i];
     
Загрузка...

Поделиться этой страницей