Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Маргар
0 / 0 / 0
Регистрация: 30.11.2011
Сообщений: 4
#1

Формирование новой матрицы посредством замены всех положительных элементов на 1

09.01.2012, 16:57. Просмотров 801. Ответов 1
Метки нет (Все метки)

Задана матрица а(4х3). Составить программу формирования новой матрицы посредством замены всех положительных элементов на 1, а остальных элементов на 0.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.01.2012, 16:57
Ответы с готовыми решениями:

Обработка двумерных массивов - составить программу замены всех положительных элементов матрицы на элемент, имеющий минимальное эначение
Помогите пожалуйста с написание программы: Ввод с помощью датчика случайных...

Формирование вектора Z из положительных элементов матрицы
Заданы матрицы А(4*7) и В(4*5),элементы которых вычисляются по формулам...

Как изменится сумма элементов матрицы, в случае замены всех элементов?
Добрый день. Ни как не могу понять суть задания. Точнее что является отрезком....

Составить процедуру замены всех элементов гланой диагонали матрицы на сумму элементов второго столбца.
Заданы матрицы А(5х5) и С(4х4), элементы которых вычисляются по формулам...

Найти сумму всех положительных и произведение всех отрицательных элементов матрицы
Заданна матрица (двумерный массив) A размером N*M, состоящая из действительных...

1
Amid007
63 / 63 / 51
Регистрация: 20.05.2011
Сообщений: 116
09.01.2012, 19:12 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program mas;
uses crt;
var a:array [1..4,1..3] of integer;
    b:array [1..4,1..3] of integer;
    i,j: integer;
begin
 clrscr;
 for i:=1 to 4 do
 for j:=1 to 3 do
 begin
  write('a[',i,',',j,']= ');
  readln(a[i,j]);
 end;
 for i:=1 to 4 do
 for j:=1 to 3 do
 if a[i,j]>0 then b[i,j]:=1
 else b[i,j]:=0;
 for i:=1 to 4 do
 for j:=1 to 3 do
 writeln('b[',i,',',j,']= ',b[i,j]);
 readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.01.2012, 19:12

Найти произведение всех положительных элементов матрицы
Разработать алгоритм и написать программу на языке Turbo Pascal. Задана матрица...

Найти сумму всех положительных, сумму всех отрицательных элементов матрицы
ребят, могли бы выручить еще с одной задачей. Для массива N (5;5) найти...

Найти произведение положительных элементов во всех четных строках матрицы
В матрице Анайти произведение положительных элементов во всех четных строках....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru