{====== Programoz s alapjai - el“-NZH ================  1994. 11. 09.

< l sd V_DEF.pas file! >

A}
   e2:=0;
   while not eof do
   begin
      readln(e1);
      if e1 in [1..4] then e2:=e2+1;
   end;
   writeln(e2);

{A bemen“ adatok       (A _ a sz¢k”z jele.)
      e    e       e
      o    o       oe
      l    l       lo
_9__1_n_4_3n_+2__+1nf

    -----------------------------------------------------
B}
     e3:=0;
     for l1:=alberlet to kastely do
     begin
       e2:=0;
       repeat e2:=e2+2;
       until e2>= ord(l1);
       e3:=e3+e2;
     end;
    writeln(e3);
    {-----------------------------------------------------
C}
    for e1:=1 to 3 do
    begin  t1[e1]:=e1;  t1[2*e1]:=-e1;  end;
    t1[5]:=0;
    for e1:=1 to 6 do
      for e2:=1 to 6-e1 do
        if t1[e2]>t1[e2+1] then
        begin e3:=t1[e2];  t1[e2]:=t1[e2+1];
              t1[e2+1]:=e3;
        end;
    for e1:=1 to 6 do write(t1[e1],' ');
    writeln;
    {-----------------------------------------------------
D}
    new(m1);  m1^.kulcs:=40;  m1^.lanc:=nil;
    repeat
      read (e1);  m2:=m1;
      while m2^.kulcs<e1 do m2:=m2^.lanc;
      new(m3);  m3^:=m2^;
      m2^.lanc:=m3;  m2^.kulcs:=e1;
    until e1=0;
    m2:=m1;
    while m2<>nil do begin
      write (m2^.kulcs,' ');  m2:=m2^.lanc;
    end;

{Bemeneti adatok:  5  3  4  0
    -----------------------------------------------------
E}
    e1:=5; e2:=6;
    s(e1,e2);
    if f(e1,e2) then writeln(e2:3)
                else writeln(e1:3);
    {-----------------------------------------------------
F}
    with rect[1] do begin nev:='01'; suly:=2; end;
    with rect[2] do begin nev:='03'; suly:=4; end;
    with rect[3] do begin nev:='05'; suly:=6; end;
    for e1:=1 to 2 do
    for e2:=1 to 2 do
    if ord(rect[e2].suly) >= ord(rect[e1].suly) then
                writeln(e1,' ',e2);
    writeln;

-----------------------------------------------------------------------
2.
  Deklar ljon egy f�ggv‚nyt, amely megadja, hogy egy string (1. param.)
  illeszkedik-e egy mint ra (2. param). Mindk‚t bemeneti adat t
  egy-egy
           str=packed array [1..maxlen] of char; {maxlen egy konstans}
  t¡pus£ string adja meg, melyekben v ltoz¢ hossz£s g£ stringeket
  £gy t rolunk, hogy az utols¢ ‚rt‚kes karakter ut n 0 ord ‚rt‚k–
  karakter  ll. A minta utols¢ ‚rt‚kes karaktere lehet egy '*' karakter
  is, amely minden karaktersorozatra illeszkedik, bele‚rtve a
  nulla hossz£s g£t is.
-----------------------------------------------------------------------
3.
  K‚sz¡tsen teljes programot, amely meghat rozza, hogy a szabv nyos
  inputon beolvasott sz”vegben h ny karakteres a leghosszabb sor ‚s
  ki¡rja azt is, hogy az h nyadik sor volt.

================ Beugr¢ v‚ge ==========================================
4.
   Ugyanaz, mint a 2. feladat, de a mint ban a '*' nem csak a string
   v‚g‚n lehet, hanem b rhol, ‚s a mint ban l‚v“ '?' a stringben
   b rmelyik karakterre illeszkedik.
-----------------------------------------------------------------------
5.
   K‚sz¡tsen teljes programot, amely egy file-b¢l beolvassa az ellopott
   szem‚lyg‚pkocsik adatait (rendsz m, alv zsz m, motorsz m),
   ‚s ellen“rzi, hogy egy m sik file-ban adott aut¢k adatai k”z”tt
   van-e olyan, amelyiknek valamelyik adata megegyezik az ellopottak
   valamelyik‚vel, ‚s ki¡rja ennek sorsz m t, valamint azt, hogy milyen
   adat egyezik.
   V lasszon megfelel“ adatszerkezeteket!
   Nem tudjuk el“re a file-ok hossz t, de azt igen, hogy az els“ file
   tartalma elf‚r a mem¢ri ban, a m sodik pedig nem.
   A file-ok tartalm t csak egyszer olvashatja be.
-----------------------------------------------------------------------
6.
   K‚sz¡tsen egy f�ggv‚nyt, amely meghat rozza, hogy egy
     tt = array [1..tn] of real;     {tn egy konstans}
   t¡pus£ t”mbnek, amelynek els“ N eleme van felt”ltve, els“ h ny
   eleme tekinthet“ heap-nek (kupacnak).