VPF::[Pascal] Процедуры - Форум программистов

trem

Дата 13.12.2009, 19:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 25.10.2009

Репутация: нет
Всего: нет

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

Для матрицы А (4 строки, 4 столбца) вывести те столбцы, в которых есть нулевые элементы, или вывести сообщение "нет столбцов с нулями". Для проверки наличия нулевых элементов в произвольном столбце матрицы использовать процедуру.

Заранее спасибо!

trem

Дата 13.12.2009, 23:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 25.10.2009

Репутация: нет
Всего: нет

Этот код вроде бы правильный, но нужно в задании матрицы самому надо вводить. Помогите плиз исправить... Или может ещё кто-нибудь что-то не верное найдёт... Спасибо

Код


var
A:array[1..4,1..4] of integer;
x,y:integer;
metka:array[1..4] of boolean; {zdes' metka[i]=true esli v stolbce i matricy a est' "0"}
elements:boolean; {esli est' hot' odin stolbec s nulem to zdes' budet true}

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:');
randomize;
for y:=1 to 4 do
begin
for x:=1 to 4 do
begin
A[y,x]:=random(10)-5;
write(a[y,x]:2,' ');
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('net stolbcov s nulyami');
readln;
end.

DevilHell

Дата 14.12.2009, 14:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 9.2.2009

Репутация: нет
Всего: нет

Здесь используется генератор случайных чисел

Код


randomize;  //это кажется обновление списка случайных чисел, если его не писать числа постояно будут одно и теже при компеляции
................
A[y,x]:=random(10)-5;  // числу А присваивается случайное значение из диапазона от -4 по 5. Берется случайное число от 0 до 10 и вычитается 5.

строку randomize; - стереть
A[y,x]:=random(10)-5; - заменить на read(a[y,x]); или readln(a[y,x]);

trem

Дата 14.12.2009, 15:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 25.10.2009

Репутация: нет
Всего: нет

спасибо, а так всё верно по условию?

DevilHell

Дата 14.12.2009, 17:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 9.2.2009

Репутация: нет
Всего: нет

Компилятора под рукой нет, а так вроде все правильно.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »