paskalis, masyvas, pagalbos!

gal kas galite parasyti kaip padaryti, kad masyvas atspausdintu daugybos lentele, tik snd pradejom mokytis ir dar nko panasaus nedarem, gal kas galit padet? :unsure:

gal kas galite parasyti kaip padaryti, kad masyvas atspausdintu daugybos lentele, tik snd pradejom mokytis ir dar nko panasaus nedarem, gal kas galit padet? :unsure:

"PROGRAMAVIMAS PASKALIU"

G. Grigas

čia šiaip,kad atspausdint daugybos lentelę masyvų nereikia,tiesiog per indeksus eiti,manau šitaip:

program lentele;
var i,j: integer;
begin
 For i:=1 to 9 do
 Begin
   For j:=1 to 9 do
   Begin
     Write(j,'*',i,'=',i*j,' ');
   end;
   writeln;
 end;
 readln;
end. 

mum su masyvu liepe tai pagal teorija kuria ismokom tai ismasciau taip, tik liko padaryt taip kad atsakyma grziai parasytu :)

program mas;

Type Masyvas1 = array [1..10] of integer;

Masyvas2 = array [1..10] of integer;

Var A : Masyvas1;

B : Masyvas2;

i, j : integer;

begin

For i := 1 to 10 do

A := i;

for i := 1 to 10 do

For j := 1 to 10 do

begin

B := A * j;

WriteLn (B, ' ');

end;

Readln;

end.

"PROGRAMAVIMAS PASKALIU"

G. Grigas

tenka man sita kniga paskaityt, naudojuosi ja jau :)

Tai gal šitaip? :)

program mas;
Type Masyvas1 = array [1..10] of integer;
Masyvas2 = array [1..10] of integer;
 Var A : Masyvas1;
     B : Masyvas2;
     i, j : integer;
begin
For i := 1 to 10 do
A[i] := i;

for i := 1 to 10 do
Begin
For j := 1 to 10 do
 begin
   B[i] := A[i] * j;
   Write(j,'*',A[i],'=',b[i],' ');
 end;
 writeln;
end;
Readln;
end.

Tai gal šitaip? :)

 

program mas;
Type Masyvas1 = array [1..10] of integer;
Masyvas2 = array [1..10] of integer;
 Var A : Masyvas1;
     B : Masyvas2;
     i, j : integer;
begin
For i := 1 to 10 do
A[i] := i;

for i := 1 to 10 do
Begin
For j := 1 to 10 do
 begin
   B[i] := A[i] * j;
   Write(j,'*',A[i],'=',b[i],' ');
 end;
 writeln;
end;
Readln;
end.

taip, sitaip :) aciū ;)