Важная информация
Показано с 1 по 2 из 2

Тема: Помогите пожалуйста!!! Матрицы в Паскале

  1. #1 Помогите пожалуйста!!! Матрицы в Паскале 
    Новичок
    Регистрация
    24.01.2014
    Сообщений
    2
    Сказал(а) спасибо
    1
    Поблагодарили 0 раз(а) в 0 сообщениях
    В матрице М(5,5) определить местоположение единственного нулевого элемента и если для него i=j, то переставить i-ую строку с j-ым столбцом. Иначе i-ую строку и j-ый столбец сделать одинаковыми, ориентируясь на меньший индекс.
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Вот программа:
    Код :
    var
      M: array [1..5,1..5] of real;
      col: array [1..5] of real;
      rol: array [1..5] of real;
      i:Integer;
      j:Integer;
      mi:Integer;
      mj:Integer;
      S:String;
    begin
     
      for i:=1 to 5 Do
      Begin
        for j:=1 to 5 do
        Begin
          write ('Vvedite alement ('+IntToStr(i)+','+IntToStr(j)+') ');
          read (M[i,j]);
        end;
      end;
      for i:=1 to 5 Do
      Begin
        S:='';
        for j:=1 to 5 do
        Begin
          S:=S+FloatToStr(M[i,j])+' ';
        end;
        write (S+chr(10)+chr(13));
      end;
      for i:=1 to 5 Do
      Begin
        for j:=1 to 5 do
        Begin
          If M[i,j]=0 Then
          Begin
            mi:=i;
            mj:=j;
          end;
        end;
      end;
      If mi=mj then
      begin
        for i:=1 to 5 do
        Begin
          col[i]:=m[i,mj];
        end;
        for j:=1 to 5 do
        Begin
          rol[j]:=m[mi,j];
          m[mi,j]:=col[j];
        end;
        for i:=1 to 5 do
        Begin
          m[i,mj]:=rol[i];
        end;
      end;
      write (''+chr(10)+chr(13));
      for i:=1 to 5 Do
      Begin
        S:='';
        for j:=1 to 5 do
        Begin
          S:=S+FloatToStr(M[i,j])+' ';
        end;
        write (S+chr(10)+chr(13));
      end;
     
      sleep(10000);
    end;
    Я сделал первую часть условия, а вторую так и не понял, делайте сами.
    Ответить с цитированием  
     

  3. 2 пользователя(ей) сказали cпасибо:

    >Quiet Snow< (26.01.2014), Даша (24.03.2014)

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Помогите пожалуйста!
    от Настена_Д в разделе C/C++
    Ответов: 1
    Последнее сообщение: 02.01.2014, 12:56
  2. помогите пожалуйста=(
    от 7Assassin7 в разделе Общие вопросы web-разработки
    Ответов: 0
    Последнее сообщение: 20.12.2013, 17:11
  3. Помогите пожалуйста
    от узбогойся в разделе Turbo Pascal
    Ответов: 1
    Последнее сообщение: 29.10.2013, 21:18
  4. Помогите пожалуйста
    от Ванька Улитин в разделе Общие вопросы программирования
    Ответов: 0
    Последнее сообщение: 29.07.2013, 07:33
  5. помогите пожалуйста
    от finer в разделе Turbo Pascal
    Ответов: 3
    Последнее сообщение: 14.06.2012, 16:10
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •