Вопрос № 99950: НУ СДЕЛАЙТЕ ПОЖАЛУЙСТА БЛОК-СХЕМУ к этой программе!!!!
сРОЧНО НУЖНО.............
uses crt;
var i,j,n,c:integer;
a:array[1..20,1..20]of real;
min,max,tmp:real;
Begin
clrscr;
textcolor(14);
write('Vvedite razmer m...
Вопрос № 99.950
НУ СДЕЛАЙТЕ ПОЖАЛУЙСТА БЛОК-СХЕМУ к этой программе!!!!
сРОЧНО НУЖНО.............
uses crt;
var i,j,n,c:integer;
a:array[1..20,1..20]of real;
min,max,tmp:real;
Begin
clrscr;
textcolor(14);
write('Vvedite razmer matrici:');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
if i<j then a[i,j]:=sin(i+j)/cos(i+j)
else if i=j then a[i,j]:=1
else a[i,j]:=cos(i+j)/sin(i+j);
write(a[i,j]:10:3,' ');
end;
writeln;
writeln;
end;
c:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
if a[i,j]<0 then c:=c+1;
end;
end;
min:=a[1,1];max:=a[1,1];
for i:=1 to n do
begin
for j:=1 to n do
begin
if (j<i) and (min>a[i,j]) then min:=a[i,j];
if (i>j) and (max<a[i,j]) then max:=a[i,j];
end;
end;
writeln('Min el-t vishe glavnoi dioganali=',min:9:3);
writeln('Max el-t nije glavnoi dioganali=',max:10:3);
writeln;
writeln;
writeln('Vivod transponirovannoi matrici');
for i:=2 to n do
begin
for j:=1 to i-1 do
begin
tmp:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=tmp;
end;
end;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
write(a[i,j]:10:3,' ');
end;
end;
textcolor(13);
writeln;
writeln('Kolichestvo otricatelnix elementov: ',c);
readkey;
end.
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Harlamenkov Alexandr Nikolaevich!
Блок-схема Вашей программы в прикрепленном файле (word 97 sr2).
По программе:
а) if (j<i) and (min>a[i,j]) then min:=a[i,j];
if (i>j) and (max<a[i,j]) then max:=a[i,j];
меняете условие на противоположное или меняете переменные I и J местами. Зачем делать и то и другое? Из-за этого два оператора IF работают с одним условием, когда I больше J. На блок-схеме это выделенно красным ( поставите нужные условия).
в) min:=a[1,1];
max:=a[1,1];
максимум однозначно будет 1 которое находится в a[1,1], лутше записать: min:=a[2,1];
max:=a[1,2];
или наоборот(зависит от нужных условий поиска).
По блок-схеме:
-циклы выделенные одним цветом я бы объединил. Мой вариант в приложении.
Минимум ищем ниже главной диоганали, максимум - выше.
Удачи!
Приложение:
Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- И только наступив на грабли мы приобретаем драгоценный опыт!
