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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.11.2017, 12:57   #11
Саня Новиков
Пользователь
 
Регистрация: 18.11.2017
Сообщений: 12
Смущение

Цитата:
Сообщение от digitalis Посмотреть сообщение
Для этого прогу и запускать не стоило - и так видно, что знак < нужно перевернуть другим концом
Код:
if a[i, j] < MaxElem then MaxElem := a[i, j];
СПАСИИИБО!!
Саня Новиков вне форума Ответить с цитированием
Старый 18.11.2017, 14:31   #12
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Та пожалуйста Учи Паскаль - это очень просто. В жизни пригодится.
digitalis вне форума Ответить с цитированием
Старый 18.11.2017, 15:43   #13
Саня Новиков
Пользователь
 
Регистрация: 18.11.2017
Сообщений: 12
По умолчанию

Я вот сейчас понял, что мне-то нужен бейсик, а не паскаль, как переписать код?
Думаю, сильно отличаться не будет
Код:
var
  A: array[1..10, 1..10] of integer;
  i, j, M, N: byte;
  MaxElem: integer;

begin
  write('M = ');
  readln(M);
  write('N = ');
  readln(N);
  { Формируем и выводим матрицу: }
  randomize;
  writeln('Случайная матрица ', M, 'x', N, ':');
  for i := 1 to M do begin
    for j := 1 to N do begin
      a[i, j] := -100 + random(200);
      write(a[i, j]:4)
    end;
    writeln
  end;
  writeln;
  writeln('Максимальный элемент в каждой строке:');
  for i := 1 to M do begin
    { Начальное значение максимального элемента 
     равно первому элементу строки (j = 1): }
    MaxElem := a[i, 1];
    for j := 2 to N do { Проверяем остальные элементы строки: j = 2, 3, ..., N }
      { Если a[i,j] больше максимума, то новым максимумом становится a[i,j] }
      if a[i, j] > MaxElem then MaxElem := a[i, j];
    writeln(i, '-я строка: максимальный элемент = ', MaxElem)
  end;
  readln
end.
Саня Новиков вне форума Ответить с цитированием
Старый 18.11.2017, 21:45   #14
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Бейсик - отстой. Отличаться будет не сильно - как перевод на шведский с итальянского оригинала.
digitalis вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как можно доработать код?Не проходите мимо. bars.iwan Помощь студентам 2 23.12.2011 20:31
Доработать код ferrum88 Помощь студентам 0 23.11.2010 20:14
Есть код VBA для эксель, не знаю как доработать.... minimobi Microsoft Office Excel 1 06.10.2009 01:21
Доработать код Микки Microsoft Office Excel 7 31.03.2009 13:12
Как доработать код ? zander Microsoft Office Excel 3 04.03.2009 20:22