LiL_JoN

Прошу помочь с заданием.
Матрица A[4] [4]. Найти минимальный элемент во 2-ой строке и разделить на него элементы главной диагонали.

MrSTEP

Делить на каждый элемент главной диагонали и вывести одним числом, или на каждый последовательно? Или может на их сумму/произведение? Задание дано неточно.
И в чем трудности? Задача простейшая на самом деле.

Vladimir_S

Да нет, Лёша, ты просто не вчитался - формулировка там нормальная. Сперва ищется минимальный элемент второй строки, а потом все элементы главной диагонали делятся на найденное число. Единственное, а вдруг этим минимумом окажется ноль - что тогда?

MrSTEP

А, да, правда невнимательно.. Разделить НА НЕГО, а не ЕГО НА. Виноват. Но тем и задача проще..

Vladimir_S

Я бы сказал - глупее. Посему точно заниматься не буду. Может быть, кто-нибудь из школьников в порядке практики захочет...

LiL_JoN

program matrica;
uses crt;
const n=4;
type
matr=array[1..n,1..n] of integer;
var
a :matr:
min :integer:
i,j:byte;
begin
clrscr;
writeln('vvedite a[4,4]:');
for i:=1 to n do
for j:=1 to n do
begin
write ('a[',i,',',j,']=');
read (a[i,j]);
end;
writeln(^M^J,'Minimum=',min);
readln;
repeat until keypressed;
end.



УМОЛЯЮ ПОМОГИТЕ ВСТАВИТЬ ОПЕРАЦИЮ ПО УМНОЖЕНИЮ ЭЛЕМЕНТОВ ГЛАВНОЙ ДИАГОНАЛИ НА МИНИМУМ, прога работает нормально, минимум выдает, а вот с умножением трудности, пожалуйста помогите

Severina

как получилось у меня

Severina

ошиблась, вот он:

program matrica;
uses crt;
const n=4;
type
matr=array[1..n,1..n] of real;
var
a :matr;
min :real;
i,j:byte;
begin
clrscr;
{Vvodim matricu}
writeln('VVedite matricu ');
for i:= 1 to n do
for j:= 1 to n do
read(A[i,j]);

{Poisk minimuma }

min:=A[2,1];
for i:=1 to n do begin
for j:=1 to n do begin
if A[2,j]<=min then min:=A[2,j]
end;
end;
writeln;
writeln('Minimum raven: ', min:5:1, #10#13);

{Glavnyu diagonal delem na min}

for i:= 1 to n do
begin
for j:= 1 to n do
if i = j then
A[i,j]:=A[i,j] / min;
end;

{Vivodim matricu}
for i:=1 to n do
begin
for j:=1 to n do
write(A[i,j]:2:1, ' ' );
writeln;
end;

repeat until keypressed;

end.

Severina

Писала для предыдущей темы, где вы вначале просили поделить главную диагональ на минимум. Если все-таки надо умножить, то в 11 строчке снизу вместо / поставить *.

Vladimir_S

Извините - не верю! (как говаривал К.С.Станиславский). Не может "прога" нормально работать, имея столько ошибок. И как она "выдает минимум", если никакого поиска минимума там просто нет?
До сюда всё более ли менее.
Грубейшие ошибки!!! Вместо разделителя "точка с запятой" в конце строк поставлены двоеточия. Такого ни один транслятор не пропустит!
Нормально.
Не буду вдаваться в подробности, но в таких случаях НАСТОЯТЕЛЬНО рекомендую использовать не read, а именно readln.
Так. А вот это уже серьезно.
1. На хрена, извините за грубость, вы сюда вкатали запись в непонятно куда, да еще с динамической адресацией? Самое смешное, что ошибок вроде не выдает, и даже на экран выводит - вот только зачем? Сдвиг от края?
2. Где и когда, покажите пальцем, у Вас присваиваются хоть какие-то значения переменной min? Естественно, всегда выводится 0. Вы ЭТО имели в виду?
Если бы Вы использовали при вводе readln, а не read, то было бы достаточно одного из остановов - либо readln, либо repeat until keypressed (кстати, можно вместо этих трех слов поставить просто readkey).
С учетом вышесказанного, задачу можно решить, например, так: