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

Подпргораммы. Для матрицы отпечатать номер каждой строки, оба элемента которой имеют четные значения

01.02.2012, 17:15. Показов 969. Ответов 1
Метки нет (Все метки)

Для матрицы из 2 столбцов и 10 строк отпечатать номер каждой строки, оба элемента которой имеют четные значения, и число таких строк.
Сделать с помощью подпрограмм

Добавлено через 35 минут
Программа:
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
Uses CRT;
Var
A: array [1..10, 1..2] of integer;
I, j, x, k: integer;
begin
Clrscr;
Writeln('введите матрицу из 2 столбцов и 10 строк');
For i: =1 to 10 do
 For j: =1 to 2 do
 Read (a [i, j]);
 x: =0;
For i: =1 to 10 do
Begin
k:=0;
For j: =1 to 2 do
Begin
If a [i, j] mod 2=0 then k: =k+1;
End;
If k=2 then begin
     Writeln ('в ',i,'й строке оба элемента четные ');
     x:=x+1;
end;
end;
Writeln('в матрице ',x, ' строк, где все элементы четные');
end.
Вот это же програму только с подпрограммами!!!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.02.2012, 17:15
Ответы с готовыми решениями:

Отпечатать номер каждой строки матрицы, элементы которой имеют совпадающие значения
Помогите написать следующую программу, пожалуйста, если есть время ещё, то прокомментируйте все...

Отпечатать номер каждой строки матрицы, в которой не менее 2 элементов имеют нулевое значение
Составить алгоритм и программу для решения задачи. И собственно задача. Для матрицы из 3...

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

Для матрицы определить номер каждой строки, в которой не менее 2 элементов имеют нулевые значения
Для матрицы из 3 столбцов и 6 строк определить номер каждой строки, в которой не менее 2 элементов...

1
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
02.02.2012, 12:40 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
43
44
45
46
47
48
49
50
Uses CRT;
const n=10; m=2;
type matr=array [1..n, 1..m] of integer;
 Var A: matr;
 
 procedure InitM2(var z: matr);
 var i,j: byte;
 begin
 Writeln('ââåäèòå ìàòðèöó èç 2 ñòîëáöîâ è 10 ñòðîê');
 For i:=1 to n do
 For j:=1 to m do
 Read (z[i,j]);
 end;
 
 procedure PrintM2 (z: matr);
var i,j: byte;
begin
for i:=1 to n do
    begin
    for j:=1 to m do
        write(z[i,j]:4);
    writeln;
    end;
end;
 
function KS (z: matr):byte;
var i,j,k,kk: byte;
begin
 kk:=0;
 For i:=1 to n do
     Begin
     k:=0;
     For j:=1 to m do
         If z[i,j] mod 2=0 then inc(k);
     If k=2 then
        begin
        Writeln ('â ',i,'é ñòðîêå îáà ýëåìåíòà ÷åòíûå ');
        inc(kk);
        end;
     end;
KS:=kk;
end;
 
 
 begin
 Clrscr;
 InitM2(a);
 PrintM2 (a);
 Writeln('â ìàòðèöå ',KS(a), ' ñòðîê, ãäå âñå ýëåìåíòû ÷åòíûå');
 end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.02.2012, 12:40
Помогаю со студенческими работами здесь

Для матрицы из 3 столбцов и 6 строк отпечатать номер каждой строки, в которой второй элемент меньше среднего
для матрицы из 3 столбцов и 6 строк отпечатать номер каждой строки, в которой второй элемент меньше...

Отпечатать номер каждой строки, в которой значение ее наибольшего элемента оказалось больше заданной величины
для матрицы из 7 строк и 3 столбцов отпечатать номер каждой строки , вв которой значение ее...

Для каждой заданной матрицы определить местоположение (номер строки и номер столбца) минимального элемента
Даны массивы А, В, С. Для каждого определить местоположение (номер строки и номер столбца)...

Для каждой строки матрицы, номер которой кратен 4, найти среднее арифметическое элементов
Дана матрица размера M×N. Для каждой строки матрицы номер которой кратен 4 найти среднее...


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

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

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