Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 25.03.2020, 19:04   #1
Марфа46
Новичок
Джуниор
 
Регистрация: 25.03.2020
Сообщений: 3
По умолчанию Помогите написать код в лазарусе

Двумерный массив нужен

Даны две матрицы одинаковой размерности. Найти сумму или разность этих матриц в зависимости от значения параметра flag.
Марфа46 вне форума Ответить с цитированием
Старый 26.03.2020, 11:55   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 2,386
По умолчанию

http://vmatematika.ru/algebra/linejn...matricami.html
Читать. Если и теперь непонятно - в деканат писа'ть заяву об отчислении. Форму можно найти в инете.
Код:
const M =5 ; N = 9 ;
var i,j: integer; mas1,mas2,mas3: array [1..M,1..N] of double ;
begin
  // Тут кто-то заполняет всякой фигнёй массивы mas1 и mas2 и выставляет нужный flag.
for i:=1 to M do
  for j:= 1 to N do 
     if flag = 0 then mas3[i,j] := mas1[i,j] + mas2[i,j] else mas3[i,j] := mas1[i,j] - mas2[i,j] ;
  // Тут кто-то выводит получившийся массив mas3.
end ;
Что-то добрый я сегодня. Мабудь, к заморозкам.
Можно так:
Код:
var i,j: integer; mas1,mas2,mas3: array [1..M,1..N] of double ; znak: double ;
begin
  // Тут кто-то заполняет всякой фигнёй массивы mas1 и mas2 и выставляет нужный flag.
if flag = 0 then znak := 1.0 else znak := -1.0;
for i:=1 to M do
  for j:= 1 to N do 
     mas3[i,j] := mas1[i,j] + znak * mas2[i,j] ;

Последний раз редактировалось digitalis; 27.03.2020 в 10:07.
digitalis вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Игра в лазарусе Alexandr_7 Lazarus, Free Pascal, CodeTyphon 6 28.08.2016 18:09
Помогите с задачей в лазарусе? (код есть) - почему не работает кнопка очистки (сброса результатов)? Алексеей Lazarus, Free Pascal, CodeTyphon 4 24.01.2016 17:33
Написать программу на Лазарусе Алсу11 Помощь студентам 0 14.05.2012 17:28
написать 2 программы в лазарусе Евгения18 Помощь студентам 0 14.12.2011 20:58


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS