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-2020:inf-genius-2020 [2020/12/12 09:04]
beistvan
+++ inf-genius-2020:inf-genius-2020 [2020/12/12 12:34] (aktuális)
beistvan
@@ Sor 1: / Sor 1: @@
+Adatforrás: {{ :inf-genius-2020:adatforras20.docx |}}
+Táblázatkezelés: {{ :inf-genius-2020:ingatlan19.xlsx |}} {{ :inf-genius-2020:otos_2000-2020.xlsx |}}
+Körlevél: {{ :inf-genius-2020:adatforras.docx |}} {{ :inf-genius-2020:koerlevel-pelda.docx |}}
+====== Genius informatika, programozás, 2020. ======
+. program
+<code pascal hello.pas>
+program hello;
+begin
+  writeln('Hello vilag');
+  readln;
+end.
+</code>
+. program
+<code pascal atlag.pas>
+program atlag;
+const N = 5; H = 3;
+var a: array[1..N] of integer;
+    i, osszeg, hnal_nagyobb_db: integer;
+begin
+  osszeg := 0; hnal_nagyobb_db := 0;
+  writeln('Kerem a tomb elemeit:');
+  for i := 1 to N do
+  begin
+    write('a[',i,']:'); readln(a[i]);
+    osszeg := osszeg + a[i];
+    if a[i] > H then
+      hnal_nagyobb_db := hnal_nagyobb_db + 1;
+  end;
+  write('A tomb elemei: ');
+  for i := 1 to n do
+    write(a[i],' ');
+  writeln;
+  writeln('A tomb elemeinek atlaga: ', (osszeg / N):3:2);
+  writeln('A ',H,'-nal nagyobb elemek szama: ', hnal_nagyobb_db);
+  readln;
+end.
+</code>
+. program
+<code pascal fajlok.pas>
+program fajlok;
+const N = 5;
+var t:text; i, szam, osszeg, db:integer;
+begin
+  randomize;
+  assign(t, 'fajl.txt');
+  rewrite(t);
+  for i := 1 to N do
+  begin
+    writeln(t, random(10));
+  end;
+  reset(t);
+  db := 0; osszeg := 0;
+  while not(eof(t)) do
+  begin
+    readln(t, szam);
+    write(szam, ' ');
+    osszeg := osszeg + szam;
+    db := db + 1;
+  end;
+  writeln;
+  writeln('Osszeg: ', osszeg);
+  writeln('Atlag: ', (osszeg / db):4:1);
+  close(t);
+  readln;
+end.
+</code>
+. program
+<code pascal prog3_20.pas>
+program prog3_20;
+var i: integer;
+begin
+  for i:=1 to 5 do
+  begin
+    if i > 3 then
+      break;
+    writeln('Szia!');
+  end;
+  readln;
+end.
+</code>
+.1. program
+<code pascal bevasarlas1.pas>
+program bevasarlas;
+const ARUSZAM = 5;
+type arucikk = record
+        arunev: string[20];
+        ar: integer;
+     end;
+var
+  bevasarlokosar: array[1..ARUSZAM] of arucikk;
+  szamlalo: integer;
+begin
+  Writeln('Bevasarlas.');
+  Writeln('Kerem adja meg a megvasarlando arucikkeket!');
+  for szamlalo:=1 to ARUSZAM do
+  begin
+    write('A(z) ',szamlalo,'. aru neve: '); readln(bevasarlokosar[szamlalo].arunev);
+    write('Ara? '); readln(bevasarlokosar[szamlalo].ar);
+  end;
+  readln;
+end.
+</code>
+.2. program
+<code pascal bevasarlas2.pas>
+program bevasarlas;
+const ARUSZAM = 5;
+type arucikk = record
+        arunev: string[20];
+        ar: integer;
+     end;
+var
+  bevasarlokosar: array[1..ARUSZAM] of arucikk;
+  szamlalo, arkorlat, vegosszeg: integer;
+begin
+  Writeln('Bevasarlas.');
+  Writeln('Kerem adja meg a megvasarlando arucikkeket!');
+  for szamlalo := 1 to ARUSZAM do
+  begin
+    write('A(z) ', szamlalo, '. aru neve: '); readln(bevasarlokosar[szamlalo].arunev);
+    if bevasarlokosar[szamlalo].arunev = '' then break;
+    write('Ara? '); readln(bevasarlokosar[szamlalo].ar);
+  end;
+  Writeln('Milyen ar felett nem fog megvasarolni egy arucikket?');
+  Readln(arkorlat);
+  Writeln('Vegosszeg (csak az adott arkorlat alatti arucikkeket szamlazzuk ki).');
+  vegosszeg := 0;
+  for szamlalo := 1 to ARUSZAM do
+  begin
+    if bevasarlokosar[szamlalo].ar <= arkorlat then
+      vegosszeg := vegosszeg + bevasarlokosar[szamlalo].ar;
+  end;
+  Writeln('Fizetendo: ', vegosszeg);
+  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