II. RF KMF DokuWiki

Ez az oldal csak olvasható. Megtekintheted a forrását, de nem változtathatod meg. Ha úgy gondolod, hogy ez helytelen, kérdezd az Adminisztrátorokat!

Excel, 2. foglalkozás.
{{ :inf-genius-2019:excel-2-fogl.xlsx |}}


====== Genius informatika, programozás, 2019. ======

1. 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>

2. 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>

3. 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

Eszközök az oldalon