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.

--- inf-genius-2019:inf-genius-2019 [2019/11/09 11:33]
beistvan
+++ inf-genius-2019:inf-genius-2019 [2019/11/09 11:47] (aktuális)
beistvan
@@ Sor 1: / Sor 1: @@
+Excel, 2. foglalkozás.
+{{ :inf-genius-2019:excel-2-fogl.xlsx |}}
+====== Genius informatika, programozás, 2019. ======
+. program
+<code pascal fuggv.pas>
+program fuggvenyek;
+const n=5;
+type tomb=array[1..n]of integer;
+function osszead2(a,b:integer):integer;
+begin
+  osszead2:=a+b;
+end;
+procedure kiirTomb(a:tomb);
+var i:integer;
+begin
+   for i:=1 to n do
+     write(a[i],' ');
+   writeln;
+end;
+procedure tombFeltolt(var a:tomb);
+var i:integer;
+begin
+  for i:=1 to n do
+    a[i]:=10+random(90);
+end;
+var a,b,c:integer;  t:tomb;
+begin
+  writeln('Fuggvenyek es eljarasok.');
+  a:=1;
+  b:=2;
+  c:=2*osszead2(a,b);
+  writeln('c=',c);
+  {tomb feltoltese veletlen adatokkal}
+  tombFeltolt(t);
+  {tomb kiiratasa}
+  kiirTomb(t);
+  readln;
+end.
+</code>
+. program
+<code pascal felcsereles.pas>
+program felcsereles;
+  procedure csere(var a,b:integer);
+  var c:integer;
+  begin
+    c:=a;
+    a:=b;
+    b:=c;
+  end;
+var szam1, szam2: integer;
+begin
+  writeln('Az elso szam: ');
+  readln(szam1);
+  writeln('A masodik szam: ');
+  readln(szam2);
+  csere(szam1, szam2);
+  writeln('Szam1: ', szam1);
+  writeln('Szam2: ', szam2);
+  readln;
+end.
+</code>
+. program
+<code pascal fakt.pas>
+program fakt;
+  function faktorialis(n: byte):qword;
+  begin
+    if n = 0 then
+      faktorialis:=1
+    else
+      faktorialis:=n * faktorialis(n-1);
+  end;
+var n: byte;
+begin
+  writeln('Kerek egy szamot, n = ');
+  readln(n);
+  writeln(n, '! = ', faktorialis(n));
+  readln;
+end.
+</code>

II. RF KMF DokuWiki

Felhasználói eszközök

Eszközök a webhelyen

Különbségek

Eszközök az oldalon