Matematické Fórum

↑ Sonic44: prosim vytvor nove makro v exceli v novom sheets...a vloz tam tento basic pgm
Sub aaaa()
Dim c(5)
n = 5: Rem pocet cisel
c(1) = 3: c(2) = 5: c(3) = 7: c(4) = -2: c(5) = 1: Rem nacitanie cisel
r = 10: Rem pocet riadkov
Dim a(10, 5)
For i = 1 To r
For j = 1 To n
a(i, j) = c(j) * i
Cells(i, j) = a(i, j)
Next j
Next i
End Sub

↑ Sonic44: v Delphi s vypisem napriklad do komponenty Memo lze pouzit neco jako:

procedure TForm1.Button1Click(Sender: TObject);
const N = 5;
      M = 10;
var i, j: Integer;
    cisla: array[1..N] of Integer;
    buffer: String;
begin

  cisla[1] := 2; cisla[2] := 7; cisla[3] := 4; cisla[4] := 3; cisla[5] := 1;

  for i := 1 to M do begin
    buffer := '';
    for j := 1 to N do begin
      buffer := buffer + ' ' + IntToStr(i * cisla[j]);
    end;
    Memo1.Lines.Add(buffer);
  end;

end;

No tak jednoduše, načíst matici předpokládám umíš.

Pokud sem to pochopil, tak každý řádek té matice, resp. každou hodnotu v řádku máš mít jako násobek toho řádku. Takže platí toto, pro výpis matice použij následující kód:

for i:=1 to M do
begin
    for j:=1 to N do
      begin
        write(matice[i,j] * i, ' '); {toto veme hodnotu na pozici matice i a j  a tu hodnotu vynasobi cislem radku tedy tim i}
      end;
    writeln('');  {odradkovani matice}
end;

nezapomeň deklarovat proměnné i a j jako integer.


Pokud máš ale jednorozměrné pole tak je to jinak:


var i,j:integer;
matice:array[1..100] of integer;


tady to se pak píše při výpisu té matice

for i:=1 to M do
begin
    for j:=1 to N do
      begin
        write(matice[j] * i, ' '); {toto veme hodnotu na pozici matice i a j  a tu hodnotu vynasobi cislem radku tedy tim i}
      end;
    writeln('');  {odradkovani matice}
end;