19 / 2 / 0
Регистрация: 15.02.2013
Сообщений: 149
1

Процедуры и функции: Оформить процедурой вычисление кол-ва отрицательных и кол-ва положительных элементов каждой матрицы

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

Author24 — интернет-сервис помощи студентам
Нужно формить процедурой вычисление кол-ва отрицательных и кол-ва положительных элементов каждой матрицы.Начало программы есть.Помогите,пожалуйста
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
program qq;
uses crt;
const m=6; n=9;
type ma2=array[1..m,1..n]of real;
var a:ma2; b:ma2;
{--------------------------------------------------}
procedure gen(var a:ma2; m,n:integer);
var i,j:integer;
begin
 for i:=1 to m do
  for j :=1 to n do a[i,j]:= -25+random(50);
end;
{-------------------------------------------------}
procedure print(name:string; a:ma2; m,n:integer);
var i,j: integer;
begin writeln('Massiv '+name);
 for i:=1 to m do
begin
 for j:=1 to n do  write (a[i,j]:7:2);
writeln;
end;
end;
{--------------------------------------------------------}
begin
clrscr;
gen(a,3,9); print('A',a,3,9);
gen(b,6,6); print('B',b,6,6);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.02.2013, 17:20
Ответы с готовыми решениями:

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

Посчитать кол-во отрицательных и кол-во положительных элементов массива. Вывести массив на экран
Дан массив 5x5, заполнен случайными числами от -10 до 10. Посчитать кол-во отрицательных и кол-во...

Для каждой строки матрицы подсчитать кол-во положительных элементов и записать данные в новый массив.
Помогите пожалуйста! Начал изучать Паскаль совсем недавно и некак не могу выполнить задание: Дан...

Сделать таблицу n строк: адрес, кол-во проживающих, кол-во комнат и кол-во метров в каждой комнате
В задании нужно сделать таблицу n строк. Адрес, кол-во проживающих, кол-во комнат и кол-во метров в...

2
792 / 398 / 260
Регистрация: 09.12.2011
Сообщений: 786
Записей в блоге: 29
23.02.2013, 17:51 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
uses crt;
const m=6; n=9;
type ma2=array[1..m,1..n]of real;
var a:ma2; b:ma2;
{--------------------------------------------------}
procedure gen(var a:ma2; m,n:integer);
var i,j:integer;
begin
 for i:=1 to m do
  for j :=1 to n do a[i,j]:= -25+random(50);
end;
{-------------------------------------------------}
procedure print(name:string; a:ma2; m,n:integer);
var i,j: integer;
begin writeln('Massiv '+name);
 for i:=1 to m do
begin
 for j:=1 to n do  write (a[i,j]:7:2);
writeln;
end;
end;
{--------------------------------------------------------}
Procedure kol(A:ma2);
 Var i,j,kp,ko:byte;
  Begin
   kp:=0; ko:=0;
   For i:=1 to 6 do
    For j:=1 to 9 do
     If A[i,j]<0 then inc(ko) Else If A[i,j]>0 then inc(kp);
     Writeln('kol-vo pol:',kp);
     Writeln('kol-vo otr:',ko);
 End;
begin
clrscr;
gen(a,3,9); print('A',a,3,9); kol(A);
gen(b,6,6); print('B',b,6,6); kol(B);
Readln;
end.
1
19 / 2 / 0
Регистрация: 15.02.2013
Сообщений: 149
23.02.2013, 18:42  [ТС] 3
КиберПёс, спасибо вам ОГРОМНОЕ!всё работает!всё понятно написано!я поняла в чем была моя ошибка,почему не получалось!

[удалено]
0
23.02.2013, 18:42
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.02.2013, 18:42
Помогаю со студенческими работами здесь

Кол-во отрицательных элементов каждой строки в двумерном массиве
Дан двумерный массив a. Найти кол-во отрицательных элементов каждой строки массива.

Как найти кол-во положительных, отрицательных и нулевых элементов массива Z(N)
Люди помогите составить программу в Visual Basic 6 Задание: Найти кол-во...

В массивах найти кол-во и процентное соотношение положительных, отрицательных и нулевых элементов
В массивах х и y найти кол-во и процентное соотношение положительных, отрицательных и нулевых...

Массив (одномерный и двумерный, поиск локальных максимумов и кол-ва положительных и отрицательных элементов)
Две задачи, которые нужно реализовать на c++ в борланде. Вот первая (по одномерному массиву): В...


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

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

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