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

Найти количество нулей в массивах

10.12.2011, 21:26. Просмотров 854. Ответов 4
Метки нет (Все метки)

Дано 4 массива A,B,C,D.
Найти количество нулей через процедуру..
я начал делать так создал массыв 1..6,1..6 ) и у мя выходит почему то что нулей 36.. не знаю в чем ошыбка... Помогите пожалуйста
Вот мой код
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
program masivv;
 uses crt;
 type mymas=array[1..6,1..6] of real;
const
    a:array[1..4,1..4] of real=((2,4,-6.7,4),(4.5,-3,5,0),(9.7,4.2,-3.8,2.75),(3.3,-0.6,0,3.5));
    b:array[1..3,1..3] of real=((-1.2,3,0),(2.5,6.3,1),(1.1,2,4.2));
var c,d,m:mymas;     n,i,j:integer;
procedure kilk(m:mymas; var n:integer);
begin
n:=0;
for i:=1 to 6 do
for j:=1 to 6 do begin
if m[i,j]=0 then inc(n);
end;     end;
begin
clrscr;
for i:=1 to 5 do
for j:=1 to 5 do begin c[i,j]:=(1+j)*i*i+j;    end;
for i:=1 to 6 do
for j:=1 to 6 do begin d[i,j]:=sin(i*j)+2.2;   end;
kilk(m,n);
writeln(n);
readln
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2011, 21:26
Ответы с готовыми решениями:

Найти количество нулей в массивах
нужно найти количество нулей в масивах (a,b,c,d) сначала я сделал програму для...

Найти количество нулевых элементов в двух массивах
Задание: Дано 2 массива a(n) , b(n). найти количество нулевых элементов в двух...

Найти количество нулей матрицы
1. Составить программу заполнения квадратной матрицы 3-го порядка случайными...

В массивах определить, сколько нулей находится до минимального значения
помогите, пожал написать прогу.В одномерных массивах Е и F определить, сколько...

В массиве В(п) найти количество нулей и единиц
Задача на одномерный массив: В массиве В(п) найти количество нулей и единиц.

4
Ev[G]eN
iOS/Android Developer
Эксперт С++
5119 / 1557 / 950
Регистрация: 23.01.2011
Сообщений: 3,187
Завершенные тесты: 1
11.12.2011, 01: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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
type
 TArr = array[1..100] of integer;
var
 arr1, arr2, arr3, arr4: TArr;
 n: integer;
 
procedure ZapViv(var arr: TArr; n: integer);
var
 i: integer;
begin
 for i:=1 to n do
  begin
   arr[i]:=random(n);
   write(arr[i], ' ');
  end;
 writeln;
end;
 
function ZeroSum(var arr1, arr2, arr3, arr4: Tarr): integer;
var
 i, sum1, sum2, sum3, sum4: integer;
begin
 for i:=1 to n do
  if arr1[i] = 0 then inc(sum1);
 for i:=1 to n do
  if arr2[i] = 0 then inc(sum2);
 for i:=1 to n do
  if arr3[i] = 0 then inc(sum3);
 for i:=1 to n do
  if arr4[i] = 0 then inc(sum4);
 result:=sum1+sum2+sum3+sum4;
 writeln('Кол-во нулей в 4 массивах: ', result);
end;
 
begin
 readln(n);
 ZapViv(arr1, n);
 ZapViv(arr2, n);
 ZapViv(arr3, n);
 ZapViv(arr4, n);
 ZeroSum(arr1, arr2, arr3, arr4);
end.
0
Kochulab
0 / 0 / 0
Регистрация: 26.11.2011
Сообщений: 32
11.12.2011, 10:50  [ТС] 3
Цитата Сообщение от Ev[G]eN Посмотреть сообщение
не очень красиво и рационально, но работает...
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
type
 TArr = array[1..100] of integer;
var
 arr1, arr2, arr3, arr4: TArr;
 n: integer;
 
procedure ZapViv(var arr: TArr; n: integer);
var
 i: integer;
begin
 for i:=1 to n do
  begin
   arr[i]:=random(n);
   write(arr[i], ' ');
  end;
 writeln;
end;
 
function ZeroSum(var arr1, arr2, arr3, arr4: Tarr): integer;
var
 i, sum1, sum2, sum3, sum4: integer;
