Felhasználói eszközök

Eszközök a webhelyen


inf-prog-fszi:egymasba_agyazott_ciklusok

Különbségek

A kiválasztott változat és az aktuális verzió közötti különbségek a következők.

Összehasonlító nézet linkje

Előző változat mindkét oldalon Előző változat
Következő változat
Előző változat
inf-prog-fszi:egymasba_agyazott_ciklusok [2017/06/18 19:11]
beistvan
inf-prog-fszi:egymasba_agyazott_ciklusok [2017/06/21 09:38] (aktuális)
beistvan
Sor 51: Sor 51:
         break; {* ha van osztója, nem prím! *}         break; {* ha van osztója, nem prím! *}
       ​       ​
-      ​if (j = i) then +    ​if (j = i) then 
-        writeln(i , ' prim' );+      writeln(i , ' prim' );
   end;   end;
 end. end.
Sor 60: Sor 60:
  
 ===== Háromszorosan egymásba ágyazott ciklusok ===== ===== Háromszorosan egymásba ágyazott ciklusok =====
 +
 +$c_{i,​j}=\displaystyle\sum_{k=1}^{n}a_{i,​k}b_{k,​j};​ \;\; i = \overline{1,​n};​ j = \overline{1,​n}.$
  
 <code pascal matrixszorzas.pas>​ <code pascal matrixszorzas.pas>​
-for i := 1 to do +for i := 1 to do 
-  for j := 1 to do+  for j := 1 to do
     begin     begin
       sum := 0;       sum := 0;
-      for k := 1 to do+      for k := 1 to do
         sum := sum + a[i,k] * b[k,j];         sum := sum + a[i,k] * b[k,j];
         c[i,j] := sum;         c[i,j] := sum;
     end;     end;
 </​code>​ </​code>​
 +
 +<code pascal matrixszorzas.pas>​
 +program matrixszorzas;​
 +const n = 3;
 +type tomb_tipus =  array[1..n, 1..n] of integer;
 +procedure kiir(t: tomb_tipus; h: byte);
 +var i, j: integer;
 +begin
 +  for i := 1 to n do begin
 +    for j := 1 to n do
 +      write(t[i,​j]:​h);​
 +    writeln;
 +  end;
 +  writeln;
 +end;
 +const a: tomb_tipus = ((1,​2,​4),​(5,​6,​7),​(8,​9,​1));​
 +      b: tomb_tipus = ((2,​3,​6),​(2,​3,​7),​(1,​3,​0));​
 +var i, j, k, sum: integer; c: tomb_tipus;
 +begin
 +  kiir(a, 3);
 +  kiir(b, 3);
 +  for i := 1 to n do
 +    for j := 1 to n do
 +      begin
 +        sum := 0;
 +        for k := 1 to n do
 +          sum := sum + a[i,k] * b[k,j];
 +        c[i,j] := sum;
 +      end;
 +  kiir(c, 4);
 +  readln;
 +end.
 +</​code>​
 +
 +[[https://​ideone.com/​6Lk2ch]]
 +
 +<code pascal matrixszorzas1.pas>​
 +program matrixszorzas1;​
 +const n = 3;
 +type tomb_tipus =  array[1..n, 1..n] of integer;
 +procedure kiir(t: tomb_tipus; h: byte);
 +var i, j: integer;
 +begin
 +  for i := 1 to n do begin
 +    for j := 1 to n do
 +      write(t[i,​j]:​h);​
 +    writeln;
 +  end;
 +  writeln;
 +end;
 +const a: tomb_tipus = ((1,​2,​4),​(5,​6,​7),​(8,​9,​1));​
 +      b: tomb_tipus = ((2,​3,​6),​(2,​3,​7),​(1,​3,​0));​
 +var i, j, k: integer; c: tomb_tipus;
 +begin
 +  kiir(a, 3);
 +  kiir(b, 3);
 +  for i := 1 to n do
 +    for j := 1 to n do
 +      for k := 1 to n do
 +        c[i,j] := c[i,j] + a[i,k] * b[k,j];
 +  kiir(c, 4);
 +  readln;
 +end.
 +
 +</​code>​
 +
 +<code pascal gotos_program.pas>​
 +program gotos_program;​
 +uses crt;
 +const n = 3;
 +type tomb_tipus = array[1..n,​1..n] of byte;
 +procedure kiir(x,​y:​integer;​ t: tomb_tipus);​
 +var i,​j:​integer;​
 +begin
 +  for i:=1 to 3 do
 +    for j:=1 to 3 do
 +    begin
 +      gotoxy(x+3*j,​y+i);​
 +      write(t[i,​j]);​
 +    end;
 +end;
 +var i,​j:​integer;​
 +const a: tomb_tipus = ((1,​2,​4),​(5,​6,​7),​(8,​9,​1));​
 +      b: tomb_tipus = ((2,​3,​6),​(2,​3,​7),​(1,​3,​0));​
 +begin
 +  kiir(1,​1,​a);​
 +  kiir(12,​1,​b);​
 +  for i:=1 to 3 do
 +    for j:=1 to 5 do
 +      kiir(j*11+1,​i*5+1,​b);​
 +  readln;
 +end.
 +
 +</​code>​
 +
 +
inf-prog-fszi/egymasba_agyazott_ciklusok.1497805910.txt.gz · Utolsó módosítás: 2017/06/18 19:11 szerkesztette: beistvan