простенькие задачи

[powerking11]

Помогите разобраться,хоть с 1 задачей,желательно с последней.
Нужно написать проги и составить блок-схемы.
Вот задачи:

http://www.fotolink.su/v.php?id=5015...27d1bfd67e11cf

[Alex11223]

Чем помочь-то если вы не задали никаких конкретных вопросов, а только выложили ссылку (причем неработающую) на картинку с условием задач?

[powerking11]

да изивините .вот задача
Даны две матрицы A и B порядка 4. Найти максимальый элемент матрицы С,каждый элемент которой вычисляется по формуле c(y)=a(y)*b(y) .Матрицы A,b,c вывести на экран

[Alex11223]

От того что вы переписали условие мало что поменялось.
Ни конкретных вопросов, ни ваших попыток решения не видно.
А просто решать за вас задачу неинтересно и бессмысленно.

[Dvoishnik]

powerking11,не хорошобыть таким лентяем

max:=a[1]*b[1];
for i:=1 to 4 do
begin
 c[i]:=a[i]*b[i];
 if c[i]>max then max:=c[i];  
 edit1.Text:=intToStr(a[i])+' ';
 edit2.Text:=intToStr(b[i])+' ';
 edit3.Text:=intToStr(c[i])+' ';
end;
edit4.Text:=IntToStr(max);

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:array[1..4,1..4] of integer;
    i,j,m:integer;
begin
   Randomize;
   Label1.Caption:='';
   For i:=1 to 4 do
   begin
      For j:=1 to 4 do
      begin
         a[i,j]:=Random(20);
         Label1.Caption:=Label1.Caption+'  '+IntToStr(a[i,j]);
      end;
      Label1.Caption:=Label1.Caption+#13#10;
   end;
   Label2.Caption:='';
   For i:=1 to 4 do
   begin
      For j:=1 to 4 do
      begin
         b[i,j]:=Random(20);
         Label2.Caption:=Label2.Caption+'  '+IntToStr(b[i,j]);
      end;
      Label2.Caption:=Label2.Caption+#13#10;
   end;
   For i:=1 to 4 do
      For j:=1 to 4 do
         c[i,j]:=a[i,j]*b[i,j];
   m:=c[1,1];
   For i:=1 to 4 do
      For j:=1 to 4 do
         If m<c[i,j] then
            m:=c[i,j];
   Label3.Caption:='';
   For i:=1 to 4 do
   begin
      For j:=1 to 4 do
         Label3.Caption:=Label3.Caption+'  '+IntToStr(c[i,j]);
      Label3.Caption:=Label3.Caption+#13#10;
   end;
   Label4.Caption:='max = '+IntToStr(m);
end;

Грамотный студент у нас на форуме
Безымянный.png
Писать надо общага, а не общежитее (ё-моё)

[powerking11]

извините,а что значит Label1.Caption:='';
подчеркивает красным

[Serge_Bliznykov]

Сообщение от powerking11

извините,а что значит Label1.Caption:='';
подчеркивает красным

Есть такой компонент - TLabel. (Это по сути - "надпись" на форме).
Вам нужно открыть вашу форму и положить на неё 4 лейбы с именами Label1, Label2, Label3, Label4

в label1 код выведет первый массив, в label2 - второй и т.д.

почему Label используется для отображения массивов - это вопрос к автору кода, видимо, он считает, что так проще и удобней. я бы выводил массивы либо в Memo, либо в StringGrid, но это Вы можете сами изменить.

p.s. а вообще, если такие простые ситуации вызывают вопросы, то, имхо, неплохо бы Вам букварь какой-нибудь по Delphi проштудировать...

[powerking11]

мне нужен код в режиме console ,на лабах мы не писали ни form,ни Label.Caption
Так как у меня инфа семестр ,и я не программист. Я просто обратился к знающим людям за помощью,потому что учебную программу сократили и я не успеваю. А для вас это как два пальца....
Так что помогите пожалуйста

[Аватар]

У меня труба сливная забилась, чистить не умею и не хочу, нужно просто к сантехнику за помощью обратиться. Ведь ему как два пальца об асфальт. Пусть поможет. Так?