Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.04.2010, 14:41   #1
romashon
 
Регистрация: 03.04.2010
Сообщений: 4
По умолчанию Блок-схема

Помогите пожалуйста с блок-схемой к программе.

Программа: дана вещественная матрица размером 7х7,все элементы которой различны. Найти скалярное произведение строки, в которой находится наибольший элемент матрицы, на столбец с наименьшим элементом.

program gg;
uses crt;
var
a: array [1..7, 1..7] of integer;
i,j,max,min,kominstr,kominstl,komax str,komaxstl: integer;
proizv:real;
begin
clrscr;
for i:=1 to 7 do
begin
for j:=1 to 7 do
begin
writeln ('введите элемент ',i,' строки, ',j,' столбца');
read (a[i,j]);
end;
end;
max:=a[1,1];
min:=a[1,1];
komaxstr:=1; komaxstl:=1; kominstr:=1; kominstl:=1;
for i:=1 to 7 do
begin
for j:=1 to 7 do
begin
if A[i,j]>max then
begin
max:=a[i,j];
KOmaxSTR:=i;
KOmaxSTL:=j;
end;
if a[i,j]<min then
begin
min:=a[i,j];
KOminSTR:=i;
KOmaxSTL:=j;
end;
end;
end;
writeln ('максимальный элемент ',max);
writeln ('находится в строке №', komaxstr); writeln ('столбце№',komaxstl);
writeln ('минимальный элемент',min);
writeln ('находится в строке №', kominstr); writeln ('столбце№',kominstl);
proizv:=a[komaxstr,1]*a[1,kominstl]+a[komaxstr,2]*a[2,kominstl]+a[komaxstr,3]*a[3,kominstl]+a[komaxstr,4]*a[4,kominstl]+a[komaxstr,5]*a[5,kominstl]+a[komaxstr,6]*a[6,kominstl]+a[komaxstr,7]*a[7,kominstl];
writeln ('скалярное произведение строки с макс. эл. на столбец с мин. эл.',proizv:7:0);
repeat until keypressed;
end.
romashon вне форума Ответить с цитированием
Старый 16.04.2010, 11:29   #2
Rusl92
Форумчанин
 
Аватар для Rusl92
 
Регистрация: 30.03.2008
Сообщений: 392
По умолчанию

нужно нарисовать блок схему к программе?
Программирование - это великое искусство... Такое же как например и живопись!
Rusl92 вне форума Ответить с цитированием
Старый 18.04.2010, 22:21   #3
romashon
 
Регистрация: 03.04.2010
Сообщений: 4
По умолчанию

уже нет=) справился сам)
romashon вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Блок схема sir.andrey Помощь студентам 4 27.03.2010 13:33
Блок схема dimonpwnz Помощь студентам 0 12.02.2010 19:10
Блок схема dimonpwnz Помощь студентам 2 02.02.2010 16:16
Блок схема алгоритма программы и схема взаимодействия модулей. Lazio Фриланс 3 02.12.2009 23:10