Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Yxta
0 / 0 / 0
Регистрация: 16.01.2012
Сообщений: 1
#1

Задана вещественная матрица... - Pascal

19.01.2012, 23:41. Просмотров 524. Ответов 1
Метки нет (Все метки)

Задана вещественная матрица A [i,j] размера 4Х4. Пусть B - множество элементов, для которых j>=i. На этом множестве найти и вывести на печать все нулевые элементы матрицы, а также указать в каких строках и столбцах они находятся.
не понимаю как множество В выбрать...

Добавлено через 21 час 31 минуту
ребятааа!!! ну помогите пожалуйста с программой...)
http://www.cyberforum.ru/pascal/thread1943143.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.01.2012, 23:41
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Задана вещественная матрица... (Pascal):

вещественная матрица
Дана вещественная матрица "А" размерностью n*m. Определить "К" - коичество...

Вещественная матрица.
помогите решить на паскале Пусть дана (построчно) вещественная матрица...

Вещественная матрица
Нужен код программы. Мне защищаться в понедельник, а решить никак не могу. Если...

вещественная матрица
Дана вещественная матрица A( m,n ). Составьте программу для подсчета количество...

Массивы. Вещественная матрица
Дана вещественная матрица A(n,m); где n<10, m<10. Разработайте программу, что...

1
Andyc
206 / 183 / 104
Регистрация: 10.01.2011
Сообщений: 302
20.01.2012, 00:24 #2
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses crt;
const
  n=4;
var
   A: Array[1..n,1..n] of Real;
   i, j: Integer;
begin
  ClrScr;
  Randomize;
  Writeln('Исходная матрица A, красным выделены элементы множества B');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      A[i,j]:=Random(3)*(10*Random-5);
      if j>=i then TextColor(Red);
      Write(A[i,j]:8:2);
      TextColor(LightGray);
    end;
    Writeln;
  end;
  Writeln('Нулевые элементы матрицы из множества B:');
  for i:=1 to n do
    for j:=i to n do
      if A[i,j]=0 then
        Writeln('A[', i, ',', j, ']=', A[i,j]:3:1, ' строка: ', i, ' столбец: ', j);
  Readkey;
end.
Цитата Сообщение от Yxta Посмотреть сообщение
не понимаю как множество В выбрать
2
Миниатюры
Задана вещественная матрица...  
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.01.2012, 00:24
Привет! Вот еще темы с решениями:

Разреженная вещественная матрица
Разреженная вещественная матрица записана по строкам в текстовом файле....

Пусть дана вещественная квадратная матрица порядка 12
Помогите можалуйста очень нужна ваша помощь!!!! Составить программу для...

Вещественная квадратная матрица. Построить последовательность из нулей и единиц
У меня нет идей т.к. наш очень хороший препод учит нас учиться в гугле. Я не...

Дана вещественная матрица M(4,3). Подсчитать число отрицательных и сумму положительных элементов
Дана вещественная матрица M(4,3). Подсчитать число отрицательных и сумму...


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

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

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