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!
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. ======

1. program
<code pascal hello.pas>

program hello;
begin
  writeln('Hello vilag');
  readln;
end.

</code>

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

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


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

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

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

Eszközök az oldalon
