Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
58 / 40 / 41
Регистрация: 26.09.2013
Сообщений: 341
Записей в блоге: 1
1

Доработать программу, которая ищет количество не парных чисел в каждой строке матрицы

27.01.2014, 06:17. Показов 1066. Ответов 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
const m=3; n=3;
type mas=array[1..m,1..n] of integer;
procedure poisk(a:mas; i:integer);
var j,k,r:integer;
begin
     k:=0;
     for j:=1 to n do
         for r:=1 to n do
             if (a[i,j]=a[i,r]) and (j<>r) then begin inc(k); exit; end;
     writeln(k);
end;
var a:mas;
    i,j:integer;
 
begin
     writeln('Массив:');
     for i:=1 to m do
     begin
          for j:=1 to n do
          begin
               a[i,j]:=random(10)+1;
               write(a[i,j]:4);
          end;
          writeln;
     end;
     for i:=1 to m do
     begin
          writeln('Строка ',i,':');
          poisk(a,i);
     end;
end.
В строках, где парных чисел нету она выводит 0. А вот для строк, где есть ничего не выводит. Помогите пожалуйста с решением.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.01.2014, 06:17
Ответы с готовыми решениями:

Найти сумму остатков от деление парных чисел на 5 в каждой строке матрицы
Добрый день, нужна помощь - Найти сумму остатков от деление парных чисел на 5 в каждой строчке....

Дана матрица размерностью nxm. Требуется написать программу, которая в каждой строке матрицы находит количество элементов равных -1 и результат записа
Дана матрица размерностью nxm. Требуется написать программу, которая в каждой строке матрицы...

Определить количество отрицательных и количество положительных чисел в каждой строке матрицы.
Заполнить матрицу М(7,7) псевдослучайными числами вещественного типа из диапазона . Определить...

Написать программу, которая в каждой строке двумерной матрицы находит максимальное из произведений
Задали следующее задание: написать прогу, которая в каждой строке двумерной матрицы находит...

5
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
27.01.2014, 07:58 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
29
30
31
32
33
34
35
uses crt;
const m=4; n=6;
type mas=array[1..m,1..n] of integer;
procedure poisk(a:mas; i:integer; var k:integer);//передадим значение k в программу
var j,r:integer;
begin
k:=0;
for j:=1 to n do
for r:=1 to n do
if (a[i,j]=a[i,r]) and (j<>r) then
 begin
  inc(k);
  break//зачем exit?
 end;
writeln(k);
end;
var a:mas;
    i,j,k:integer;
begin
writeln('Ìàññèâ:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10)+1;
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to m do
 begin
  writeln('Ñòðîêà ',i,':');
  poisk(a,i,k);
 end;
end.
1
58 / 40 / 41
Регистрация: 26.09.2013
Сообщений: 341
Записей в блоге: 1
27.01.2014, 11:06  [ТС] 3
Puporev, Работает. Только вот программа выводит количество повторений элементов. А как сделать чтобы она выводила количество парных элементов в каждой строке?
0
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
27.01.2014, 11:14 4
Цитата Сообщение от Nickolay0512 Посмотреть сообщение
количество парных элементов
А что это?

Добавлено через 1 минуту
Я просто поправил твою программу, она как раз ищет количество одинаковых
0
58 / 40 / 41
Регистрация: 26.09.2013
Сообщений: 341
Записей в блоге: 1
27.01.2014, 11:16  [ТС] 5
Puporev, я немного неправильно написал программу. Надо найти количество элементов, которые не повторяются, для каждой строки
0
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
27.01.2014, 12:15 6
Лучший ответ Сообщение было отмечено Nickolay0512 как решение

Решение

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
uses crt;
const m=4; n=10;
type mas=array[1..m,1..n] of integer;
procedure poisk(a:mas);
var i,j,r,p,k:integer;
begin
for i:=1 to m do
 begin
  k:=0;
  for j:=1 to n do
   begin
    p:=0;
    r:=1;
    while(r<=n)and(p=0) do
    if (a[i,j]=a[i,r]) and (j<>r) then p:=1
    else inc(r);
    if p=0 then inc(k)
   end;
  writeln('В строке ',i,' не повторяются ',k,' элементов')
 end
end;
var a:mas;
    i,j:integer;
begin
writeln('Массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10)+1;
    write(a[i,j]:3);
   end;
  writeln;
 end;
poisk(a);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.01.2014, 12:15

Определите в каждой строке матрицы количество чисел кратных 3
задана матрица размерностью n*m. Определите в каждой строке матрицы количество чисел кратных 3...

Найти количество простых чисел в каждой строке матрицы
Здравствуйте, помогите пожалуйста составить программу: Дан двумерный массив. Найти количество...

Вывести количество отрицательных чисел в каждой строке матрицы
Программа запрашивает два числа N и M, затем мы создаем двумерный массив и заполняем их числами....

Написать программу, которая считывает текст из файла и определяет количество символов X в каждой строке C++
Помогите написать программу, буду очень благодарен:)


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

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

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