begin
 for i:=1 to n do
  if arr1[i] = 0 then inc(sum1);
 for i:=1 to n do
  if arr2[i] = 0 then inc(sum2);
 for i:=1 to n do
  if arr3[i] = 0 then inc(sum3);
 for i:=1 to n do
  if arr4[i] = 0 then inc(sum4);
 result:=sum1+sum2+sum3+sum4;
 writeln('Кол-во нулей в 4 массивах: ', result);
end;
 
begin
 readln(n);
 ZapViv(arr1, n);
 ZapViv(arr2, n);
 ZapViv(arr3, n);
 ZapViv(arr4, n);
 ZeroSum(arr1, arr2, arr3, arr4);
end.
Мне не надо найти их сумму.. Мне надо чтоб в конце выбило сколько нулей в каждом массиве
0
Ev[G]eN
iOS/Android Developer
Эксперт С++
5119 / 1557 / 950
Регистрация: 23.01.2011
Сообщений: 3,187
Завершенные тесты: 1
11.12.2011, 11:49 4
так?
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
type
 TArr = array[1..100] of integer;
var
 arr1, arr2, arr3, arr4: TArr;
 n: integer;
 
procedure ZapViv(var arr: TArr; n: integer);
var
 i, sum: integer;
begin
 sum:=0;
  for i:=1 to n do
   begin
    arr[i]:=random(n);
    write(arr[i], ' ');
     if arr[i] = 0 then inc(sum);
   end;
 writeln('; Нулей в массиве: ', sum, ';');
end;
  
begin
 readln(n);
 ZapViv(arr1, n);
 ZapViv(arr2, n);
 ZapViv(arr3, n);
 ZapViv(arr4, n);
end.
Добавлено через 10 минут
или же через матрицу как у Вас...
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
type
 TArr = array[1..100, 1..100] of integer;
var
 arr: TArr;
 n, m, i, j: integer;
 
procedure Zero(var arr: TArr; n, m: integer);
var
 i, j, zero: integer;
begin
 zero:=0;
  for i:=1 to n do
   for j:=1 to m do
    if arr[i, j] = 0 then inc(zero);
 writeln('Кол-во нулей в массивах: ', zero);
end;
 
begin
 readln(n, m);
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      arr[i, j]:=random(25);
      write(arr[i, j]:4);
     end;
    writeln;
   end;
 Zero(arr, n, m);
end.
0
Kochulab
0 / 0 / 0
Регистрация: 26.11.2011
Сообщений: 32
11.12.2011, 12:13  [ТС] 5
Цитата Сообщение от Ev[G]eN Посмотреть сообщение
так?
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
type
 TArr = array[1..100] of integer;
var
 arr1, arr2, arr3, arr4: TArr;
 n: integer;
 
procedure ZapViv(var arr: TArr; n: integer);
var
 i, sum: integer;
begin
 sum:=0;
  for i:=1 to n do
   begin
    arr[i]:=random(n);
    write(arr[i], ' ');
     if arr[i] = 0 then inc(sum);
   end;
 writeln('; Нулей в массиве: ', sum, ';');
end;
  
begin
 readln(n);
 ZapViv(arr1, n);
 ZapViv(arr2, n);
 ZapViv(arr3, n);
 ZapViv(arr4, n);
end.
Добавлено через 10 минут
или же через матрицу как у Вас...
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
type
 TArr = array[1..100, 1..100] of integer;
var
 arr: TArr;
 n, m, i, j: integer;
 
procedure Zero(var arr: TArr; n, m: integer);
var
 i, j, zero: integer;
begin
 zero:=0;
  for i:=1 to n do
   for j:=1 to m do
    if arr[i, j] = 0 then inc(zero);
 writeln('Кол-во нулей в массивах: ', zero);
end;
 
begin
 readln(n, m);
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      arr[i, j]:=random(25);
      write(arr[i, j]:4);
     end;
    writeln;
   end;
 Zero(arr, n, m);
end.
Да ток там ничего не надо вводить с клавиатуры.. оно при компиляции должно выбить сколько нулей в каждом массиве , а у тебя один масив токо(( пожалуйста помоги )
Здесь двухмерный массив(матрица)
0
11.12.2011, 12:13
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.12.2011, 12:13

Если количество нулей в массиве A больше количества нулей в B - возвести их положительные элементы в куб
даны массивы A(N) и B(N). если количество положительных элементов в массиве...

Найти в матрице количество строк, которые не содержат нулей
Найти в матрице количество строк, которые не содержат нулей

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


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

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

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