Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.09.2008, 22:34   #1
onded
Пользователь
 
Аватар для onded
 
Регистрация: 29.09.2008
Сообщений: 26
Лампочка Проблема с матрицей 3на4

я учусь на 2 курсе программирования, и так и не понимаю язык паскаля . Вернее не пойму как можно программировать в Паскале и делать бред с формулами. Нам задали супер бред
Матрицу 3на4 заполнить позитивными и негативными числами(любыми от -50 до 50). Поменять местами первую и одну из последних колонн, в которой только позитивные числа. Если такой колонны нет, то матрицу не менять.
Вот как мне сделать в Паскале такой бред?? Помогите плиз, буду признателен.
onded вне форума Ответить с цитированием
Старый 29.09.2008, 23:15   #2
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

И не говорите, задают всякий бред. Ну нет чтоб сразу диплом дать (красный конечно же), сказать где крутую среду программирования скачать и всё - сразу начнём создавать что-нибудь великое!!!
Код:
const
  n = 3;
  m = 4;
var
  i, j, k: integer;
  b: boolean;
  mas: array[1..n, 1..m] of integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      write('[',i,' ,',j,'] = ');
      readln(mas[i, j])
    end;
  end;
  writeln('Dano:');
  for i := 1 to n do
  begin
    for j := 1 to m do write(mas[i,j]:4);
    writeln
  end;
  k := 0;
  for j := m downto 2 do
  begin
    b := true;
    for i := 1 to n do if mas[i, j] < 0 then b := false;
    if b then begin
      k := j;
      break
    end
  end;
  if k <> 0 then for i := 1 to n do
  begin
    j := mas[i, k];
    mas[i, k] := mas[i, 1];
    mas[i, 1] := j
  end;
  writeln('Otvet');
  for i := 1 to n do
  begin
    for j := 1 to m do write(mas[i,j]:4);
    writeln
  end;
  readln
end.
eoln вне форума Ответить с цитированием
Старый 01.10.2008, 12:21   #3
onded
Пользователь
 
Аватар для onded
 
Регистрация: 29.09.2008
Сообщений: 26
По умолчанию

Спасибо eoln очень помог. Респект!!!
onded вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi. Проблема с матрицей POPOV Помощь студентам 9 22.09.2008 07:11
Помогите с матрицей Panda Помощь студентам 1 06.07.2008 16:42
Работа с матрицей Absent Помощь студентам 1 24.05.2008 13:33
Задача с матрицей H[o][o]K Помощь студентам 1 15.12.2007 16:51
проблема с матрицей kommunist Помощь студентам 8 14.10.2007 19:29