Excel, 2. foglalkozás.
{{ :inf-genius-2019:excel-2-fogl.xlsx |}}
====== Genius informatika, programozás, 2019. ======
1. program
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.
2. program
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.
3. program
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.