Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 14.12.2009
Сообщений: 7
1

Процедуры (вывести столбцы м-цы с нулевыми значениями)

14.12.2009, 22:22. Просмотров 715. Ответов 0
Метки нет (Все метки)

Следующая задача:
Сформировать и вывести на экран две матрицы путем ввода элементов с клавиатуры и по заданному правилу, используя процедуры пользователя. Фактическое число строк и столбцов вводить с клавиатуры и передавать в процедуры фактическими параметрами. Предусмотреть процедуру вывода результирующей матрицы на экран. Произвести вычисления в функции или процедуре над матрицами согласно заданному требованию. Например, найти среднее арифметическое двух исходных матриц, а также сформировать две результирующие матрицы путем деления элементов исходных матриц на их максимальный элемент. Вывести результирующие матрицы на экран.

Для матрицы А (4 строки, 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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
var
A:array[1..4,1..4] of integer;
x,y:integer;
metka:array[1..4] of boolean;
elements:boolean;
procedure test(x:integer);
begin
metka[x]:=false;
for y:=1 to 4 do
if A[y,x]=0 then
begin
metka[x]:=true;
elements:=true;
end;
end;
begin
elements:=false;
writeln('Ishodnie dannie:');
for y:=1 to 4 do
begin
for x:=1 to 4 do
begin
write(a[y,x]:2,' ');
readln(a[y,x]);
end;
writeln;
end;
for x:=1 to 4 do
test(x);
writeln('Resultat:');
if elements=true then
begin
for y:=1 to 4 do
begin
for x:=1 to 4 do
begin
if metka[x]=true then
write(a[y,x]:2, ' ');
end;
writeln;
end;
end else
writeln('Stolbcob c nulyami net');
readln;
end.
Спасибо=)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.12.2009, 22:22
Ответы с готовыми решениями:

Вставить К-й столбец с нулевыми значениями в матрицу
Дана матрица размерностью M*N. Вставить К-й столбец с нулевыми значениями в матрицу. Обнулить в...

Перед элементом массива с номером K вставить M новых элементов с нулевыми значениями
Спасибо реальное, вы все очень помогаете, я по той же теме...Array 104: Дан массив размера N и два...

После элемента массива с номером K вставить M новых элементов с нулевыми значениями
Дан массив размера N и два целых числа K и M (1 < K < N, 1 < M < 10). После элемента массива с...

Найти элементы массива с нулевыми значениями
Составить программу, которая формирует массив из 16 случайных целых чисел от-20 до 20 и а)...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.12.2009, 22:22

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Перед элементом массива с номером K вставить M новых элементов с нулевыми значениями
Дан массив размера N и два целых числа K и M (1 < K <N, 1 <M < 10). Перед элементом массива с...

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

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

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


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

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

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