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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 13.06.2009, 16:38   #1
denis12345
Новичок
Джуниор
 
Регистрация: 13.06.2009
Сообщений: 3
Восклицание В матрице отрицательные элементы заменить на нули

В матрице А отрицательные элементы заменить на нули, а
положительные на единицы и записать результат в матрицу В.
Вычислить число элементов, равных единице в матрице В. Элементы
матрицы А вычисляются по формуле
a(i,j)= 1\i - 1\j , где i,j= 1,2,..,10


Заранее спасибо
denis12345 вне форума Ответить с цитированием
Старый 13.06.2009, 17:18   #2
DM_bite
Участник клуба
 
Аватар для DM_bite
 
Регистрация: 29.07.2008
Сообщений: 1,091
По умолчанию

Код:
program Xd;
const i=10;
j=10;
var a,b:array [1..i, 1..j] of real;
n,k: integer;
begin
for n:= 1 to i do
 for k:= 1 to j do
  begin
  a[n,k]:= 1/n-1/k;
  if a[n,k]<0 then a[n,k]:= 0;
  if a[n,k]>0 then a[n,k]:= 1;
  b[n,k]:= a[n,k];
  end;
 ReadLn;
end.
Кто бы ты ни был - не думай о себе слишком (с)

Последний раз редактировалось DM_bite; 13.06.2009 в 17:20.
DM_bite вне форума Ответить с цитированием
Старый 13.06.2009, 17:25   #3
__STDC__
Участник клуба
 
Аватар для __STDC__
 
Регистрация: 16.03.2009
Сообщений: 1,013
По умолчанию

Цитата:
Сообщение от DM_bite Посмотреть сообщение
Код:
program Xd;
....
я так понимаю лучше так, чтобы не терять матрицу A..
Код:
...
  if a[n,k]<0 then b[n,k]:= 0;
  if a[n,k]>0 then b[n,k]:= 1;
  //b[n,k]:= a[n,k];
...
Uguu~
__STDC__ вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В двухмерном массиве все отрицательные элеметны заменить на их модули. А новый массив вывести на экран JulLy Паскаль, Turbo Pascal, PascalABC.NET 11 28.04.2009 08:13
Отсортировать отрицательные элементы Cdevelop Общие вопросы C/C++ 5 18.03.2009 22:31
Выяснить,имеются ли в матрице ненулевые элементы. Брутальный М. Паскаль, Turbo Pascal, PascalABC.NET 2 06.01.2009 13:20
Сформировать новый массив,содержащий отрицательные элементы - Задача по PASCAl. Waia Помощь студентам 2 17.12.2008 18:27
в начале все отрицательные, затем все положительные элементы в матрице motaro Паскаль, Turbo Pascal, PascalABC.NET 2 07.03.2008 19:16