Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 20.03.2011, 15:21   #1 (permalink)
avatar3000
Новичок
 
Регистрация: 24.12.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Написание программы с помощью процедур

Здравствуйте уважаемые форумчане!!
Получить матрицу [Cij] i,j=от 1 до M из матриц [Aij] i,j=от 1 до M и [Bij] i,j=от 1 до M путем умножения элементов каждой строки матрицы [Aij] на максимальный элемент соответствующей строки матрицы [Bij].

Вот прога,ее нужно переписать,с помощью процедур.

program labo4;
CONST M=4;
VAR
A,B:Array[1..M,1..M] of Real;
Max:Array[1..M] of Real;
i,j:Byte;
BEGIN
For i:=1 to M do
For j:=1 to M do
begin
Write('A[',i,',',j,']= ');
ReadLn(A[i,j]);
end;
For i:=1 to M do
For j:=1 to M do
begin
Write('B[',i,',',j,']= ');
ReadLn(B[i,j]);
end;
WriteLn('Initial matrices:');
For i:=1 to M do
begin
For j:=1 to M do
Write(A[i,j]:6:1);
Write(' ');
For j:=1 to M do
Write(B[i,j]:6:1);
WriteLn;
end;
For i:=1 to M do
begin
Max[i]:=B[i,1];
for j:=2 to M do
if B[i,j]>Max[i] then Max[i]:=B[i,j];
end;
WriteLn;
Write('Maximum values: ');
For i:=1 to M do
Write(Max[i]:6:1);
WriteLn;
WriteLn;
WriteLn('Modified matrix:');
For i:=1 to M do
begin
For j:=1 to M do
Write(A[i,j]*Max[i]:12:1);
WriteLn;
end;
ReadLn;
END.

Помогите у кого время есть,заранее бесконечное спасибо)))
avatar3000 вне форума   Ответить с цитированием

Старый 20.03.2011, 15:21
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Полезную информацию так же можно поискать в аналогичных обсуждениях

Написание робота для торговли на Форексе
Паскаль. Программы с использованием процедур.
Написание гаджетов

Старый 20.03.2011, 15:58   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,360
Сказал(а) спасибо: 289
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от avatar3000 Посмотреть сообщение
Помогите у кого время есть
Примерно через час посмотрю.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 20.03.2011, 17:56   #3 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,360
Сказал(а) спасибо: 289
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Ну вот, раз уж обещал:
Код:
program labo4a;

CONST
 M=4;

TYPE
 Mtr=Array[1..M,1..M] of Real;
 Vct=Array[1..M] of Real;

VAR
 A,B,C:Mtr;
 Max:Vct;

Procedure Enter_Matrix(Nm:Char; var Em:Mtr);
var i,j:Byte;
begin
 For i:=1 to M do
  For j:=1 to M do
   begin
    Write(Nm,'[',i,',',j,']= ');
    ReadLn(Em[i,j]);
   end;
 WriteLn;
end;

Procedure Show_Matrix(Nm:Char;Sm:Mtr);
var i,j:Byte;
begin
 WriteLn('Matrix '+Nm+':');
 For i:=1 to M do
  begin
   For j:=1 to M do
    Write(Sm[i,j]:8:3);
   WriteLn;
  end;
 WriteLn;
end;

Procedure Form_Vector(Fm:Mtr; var Fv:Vct);
var i,j:Byte;
begin
 For i:=1 to M do
  begin
   Fv[i]:=Fm[i,1];
   for j:=2 to M do
    if Fm[i,j]>Fv[i] then Fv[i]:=Fm[i,j];
  end;
 WriteLn('Maxima: ');
 For i:=1 to M do Write(Fv[i]:8:3);
 WriteLn;
 WriteLn;
end;

Procedure New_Matrix(Mm:Mtr;Vm:Vct; var Nt:Mtr);
var i,j:Byte;
begin
 For i:=1 to M do
  For j:=1 to M do
   Nt[i,j]:=Mm[i,j]*Vm[i];
end;

BEGIN
 Enter_Matrix('A',A);
 Enter_Matrix('B',B);
 Show_Matrix('A',A);
 Show_Matrix('B',B);
 Form_Vector(B,Max);
 New_Matrix(A,Max,C);
 Show_Matrix('C',C);
 ReadLn;
END.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 20.03.2011, 20:18   #4 (permalink)
avatar3000
Новичок
 
Регистрация: 24.12.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Примного благодарен))
avatar3000 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 05:28.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.