0 / 0 / 0
Регистрация: 05.10.2011
Сообщений: 34
1

Помогите составить задачи (Матрицы)

15.11.2011, 17:17. Показов 1324. Ответов 2
Метки нет (Все метки)

1.Составьте программу ввода и вывода матрицы А:
2 4 5 7
А=3 1 0 9
2 5 7 8

2. Составьте блок-схему алгоритма и программу вычесления количества положительных элементов матрицы A(N,N).
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.11.2011, 17:17
Ответы с готовыми решениями:

Помогите составить задачи (Предложения).
1.Составьте программу вычисления количества букв "К" в предложении. 2.Составьте программу,...

Максимум каждого столбца матрицы заменить значением суммы кратных трем элементов всей матрицы. +2 задачи.
Ребят помогите пожалуйста с задачами. Новичок в этом деле... Заранее спасибо! 1. Ввести матрицу...

Помогите,нужно составить программу вычисления задачи..
Вычислить растояние между двумя точками с координатами (Х1,у1) и (х2,у2) координаты вводятся с...

Матрицы.Помогите в решении задачи
Нужно умножить две матрицы 3х3(значения любые). Заранее спасибо.

2
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
15.11.2011, 17:38 2
Лучший ответ Сообщение было отмечено Norwell как решение

Решение

Цитата Сообщение от Norwell Посмотреть сообщение
ввода
- если ручного, тогда первая задача так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var A: array [1..3,1..4] of integer;
    i,j: integer;
begin
for i:=1 to 3 do
    for j:=1 to 4 do
        begin
        write ('Введите ',j,' элемент ',i,' строки ');
        readln (A[i,j]);
        end;
 for i:=1 to 3 do
        begin
        for j:=1 to 4 do
            write (A[i,j]:2);
        writeln;
        end;
end.
Добавлено через 4 минуты
Задача 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var A: array [1..100,1..100] of integer;
    n,i,j,k: integer;
begin
writeln('Укажите размер матрицы ');
readln (n);
for i:=1 to n do
    for j:=1 to n do
        begin
        write ('Введите ',j,' элемент ',i,' строки ');
        readln (A[i,j]);
        if A[i,j]>0 then inc(k);
        end;
writeln('Количество положительных элементов = ',k);
end.
0
0 / 0 / 0
Регистрация: 05.10.2011
Сообщений: 34
15.11.2011, 17:54  [ТС] 3
Благодарю.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.11.2011, 17:54
Помогаю со студенческими работами здесь

Помогите составить программу транспортной задачи.Построение опорного плана перевозок методом минимального элемента.
Однородный груз сосредоточен у 3х поставщиков в объемах 200,300,500 тонн .Данный груз необходимо...

Помогите решить задачи
Не знал в какую тему написать так как задачи надо решить на русском алгоритмическом языке Вобщем...

Помогите с решением задачи!
Всем привет! Помогите пожалуйста с задачей об оптимальном распределении ресурсов между...

2 простые задачи помогите
Продифференцировать по участию ребер в образовании циклов нечетной длины Декартово произведение...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru