1 / 1 / 1
Регистрация: 17.10.2012
Сообщений: 14
1

Удалить все строки матрицы, которые содержат нули

17.10.2012, 12:28. Показов 1455. Ответов 5
Метки нет (Все метки)

Дана квадратная матрица целых числе N*N(N-константа), заданная случайным образом, числами из промежутка от -10 до 5. Удалить все строки матрицы, которые содержат нули.Записать в файл исходную и конечную матрицы.
вот моя задача. Помогите найти ошибку.Она удаляет только одну строку, а не все


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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
program matrica;
const n=5;
var i,j,x,k,t,kol:integer;
    input,output:text;
    a:array[1..n+1,1..n]of integer;
begin
assign(input,'input.txt');
assign(output,'output.txt');
rewrite(input);
 
randomize;
rewrite(output);
for i:=1 to n do
 
    for j:=1 to n do
 
        a[i,j]:=5-random(10);
 
  for i:=1 to n do
 begin
  for j:=1 to n do
  write(input,a[i,j]:3);
  writeln;
 end;
 close(input);
 reset(input);
 for i:=1 to n do
 for j:=1 to n do
 read(input,a[i,j]);
 close(input);
writeln;
k:=0;
i:=1;
     while i<=n do
     begin
 
          j:=1;
          while (j<=n) and (k=0) do
          begin
          if a[i,j]=0
          then
               begin
                   inc(kol);
                   k:=1;
                    for x:=1 to n do
                      for t:=i to n do
                          a[t,x]:=a[t+1,x];
                end;
          inc(j);  inc(i);
 end;
end;
for i:=1 to n-kol do
   begin
     for j:=1 to n do
     write(output,a[i,j]:3);
     writeln;
   end;
 
close(output);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.10.2012, 12:28
Ответы с готовыми решениями:

Удалить все строки матрицы, которые содержат нули
Дана квадратная матрица целых числе N*N(N-константа), заданная случайным образом, числами из...

Указать все строки матрицы, которые не содержат отрицательных элементов
Помогите пожалуйста. Дана вещественная матрица размером m×n. Указать все строки, которые не...

Удалить все строки матрицы, которые состоят из одних нулей.
Дана квадратная матрица целых чисел.Удалить все строки матрицы, которые состоят из одних нулей.

Удалить из матрицы A все строки, которые являются знакочередующейся геометрической прогрессией.
дана матрица действительных чисел A, состоящая из M строк и N столбцов. удалить из матрицы A все...

5
Croessmah
17.10.2012, 12:45
  #2

Не по теме:

а че на паскале?

0
320 / 270 / 128
Регистрация: 24.05.2012
Сообщений: 629
17.10.2012, 12:49 3
C++
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
29
30
31
#include <cstdlib>
#include <ctime>
#include <fstream>
 
using namespace std;
 
const unsigned short N = 5;
 
int main() {
    short a[N];
    unsigned short i, j;
    bool write = true;
    ofstream src("src.txt"), mod("mod.txt");
    srand((int)time(NULL));
    for (i = 0; i < N; i++) {
        for (j = 0; j < N; j++) {
            if (!(a[j] = rand() & 0xF - 10))
                write = false;
            src << a[j] << ' ';
        }
        src << endl;
        if (write) {
            for (j = 0; j < N; j++)
                mod << a[j] << ' ';
            mod << endl;
        } else
            write = true;
    }
    src.close();
    mod.close();
}
0
1 / 1 / 1
Регистрация: 17.10.2012
Сообщений: 14
17.10.2012, 12:58  [ТС] 4
извиняюсь не так тему создал. я новичок
0
320 / 270 / 128
Регистрация: 24.05.2012
Сообщений: 629
17.10.2012, 12:59 5
Цитата Сообщение от 12345amir Посмотреть сообщение
a[i,j]:=5-random(10);
Вы уверены, что это [-10; 5]?
0
1 / 1 / 1
Регистрация: 17.10.2012
Сообщений: 14
17.10.2012, 13:03  [ТС] 6
да уверен

Добавлено через 27 секунд
Удалить все строки матрицы, которые содержат нули
пересоздал тему
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.10.2012, 13:03
Помогаю со студенческими работами здесь

Скопировать из файла F1 в файл F2 все строки, которые не содержат цифры. Подсчитать количество строк, которые начи
Создать текстовый файл F1 не менее, чем из 10 строк и записать в него информацию Выполнить...

Удалить слова из строки, которые содержат определённые символы
Вводим строку,между слов произвольное число пробелов, найти в ней слова которые содержат например...

Удалить все файлы, которые содержат в ячейке А1 указанный текст
Подскажите Пожалуйста! Есть много файлов ексель нужно удалить все файлы которые содержат в ячейке...

Удалить всё, кроме параграфов, которые содержат введённый текст
Доброго времени суток! Подскажите, пожалуйста: Есть макрос, который удаляет параграфы,...


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

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

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